diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-26 17:26:17 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-26 17:26:17 +0000 |
| commit | 35ff78560a01016ce2a3dffe29f18ce851bc0b90 (patch) | |
| tree | 5b818a7ace6d9cdecf985b25efc5b20376ed15a5 /win32 | |
| parent | 873ef191be9d12eed8116e23926efe319c6ed859 (diff) | |
| download | perl-35ff78560a01016ce2a3dffe29f18ce851bc0b90.tar.gz | |
[asperl] more changes to satisfy non-debug VC build (C-API doesn't
build, and the testsuite still won't run)
p4raw-id: //depot/asperl@1035
Diffstat (limited to 'win32')
| -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*$/) { |