develooper Front page | perl.perl5.porters | Postings from December 2000

[PATCH 5.7.0] compiling on OS/2

Thread Previous | Thread Next
From:
Ilya Zakharevich
Date:
December 30, 2000 21:19
Subject:
[PATCH 5.7.0] compiling on OS/2
Message ID:
20001231001924.A5210@math.math.ohio-state.edu
This patch does not fix new bugs introduced by IV-preservation
madness.  Also, the second chunk may cause problems for other
platforms needing makedef.pl.  But with it applied, perl compiles on EMX.

Enjoy,
Ilya

--- ./makedef.pl~~	Thu Dec 14 14:50:00 2000
+++ ./makedef.pl	Fri Dec 29 20:00:22 2000
@@ -143,16 +143,7 @@ if ($PLATFORM eq 'win32') {
 elsif ($PLATFORM eq 'os2') {
     ($v = $]) =~ s/(\d\.\d\d\d)(\d\d)$/$1_$2/;
     $v .= '-thread' if $ARCHNAME =~ /-thread/;
-    #$sum = 0;
-    #for (split //, $v) {
-    #	$sum = ($sum * 33) + ord;
-    #	$sum &= 0xffffff;
-    #}
-    #$sum += $sum >> 5;
-    #$sum &= 0xffff;
-    #$sum = printf '%X', $sum;
     ($dll = $define{PERL_DLL}) =~ s/\.dll$//i;
-    # print STDERR "'$dll' <= '$define{PERL_DLL}'\n";
     print <<"---EOP---";
 LIBRARY '$dll' INITINSTANCE TERMINSTANCE
 DESCRIPTION '\@#perl5-porters\@perl.org:$v#\@ Perl interpreter'
@@ -822,4 +813,13 @@ PerlIOBase_close
 PerlIO_define_layer
 PerlIO_pending
 PerlIO_unread
-PerlIO_push
\ No newline at end of file
+PerlIO_push
+PerlIO_apply_layers
+perlsio_binmode
+PerlIO_binmode
+PerlIO_init
+PerlIO_tmpfile
+PerlIO_setpos
+PerlIO_getpos
+PerlIO_vsprintf
+PerlIO_sprintf
--- ./opcode.pl~~	Tue Dec  5 05:39:46 2000
+++ ./opcode.pl	Wed Dec 27 20:17:42 2000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+chmod 0666, "opcode.h", "opnames.h";
 unlink "opcode.h", "opnames.h";
 open(OC, ">opcode.h") || die "Can't create opcode.h: $!\n";
 open(ON, ">opnames.h") || die "Can't create opnames.h: $!\n";
--- ./os2/os2.c~~	Mon Dec  4 20:49:36 2000
+++ ./os2/os2.c	Wed Dec 27 20:26:46 2000
@@ -1162,10 +1162,13 @@ tcp1(char *name, int arg)
 	((void (*)(int)) fcn) (arg);
 }
 
+#ifndef HAS_GETHOSTENT		/* Older versions of EMX did not have it... */
 void *	gethostent()	{ return tcp0("GETHOSTENT");  }
 void *	getnetent()	{ return tcp0("GETNETENT");   }
 void *	getprotoent()	{ return tcp0("GETPROTOENT"); }
 void *	getservent()	{ return tcp0("GETSERVENT");  }
+#endif
+
 void	sethostent(x)	{ tcp1("SETHOSTENT",  x); }
 void	setnetent(x)	{ tcp1("SETNETENT",   x); }
 void	setprotoent(x)	{ tcp1("SETPROTOENT", x); }

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About