From 35ff78560a01016ce2a3dffe29f18ce851bc0b90 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 26 May 1998 17:26:17 +0000
Subject: [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
---
win32/GenCAPI.pl | 17 +++++++++++++++--
1 file changed, 15 insertions(+), 2 deletions(-)
(limited to 'win32/GenCAPI.pl')
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*$/) {
--
cgit v1.2.1