mirrors/cpython
1
0
Fork 0
mirror of https://github.com/python/cpython.git synced 2025-07-24 11:44:31 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 8

load_refcounts(),

Browse source 
do_env_cfuncdesc():  Support the "null" value for the refcounts field
        in refcounts.dat.
This commit is contained in:
Fred Drake 2000-04-10 18:26:45 +00:00
parent db2764d941
commit c2578c5bb6
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Doc/perl/python.perl
View file

@ -600,7 +600,7 @@ sub load_refcounts{
open(REFCOUNT_FILE, "<$filename") || die "\n$!\n";
print "[loading API refcount data]";
while (<REFCOUNT_FILE>) {
if (/([a-zA-Z0-9_]+):PyObject\*:([a-zA-Z0-9_]*):(0|[-+]1):(.*)$/) {
if (/([a-zA-Z0-9_]+):PyObject\*:([a-zA-Z0-9_]*):(0|[-+]1|null):(.*)$/) {
my($func, $param, $count, $comment) = ($1, $2, $3, $4);
#print "\n$func($param) --> $count";
$REFCOUNTS{"$func:$param"} = $count;
@ -634,6 +634,10 @@ sub do_env_cfuncdesc{
$rcinfo = '<span class="label">Return value:</span>'
. "\n <span class=\"value\">Borrowed reference.</span>";
}
elsif ($result_rc eq 'null') {
$rcinfo = '<span class="label">Return value:</span>'
. "\n <span class=\"value\">Always NULL.</span>";
}
if ($rcinfo ne '') {
$rcinfo = "\n<div class=\"refcount-info\">\n $rcinfo\n</div>";
}