Changeset 3191

Timestamp:

Apr 22, 2007, 2:07:36 PM (18 years ago)

Author:

bird

Message:

underscores and a weakld problem(?).

File:

• trunk/essentials/dev-lang/perl/makedef.pl (modified) (3 diffs)

trunk/essentials/dev-lang/perl/makedef.pl

@@ -1236 +1236 @@
 elsif ($PLATFORM eq 'os2') {
     open MAP, 'miniperl.map' or die 'Cannot read miniperl.map';
-    /^\s*[\da-f:]+\s+(\w+)/i and $mapped{$1}++ foreach <MAP>;
+    /^\s*[\da-f:]+\s+_(\w+)/i and $mapped{$1}++ foreach <MAP>;
     close MAP or die 'Cannot close miniperl.map';
 
@@ -1414 +1414 @@
 if ($PLATFORM eq 'os2') {
         print <<EOP;
-    dll_perlmain=main
-    fill_extLibpath
-    dir_subst
-    Perl_OS2_handler_install
+    _dll_perlmain=_main
+    _fill_extLibpath
+    _dir_subst
+    _Perl_OS2_handler_install
 
 ; LAST_ORDINAL=$sym_ord
@@ -1458 +1458 @@
     elsif ($PLATFORM eq 'os2') {
         printf qq(    %-31s \@%s\n),
-          qq("$symbol"), $ordinal{$symbol} || ++$sym_ord;
-        printf qq(    %-31s \@%s\n),
-          qq("$exportperlmalloc{$symbol}" = "$symbol"),
-          $ordinal{$exportperlmalloc{$symbol}} || ++$sym_ord
-          if $exportperlmalloc and exists $exportperlmalloc{$symbol};
+          qq("_$symbol"), $ordinal{$symbol} || ++$sym_ord;
+# this doesn't work, fix weakld!?!
+#       printf qq(    %-31s \@%s\n),
+#         qq("_$exportperlmalloc{$symbol}" = "_$symbol"),
+#         $ordinal{$exportperlmalloc{$symbol}} || ++$sym_ord
+#         if $exportperlmalloc and exists $exportperlmalloc{$symbol};
+#       printf qq(    %-31s \@%s\n),
+#         qq("__std_$exportperlmalloc{$symbol}" = "_$symbol"),
+#         $ordinal{$exportperlmalloc{$symbol}} || ++$sym_ord
+#         if $exportperlmalloc and exists $exportperlmalloc{$symbol};
     }
     elsif ($PLATFORM eq 'aix' || $PLATFORM eq 'MacOS') {