X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=makedef.pl;h=3b9759d3e11568ba7fb160bfda9a1c89ab6ba48b;hb=8bbf3450a1ff0a3996dade29a4194cc0939d871f;hp=4fb3e7c7bd11a36d38de209919e2dba6556ed109;hpb=7e700b9a8abede52e5b76bcd72872d6ea63694b4;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/makedef.pl b/makedef.pl
index 4fb3e7c..3b9759d 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -377,6 +377,8 @@ elsif ($PLATFORM eq 'os2') {
 		    dlsym
 		    dlerror
 		    dlclose
+		    dup2
+		    dup
 		    my_tmpfile
 		    my_tmpnam
 		    my_flock
@@ -398,6 +400,10 @@ elsif ($PLATFORM eq 'os2') {
 		    nthreads_cond
 		    os2_cond_wait
 		    os2_stat
+		    os2_execname
+		    async_mssleep
+		    msCounter
+		    InfoTable
 		    pthread_join
 		    pthread_create
 		    pthread_detach
@@ -602,6 +608,8 @@ if ($define{'MYMALLOC'}) {
 		    Perl_get_mstats
 		    Perl_strdup
 		    Perl_putenv
+		    MallocCfg_ptr
+		    MallocCfgP_ptr
 		    )];
     if ($define{'USE_ITHREADS'}) {
 	emit_symbols [qw(
@@ -620,6 +628,14 @@ else {
 		    Perl_dump_mstats
 		    Perl_get_mstats
 		    Perl_malloced_size
+		    MallocCfg_ptr
+		    MallocCfgP_ptr
+		    )];
+}
+
+if ($define{'PERL_MALLOC_WRAP'}) {
+    emit_symbols [qw(
+		    PL_memory_wrap
 		    )];
 }
 
@@ -732,6 +748,8 @@ unless ($define{'PL_OP_SLAB_ALLOC'}) {
                      PL_OpPtr
                      PL_OpSlab
                      PL_OpSpace
+		     Perl_Slab_Alloc
+		     Perl_Slab_Free
                     )];
 }
 
@@ -800,10 +818,12 @@ my @layer_syms = qw(
 		    PerlIOBuf_unread
 		    PerlIOBuf_write
 		    PerlIO_allocate
+		    PerlIO_apply_layera
 		    PerlIO_apply_layers
 		    PerlIO_arg_fetch
 		    PerlIO_debug
 		    PerlIO_define_layer
+		    PerlIO_isutf8
 		    PerlIO_layer_fetch
 		    PerlIO_list_free
 		    PerlIO_modestr
@@ -1332,7 +1352,14 @@ foreach my $symbol (sort keys %export) {
 }
 
 if ($PLATFORM eq 'os2') {
-	print "; LAST_ORDINAL=$sym_ord\n";
+	print <<EOP;
+    dll_perlmain=main
+    fill_extLibpath
+    dir_subst
+    Perl_OS2_handler_install
+
+; LAST_ORDINAL=$sym_ord
+EOP
 }
 
 sub emit_symbol {