home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / perl-4.036 / README.ncr < prev    next >
Encoding:
Internet Message Format  |  1993-02-08  |  4.8 KB
  1. From: lreed@ncratl.AtlantaGA.NCR.COM (Len Reed)
  2. Newsgroups: comp.lang.perl
  3. Subject: Fixes for Perl 4.019 on NCR Tower V.3
  4. Date: 17 Feb 92 16:41:30 GMT
  5. Organization: Holos Software, Inc.
  6.  
  7. Here are the fixes needed to make perl 4.019 on the NCR Tower V.3 system.
  8. I have bundled this as a shar file: feed everything below the CUT line
  9. to /bin/sh.
  10.  
  11. The file hints/ncr_tower.sh fixes several problems.  It replaces the
  12. standard copy thereof.  Note that I use perl's malloc.  Note also
  13. that I have turned the optimizer completely off (-O0).  Optimizing
  14. at -O1 or -O2 produces some errors that the test suite doesn't catch.
  15. (Problems with alloca() and setjmp/longjmp, I think.)  It should be
  16. possible to optimize some modules but I haven't experimented with this.
  17.  
  18. [NOTE: this hints file is already installed--lwall]
  19.  
  20. I'm don't know if mkdir(2) works: I've left it undef'ed.  It is certainly
  21. broken in V.2.  If you need fast mkdir's you may want to experiment with
  22. this.
  23.  
  24. The file patch.twg fixes a stupidity in /usr/netinclude/sys/time.h.
  25. You'll need this if you have WIN-TCP; you can't use it if you don't
  26. have WIN-TCP.  If needed, apply this patch *before* running Configure.
  27.  
  28. Make sure you tell Configure that any config.sh it finds is to be ignored.
  29.  
  30. After running Configure and make depend, edit config.h so that
  31. the CPPSTDIN definition has DEFAULT_CPP=/dev/null prepended.  It should
  32. look this this:
  33.  
  34. #define CPPSTDIN "DEFAULT_CPP=/dev/null cc -E"
  35.  
  36. This must be done by hand after running "make depend" and before running
  37. make.  I was unable to encode this into the hints file.
  38.  
  39. This resulting perl should pass all tests.
  40.  
  41. -Len Reed
  42. Holos Software, Inc.
  43. holos0!lbr@gatech.edu                (my main account)
  44. lreed@ncratl.atlantaga.ncr.com       (this account--on a customer's machine)
  45.  
  46. -----CUT HERE----
  47. #!/bin/sh
  48. # This is a shell archive (shar 3.32)
  49. # made 02/17/1992 16:36 UTC by lreed@ncratl
  50. # Source directory /usr/acct/lreed/,q
  51. #
  52. # existing files WILL be overwritten
  53. #
  54. # This shar contains:
  55. # length  mode       name
  56. # ------ ---------- ------------------------------------------
  57. #   1593 -rw-rw-rw- patch.twg
  58. #    176 -rw-r--r-- hints/ncr_tower.sh
  59. #
  60. if touch 2>&1 | fgrep 'amc' > /dev/null
  61.  then TOUCH=touch
  62.  else TOUCH=true
  63. fi
  64. # ============= patch.twg ==============
  65. echo "x - extracting patch.twg (Text)"
  66. sed 's/^X//' << 'SHAR_EOF' > patch.twg &&
  67. XThe following patch fixes /usr/netinclude/sys/time.h on the Tower V.3.
  68. XPulling in <sys/time.h> with -I/usr/inetinclude makes a mess unless
  69. Xthe <sys/twg_config.h> file is pulled in, too.  It's stupid that an
  70. Xapplication (e.g., perl) should have to do this.  Thus, I fixed
  71. Xthe system header file.  The alternative is to make each application
  72. Xget the header file itself.  (The #if allows the application to do
  73. Xit, though, for compatibility with existing applications.)
  74. X
  75. XTo apply this patch, chdir to /usr/netinclude/sys and run
  76. X    patch <this_file
  77. X
  78. XIf the patch fails, fix the file by hand.  All I've done is put
  79. X#ifndef HDEF
  80. X    /* Len Reed 5/6/91 -- pulling in <sys/time.h> shouldn't cause
  81. X       HDEF to blow up the compile--auto pull in its defining file.
  82. X    */
  83. X# include <sys/twg_config.h>
  84. X#endif
  85. X
  86. Xbefore HDEF is used.
  87. X
  88. X-----The patch starts below this line
  89. X
  90. X*** time.h.old    Fri Feb 14 12:06:46 1992
  91. X--- time.h    Fri Feb 14 12:04:32 1992
  92. X***************
  93. X*** 4,12 ****
  94. X  /*    time.h    6.1    83/07/29    */
  95. X  /* " @(#)time.h (TWG) 2.2 88/05/17 " */
  96. X  
  97. X! /*
  98. X  HDEF( "@(#)$RCSfile: README.ncr,v $$Revision: 4.0.1.1 $$Date: 92/06/08 11:41:41 $" )
  99. X- */
  100. X  
  101. X  /*
  102. X   * Structure returned by gettimeofday(2) system call,
  103. X--- 4,17 ----
  104. X  /*    time.h    6.1    83/07/29    */
  105. X  /* " @(#)time.h (TWG) 2.2 88/05/17 " */
  106. X  
  107. X! #ifndef HDEF
  108. X!     /* Len Reed 5/6/91 -- pulling in <sys/time.h> shouldn't cause
  109. X!        HDEF to blow up the compile--auto pull in its defining file.
  110. X!     */
  111. X! # include <sys/twg_config.h>
  112. X! #endif
  113. X! 
  114. X  HDEF( "@(#)$RCSfile: README.ncr,v $$Revision: 4.0.1.1 $$Date: 92/06/08 11:41:41 $" )
  115. X  
  116. X  /*
  117. X   * Structure returned by gettimeofday(2) system call,
  118. SHAR_EOF
  119. $TOUCH -am 0217113592 patch.twg &&
  120. chmod 0666 patch.twg ||
  121. echo "restore of patch.twg failed"
  122. set `wc -c patch.twg`;Wc_c=$1
  123. if test "$Wc_c" != "1593"; then
  124.     echo original size 1593, current size $Wc_c
  125. fi
  126. # ============= hints/ncr_tower.sh ==============
  127. if test ! -d 'hints'; then
  128.     echo "x - creating directory hints"
  129.     mkdir 'hints'
  130. fi
  131. echo "x - extracting hints/ncr_tower.sh (Text)"
  132. sed 's/^X//' << 'SHAR_EOF' > hints/ncr_tower.sh &&
  133. Xoptimize='-O0'
  134. Xccflags="$ccflags -W2,-Sl,2000"
  135. Xeval_cflags='large="-W0,-XL"'
  136. Xteval_cflags=$eval_cflags
  137. Xd_mkdir=$undef
  138. Xusemymalloc='y'
  139. Xmallocsrc='malloc.c'
  140. Xmallocobj='malloc.o'
  141. SHAR_EOF
  142. $TOUCH -am 0214073692 hints/ncr_tower.sh &&
  143. chmod 0644 hints/ncr_tower.sh ||
  144. echo "restore of hints/ncr_tower.sh failed"
  145. set `wc -c hints/ncr_tower.sh`;Wc_c=$1
  146. if test "$Wc_c" != "176"; then
  147.     echo original size 176, current size $Wc_c
  148. fi
  149. exit 0
  150.  
  151.  
  152.