Path: utzoo!attcan!uunet!lll-winken!sun-barr!cs.utexas.edu!know!zaphod.mps.ohio-state.edu!sdd.hp.com!decwrl!ucbvax!bloom-beacon!eru!luth!sunic!sics.se!sics.se!jw
From: jw@sics.se (Johan Widen)
Newsgroups: comp.lang.perl
Subject: Re: Perl under Machi386
Message-ID: <1990Jul31.192825.13610@sics.se>
Date: 31 Jul 90 19:28:25 GMT
References: <283@sun13.scri.fsu.edu>
Sender: news@sics.se
Organization: Swedish Institute of Computer Science, Kista
Lines: 53
In-Reply-To: nall@sun8.scri.fsu.edu's message of 19 Jul 90 18:53:30 GMT

>>>>> In article <283@sun13.scri.fsu.edu>, nall@sun8.scri.fsu.edu (John Nall) writes:

nall> Since I just got Machi386 up and running on my 386 system, and
nall> am doing different things to check it out, one of the things I
nall> decided to do was to ftp Perl over from the Sun (checking out
nall> the ftp capability, among other things) and see how well it
nall> would do under Mach.

nall> Things seemed to go pretty well, but when it got to the point
nall> of doing (during the "make") a "ldbm -lm -o perl" I got a couple
nall> of error messages and and *** Exit 1 from make.

nall> The error messages were:

nall> seekdir.o: Undefined symbol _DONT_USE_SEEKDIR_UNDER_MACH referenced
nall>            from text segment
nall> telldir.o: Undefined symbol _DONT-USE-TELLDIR_UNDER_MACH referenced
nall> 	   from text segment

Here is how I got around the problem:

*** doio.c~	Fri Mar 30 19:43:23 1990
--- doio.c	Fri Jul  6 21:33:39 1990
***************
*** 1895,1901 ****
--- 1895,1906 ----
  #endif
  	}
  	break;
+ #if MACH
      case O_TELLDIR:
+     case O_SEEKDIR:
+         goto nope;
+ #else
+     case O_TELLDIR:
  	st[sp] = str_static(&str_undef);
  	str_numset(st[sp], (double)telldir(stio->dirp));
  	break;
***************
*** 1904,1909 ****
--- 1909,1915 ----
  	along = (long)str_gnum(st[sp+1]);
  	(void)seekdir(stio->dirp,along);
  	break;
+ #endif
      case O_REWINDDIR:
  	st[sp] = str_static(&str_undef);
  	(void)rewinddir(stio->dirp);

--
Johan Widen
SICS, PO Box 1263, S-164 28 KISTA, SWEDEN	Internet: jw@sics.se
Tel: +46 8 752 15 32	Ttx: 812 61 54 SICS S	Fax: +46 8 751 72 30