Mercurial > cpython-lru_cache-weakref
diff Doc/perl/python.perl @ 12350:c59bdc7fd8a6 legacy-trunk
load_refcounts(),
do_env_cfuncdesc(): Support the "null" value for the refcounts field
in refcounts.dat.
| author | Fred Drake <fdrake@acm.org> |
|---|---|
| date | Mon, 10 Apr 2000 18:26:45 +0000 |
| parents | be5100afa1b7 |
| children | 6ce6c23acd14 |
line wrap: on
line diff
--- a/Doc/perl/python.perl Mon Apr 10 18:25:09 2000 +0000 +++ b/Doc/perl/python.perl Mon Apr 10 18:26:45 2000 +0000 @@ -600,7 +600,7 @@ 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 @@ $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>"; }