diff options
Diffstat (limited to 'win32/GenCAPI.pl')
| -rw-r--r-- | win32/GenCAPI.pl | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/win32/GenCAPI.pl b/win32/GenCAPI.pl index 4988ab7e93..fe3093308b 100644 --- a/win32/GenCAPI.pl +++ b/win32/GenCAPI.pl @@ -284,6 +284,20 @@ ENDCODE print OUTFILE "#endif\n" unless ($separateObj == 0); next; } + # handle special case for perl_atexit + if ($name eq "perl_atexit") { + print OUTFILE <<ENDCODE; + +#undef $name +extern "C" $type $name ($args) +{ + return pPerl->perl_atexit(fn, ptr); +} +ENDCODE + print OUTFILE "#endif\n" unless ($separateObj == 0); + next; + } + if($name eq "byterun" and $args eq "struct bytestream bs") { next; @@ -310,9 +324,8 @@ ENDCODE #undef $name extern "C" $type $funcName ($args) { -$return pPerl->$funcName ENDCODE - + print OUTFILE "$return pPerl->$funcName"; $doneone = 0; foreach $arg (@args) { if ($arg =~ /(\w+)\W*$/) { |