home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / scheme2c / rec-28se.pat / patches next >
Encoding:
Text File  |  1994-06-30  |  26.1 KB  |  1,031 lines
  1. diff -c -r 28sep90/makefile s2c/makefile
  2. *** 28sep90/makefile    Tue Apr 10 16:48:28 1990
  3. --- s2c/makefile    Tue Nov 13 23:14:42 1990
  4. ***************
  5. *** 16,22 ****
  6. --- 16,51 ----
  7.   VAXBIN = /wrl/vax/bin
  8.   VAXLIB = /wrl/vax/lib
  9.   
  10. + # Architecture specific makefiles are constructed by the
  11. + # following commands.
  12.   
  13. + inplaceCPU:
  14. +     test -f makefile-tail || cp makefile makefile-tail
  15. +     echo "BINDIR = ${BINDIR}"  > makefile
  16. +     echo "LIBDIR = ${LIBDIR}" >> makefile
  17. +     cat makefile-tail            >> makefile
  18. +     test -f doc/makefile-tail || cp doc/makefile doc/makefile-tail
  19. +     echo "SRCDIR = ${SRCDIR}/doc"  > doc/makefile
  20. +     cat doc/makefile-tail           >> doc/makefile
  21. +     cat ${CPU}             > scrt/makefile
  22. +     echo "SRCDIR = ${SRCDIR}/scrt" >> scrt/makefile 
  23. +     echo "CPUDIR = ${CPUDIR}/scrt" >> scrt/makefile
  24. +     echo "BINDIR = ${BINDIR}"      >> scrt/makefile
  25. +     echo "LIBDIR = ${LIBDIR}"      >> scrt/makefile
  26. +     cat scrt/makefile-tail         >> scrt/makefile
  27. +     cat ${CPU}             > scsc/makefile
  28. +     echo "SRCDIR = ${SRCDIR}/scsc" >> scsc/makefile 
  29. +     echo "CPUDIR = ${CPUDIR}/scsc" >> scsc/makefile
  30. +     echo "BINDIR = ${BINDIR}"      >> scsc/makefile
  31. +     echo "LIBDIR = ${LIBDIR}"      >> scsc/makefile
  32. +     cat scsc/makefile-tail         >> scsc/makefile
  33. +     cat ${CPU}             > test/makefile
  34. +     echo "SRCDIR = ${SRCDIR}/test" >> test/makefile 
  35. +     echo "CPUDIR = ${CPUDIR}/test" >> test/makefile
  36. +     echo "BINDIR = ${BINDIR}"      >> test/makefile
  37. +     echo "LIBDIR = ${LIBDIR}"      >> test/makefile
  38. +     cat test/makefile-tail           >> test/makefile
  39. + 
  40.   # Architecture specific directories and links to the source files are
  41.   # constructed by the following commands which follow:
  42.   
  43. ***************
  44. *** 74,79 ****
  45. --- 103,123 ----
  46.   forVAX:
  47.       make "CPU = VAX" "CPUDIR = ${VAXDIR}" \
  48.            "BINDIR = ${VAXBIN}" "LIBDIR = ${VAXLIB}" forCPU
  49. + 
  50. + forI386:
  51. +     make "CPU = I386" "CPUDIR = /usr/local/src/24mar90" \
  52. +          "SRCDIR = /usr/local/src/24mar90" \
  53. +          "BINDIR = /usr/local/bin" "LIBDIR = /usr/local/lib" inplaceCPU
  54. + 
  55. + forISC386IX:
  56. +     make "CPU = ISC386IX" "CPUDIR = /home/28sep90" \
  57. +          "SRCDIR = /home/28sep90" \
  58. +          "BINDIR = /usr/local/bin" "LIBDIR = /usr/local/lib" inplaceCPU
  59. + 
  60. + forSPARC:
  61. +     make "CPU = SPARC" "CPUDIR = /var/tmp/24mar90" \
  62. +          "SRCDIR = /var/tmp/24mar90" \
  63. +          "BINDIR = /usr/local/bin" "LIBDIR = /usr/local/lib" inplaceCPU
  64.   
  65.   # The Scheme->C system is initially compiled from the C sources by the
  66.   # following:
  67. diff -c -r 28sep90/scrt/apply.h s2c/scrt/apply.h
  68. *** 28sep90/scrt/apply.h    Fri Sep 21 15:51:11 1990
  69. --- s2c/scrt/apply.h    Tue Nov 13 23:13:15 1990
  70. ***************
  71. *** 44,49 ****
  72. --- 44,57 ----
  73.      by the compiler to call unknown functions.
  74.   */
  75.   
  76. + #ifdef SPARC
  77. + #define MAXARGS 25
  78. + #endif
  79. + 
  80. + #ifdef I386
  81. + #define MAXARGS 25    /* gcc doesn't appear to set any limit */
  82. + #endif
  83. + 
  84.   #ifdef MIPS
  85.   #define MAXARGS 25    /* Maximum number of required arguments permitted.
  86.                  Note that this does not preclude an optional
  87. diff -c -r 28sep90/scrt/callcc.c s2c/scrt/callcc.c
  88. *** 28sep90/scrt/callcc.c    Fri Sep 21 15:51:55 1990
  89. --- s2c/scrt/callcc.c    Tue Nov 13 23:13:20 1990
  90. ***************
  91. *** 57,62 ****
  92. --- 57,70 ----
  93.   #include "callcc.h"
  94.   #include "apply.h"
  95.   #include "signal.h"
  96. + 
  97. + #ifdef SPARC
  98. + extern    sc_setjmp();
  99. + #pragma unknown_control_flow(sc_setjmp)
  100. + #define setjmp( x )    sc_setjmp( x )
  101. + #define longjmp( x, y )    sc_longjmp( x, y )
  102. + #endif
  103. + 
  104.   #ifdef MIPS
  105.   extern  sc_setsp();
  106.   #endif
  107. diff -c -r 28sep90/scrt/cio.c s2c/scrt/cio.c
  108. *** 28sep90/scrt/cio.c    Fri Sep 21 15:52:03 1990
  109. --- s2c/scrt/cio.c    Tue Nov 13 23:13:26 1990
  110. ***************
  111. *** 46,51 ****
  112. --- 46,69 ----
  113.   #include <sys/time.h>
  114.   #include "objects.h"
  115.   
  116. + #if ISC386IX
  117. + #include <stropts.h>
  118. + #include <poll.h>
  119. + #include <errno.h>
  120. + 
  121. + int rename(old, new) char *old, *new;
  122. + {
  123. +   if (link(old, new) < 0)
  124. +     if (errno == EEXIST && unlink(new) == 0 && link(old, new) < 0)
  125. +       return 0;
  126. +     else
  127. +       return -1;
  128. +   else if (unlink(old) == 0)
  129. +     return 0;
  130. +   return -1;
  131. + }
  132. + #endif
  133. + 
  134.   int  sc_libc_eof = EOF;
  135.   
  136.   /*  feof(stream)  */
  137. ***************
  138. *** 88,100 ****
  139. --- 106,128 ----
  140.       FILE *stream;
  141.   {
  142.       int  readfds, nfound;
  143. + #if ! ISC386IX
  144.       struct  timeval  timeout;
  145. + #else
  146. +     struct pollfd pollfd;
  147. + #endif
  148.       
  149.       if  (((stream)->_cnt) <= 0)  {
  150. + #if ! ISC386IX
  151.          readfds = 1<<(fileno( stream ));
  152.          timeout.tv_sec = 0;
  153.          timeout.tv_usec = 0;
  154.          nfound = select( fileno( stream )+1, &readfds, 0, 0, &timeout );
  155. + #else
  156. +       pollfd.fd = fileno( stream );
  157. +       pollfd.events = POLLIN;
  158. +       nfound = poll(&pollfd, 1, 0);
  159. + #endif
  160.          if  (nfound == 0)  return( 0 );
  161.       }
  162.       return( 1 );
  163. diff -c -r 28sep90/scrt/heap.c s2c/scrt/heap.c
  164. *** 28sep90/scrt/heap.c    Fri Sep 21 15:54:45 1990
  165. --- s2c/scrt/heap.c    Tue Nov 13 23:13:33 1990
  166. ***************
  167. *** 100,108 ****
  168. --- 100,110 ----
  169.   
  170.   int    sc_gcinfo;        /* controls logging */
  171.   
  172. + #if ! SYSV
  173.   static struct rusage gcru,    /* resource consumption during collection */
  174.                    startru,
  175.                      stopru;
  176. + #endif
  177.   
  178.   int    *sc_stackbase;        /* pointer to base of the stack */
  179.   
  180. ***************
  181. *** 111,116 ****
  182. --- 113,119 ----
  183.   
  184.   TSCP    sc_after_2dcollect_v;    /* Collection status callback */
  185.   
  186. + #if ! SYSV
  187.   /* The following function converts a rusage structure into an 18 word Scheme
  188.      vector composed of the same items.
  189.   */
  190. ***************
  191. *** 240,245 ****
  192. --- 243,252 ----
  193.   {
  194.       return( rusagevector( &gcru ) );
  195.   }
  196. + #else
  197. + #define    getrusage(x,y)    /* no operation */
  198. + #define updategcru()    /* no operation */
  199. + #endif        /* SYSV-BSD dependency */
  200.   
  201.   /* Errors detected during garbage collection are logged by the following
  202.      procedure.  If any errors occur, the program will abort after logging
  203. ***************
  204. *** 402,407 ****
  205. --- 409,455 ----
  206.   }
  207.   #endif MIPS
  208.   
  209. + #ifdef SPARC
  210. + /* All processor registers which might contain pointers are traced by the
  211. +    following procedure.
  212. + */
  213. + 
  214. + static  trace_stack_and_registers()
  215. + {
  216. +     int  i, *pp;
  217. +     jmp_buf tmp;
  218. + 
  219. +     pp = STACKPTR;
  220. +     while  (pp != sc_stackbase)  move_continuation_ptr( *pp++ );
  221. + }
  222. + #endif SPARC
  223. + 
  224. + #ifdef I386
  225. + /* The following code is used to read the stack pointer.  The register
  226. +    number is passed in to force an argument to be on the stack, which in
  227. +    turn can be used to find the address of the top of stack.
  228. + */
  229. + 
  230. + int  *sc_processor_register( reg )
  231. +     int  reg;
  232. + {
  233. +     return( ® );
  234. + }
  235. + 
  236. + /* All processor registers which might contain pointers are traced by the
  237. +    following procedure.
  238. + */
  239. + 
  240. + static  trace_stack_and_registers()
  241. + {
  242. +     int  i, *pp;
  243. +     jmp_buf tmp;
  244. + 
  245. +     setjmp(tmp);
  246. +     pp = STACKPTR;
  247. +     while  (pp != sc_stackbase)  move_continuation_ptr( *pp++ );
  248. + }
  249. + #endif I386
  250.   
  251.   /* The size of an extended object in words is returned by the following
  252.      function.
  253. ***************
  254. *** 1421,1426 ****
  255. --- 1469,1475 ----
  256.       getrusage( 0, &stopru );
  257.       updategcru();
  258.       if  (sc_gcinfo)  { 
  259. + #if ! SYSV
  260.          fprintf( stderr,
  261.                   "              %d%% locked  %d%% retained  %d user ms",
  262.               (sc_lockcnt*100)/sc_heappages,
  263. ***************
  264. *** 1430,1435 ****
  265. --- 1479,1490 ----
  266.                  "  %d system ms  %d page faults\n",
  267.               stopru.ru_stime.tv_sec*1000+stopru.ru_stime.tv_usec/1000,
  268.               stopru.ru_majflt );
  269. + #else
  270. +        fprintf( stderr,
  271. +                 "              %d%% locked  %d%% retained\n",
  272. +             (sc_lockcnt*100)/sc_heappages,
  273. +                 (sc_generationpages*100)/sc_heappages);
  274. + #endif
  275.       }
  276.       if  (sc_gcinfo == 2)  {
  277.          /* Perform additional consistency checks */
  278. diff -c -r 28sep90/scrt/heap.h s2c/scrt/heap.h
  279. *** 28sep90/scrt/heap.h    Fri Sep 21 15:54:58 1990
  280. --- s2c/scrt/heap.h    Tue Nov 13 23:13:38 1990
  281. ***************
  282. *** 42,50 ****
  283. --- 42,57 ----
  284.   /* Import definitions */
  285.   
  286.   #ifndef rusage
  287. + #ifdef SPARC
  288. + #include <sys/time.h>
  289. + #include <sys/resource.h>
  290. + #else
  291. + #ifndef SYSV
  292.   #include <time.h>
  293.   #include <sys/resource.h>
  294.   #endif
  295. + #endif
  296. + #endif
  297.   
  298.   /* This module implements the object storage storage system for SCHEME->C.
  299.   
  300. ***************
  301. *** 306,311 ****
  302. --- 313,326 ----
  303.   */
  304.   
  305.   extern int  *sc_stackbase;
  306. + 
  307. + #ifdef I386
  308. + #define STACKPTR sc_processor_register( 4 )
  309. + #endif
  310. + 
  311. + #ifdef SPARC
  312. + #define STACKPTR sc_processor_register( 0 )
  313. + #endif
  314.   
  315.   #ifdef MIPS
  316.   #define STACKPTR sc_processor_register( 29 )
  317. diff -c -r 28sep90/scrt/makefile-tail s2c/scrt/makefile-tail
  318. *** 28sep90/scrt/makefile-tail    Tue Nov 20 01:30:39 1990
  319. --- s2c/scrt/makefile-tail    Tue Nov 13 23:13:44 1990
  320. ***************
  321. *** 66,77 ****
  322.   Xsci:        ${Sruntimec} ${Sruntime} ${Cruntime} ${Aruntime} \
  323.            sci.c sci.o
  324.       ${CC} -o Xsci ${CFLAGS} ${Sruntime} ${Cruntime} ${Aruntime} sci.o \
  325. !           -lm
  326.   
  327.   GGCi:        ${Sruntimec} ${Sruntime} ${Aruntime} GGC.o sci.c sci.o
  328.       make "CFLAGS = -DGGC ${CFLAGS}" GGCheap.o GGCscinit.o
  329.       ${CC} -o GGCi ${CFLAGS} ${Sruntime} ${GGCCruntime} ${Aruntime} sci.o \
  330. !           -lXaw -lXt -lX11 -lm
  331.   
  332.   Xmv:        Xsci Xlibsc.a
  333.       mv Xsci sci
  334. --- 66,77 ----
  335.   Xsci:        ${Sruntimec} ${Sruntime} ${Cruntime} ${Aruntime} \
  336.            sci.c sci.o
  337.       ${CC} -o Xsci ${CFLAGS} ${Sruntime} ${Cruntime} ${Aruntime} sci.o \
  338. !           ${CLIBS}
  339.   
  340.   GGCi:        ${Sruntimec} ${Sruntime} ${Aruntime} GGC.o sci.c sci.o
  341.       make "CFLAGS = -DGGC ${CFLAGS}" GGCheap.o GGCscinit.o
  342.       ${CC} -o GGCi ${CFLAGS} ${Sruntime} ${GGCCruntime} ${Aruntime} sci.o \
  343. !           -lXaw -lXt -lX11 ${CLIBS}
  344.   
  345.   Xmv:        Xsci Xlibsc.a
  346.       mv Xsci sci
  347. diff -c -r 28sep90/scrt/objects.h s2c/scrt/objects.h
  348. *** 28sep90/scrt/objects.h    Fri Sep 21 15:56:06 1990
  349. --- s2c/scrt/objects.h    Tue Nov 13 23:13:51 1990
  350. ***************
  351. *** 44,52 ****
  352. --- 44,60 ----
  353.   
  354.   /* Default the value of CPUTYPE if not currently defined. */
  355.   
  356. + #ifndef SPARC
  357. + #ifndef I386
  358.   #ifndef MIPS
  359.   #ifndef TITAN
  360.   #ifndef VAX
  361. + #ifdef sparc
  362. + #define SPARC 1
  363. + #endif
  364. + #ifdef i386
  365. + #define I386 1
  366. + #endif
  367.   #ifdef mips
  368.   #define MIPS 1
  369.   #endif
  370. ***************
  371. *** 59,64 ****
  372. --- 67,81 ----
  373.   #endif
  374.   #endif
  375.   #endif
  376. + #endif
  377. + #endif
  378. + 
  379. + #ifdef SPARC
  380. + #define MATHTRAPS 0
  381. + #endif
  382. + #ifdef I386
  383. + #define MATHTRAPS 0
  384. + #endif
  385.   
  386.   /* The Scheme->C installer may elect to have arithmetic overflow handled
  387.      gracefully on either the MIPS or the VAX implementations.  The default
  388. ***************
  389. *** 71,76 ****
  390. --- 88,102 ----
  391.   
  392.   /* A machine dependent definition:  the setjmp/longjmp buffer.  */
  393.   
  394. + #ifdef SPARC
  395. + typedef int jmp_buf[2+7+8+8+1];
  396. + #define DOUBLE_ALIGN 1
  397. + #endif
  398. + 
  399. + #ifdef I386
  400. + #include <setjmp.h>
  401. + #define CPUTYPE I386
  402. + #endif
  403.   #ifdef MIPS
  404.   #include <setjmp.h>
  405.   #define CPUTYPE MIPS
  406. ***************
  407. *** 130,141 ****
  408. --- 156,177 ----
  409.             unsigned  gned;
  410.          }  unsi;
  411.          struct {    /* EXTENDEDOBJ */
  412. + #ifndef SPARC
  413.             unsigned  tag:8;
  414.             unsigned  rest:24;
  415. + #else
  416. +           unsigned  rest:24;
  417. +           unsigned  tag:8;
  418. + #endif
  419.          }  extendedobj;
  420.          struct {    /* SYMBOL */
  421. + #ifndef SPARC
  422.             unsigned  tag:8;
  423.             unsigned  rest:24;
  424. + #else
  425. +           unsigned  rest:24;
  426. +           unsigned  tag:8;
  427. + #endif
  428.             TSCP  name;
  429.             TSCP  *ptrtovalue;
  430.             TSCP  value;
  431. ***************
  432. *** 142,172 ****
  433. --- 178,234 ----
  434.             TSCP  propertylist;
  435.          }  symbol;
  436.          struct {    /* STRING */
  437. + #ifndef SPARC
  438.             unsigned  tag:8;
  439.             unsigned  length:24;
  440. + #else
  441. +           unsigned  length:24;
  442. +           unsigned  tag:8;
  443. + #endif
  444.             char  char0;
  445.          }  string;
  446.          struct {    /* VECTOR */
  447. + #ifndef SPARC
  448.             unsigned  tag:8;
  449.             unsigned  length:24;
  450. + #else
  451. +           unsigned  length:24;
  452. +           unsigned  tag:8;
  453. + #endif
  454.             TSCP  element0;
  455.          }  vector;
  456.          struct {    /* PROCEDURE */
  457. + #ifndef SPARC
  458.             unsigned  tag:8;
  459.             unsigned  required:8;
  460.             unsigned  optional:16;
  461. + #else
  462. +           unsigned  optional:16;
  463. +           unsigned  required:8;
  464. +           unsigned  tag:8;
  465. + #endif
  466.             TSCP  (*code)();
  467.             TSCP  closure;
  468.          }  procedure;
  469.          struct {    /* CLOSURE */
  470. + #ifndef SPARC
  471.             unsigned  tag:8;
  472.             unsigned  length:24;
  473. + #else
  474. +           unsigned  length:24;
  475. +           unsigned  tag:8;
  476. + #endif
  477.             TSCP  closure;
  478.             TSCP  var0;
  479.          }  closure;
  480.          struct {    /* CONTINUATION */
  481. + #ifndef SPARC
  482.             unsigned  tag:8;
  483.             unsigned  length:24;
  484. + #else
  485. +           unsigned  length:24;
  486. +           unsigned  tag:8;
  487. + #endif
  488.             TSCP  continuation;
  489.             jmp_buf  savedstate;
  490.             int  *address;
  491. ***************
  492. *** 174,196 ****
  493. --- 236,278 ----
  494.             int  word0;
  495.          }  continuation;
  496.          struct {    /* FLOAT32 */
  497. + #ifndef SPARC
  498.             unsigned  tag:8;
  499.             unsigned  rest:24;
  500. + #else
  501. +           unsigned  rest:24;
  502. +           unsigned  tag:8;
  503. + #endif
  504.             float  value;
  505.          }  float32;
  506.          struct {    /* FLOAT64 */
  507. + #ifndef SPARC
  508.             unsigned  tag:8;
  509.             unsigned  rest:24;
  510. + #else
  511. +           unsigned  rest:24;
  512. +           unsigned  tag:8;
  513. + #endif
  514.             double  value;
  515.          }  float64;
  516.          struct {    /* FORWARD */
  517. + #ifndef SPARC
  518.             unsigned  tag:8;
  519.             unsigned  length:24;
  520. + #else
  521. +           unsigned  length:24;
  522. +           unsigned  tag:8;
  523. + #endif
  524.             TSCP  forward;
  525.          } forward;
  526.          struct {    /* WORDALIGN */
  527. + #ifndef SPARC
  528.             unsigned  tag:8;
  529.             unsigned  length:24;
  530. + #else
  531. +           unsigned  length:24;
  532. +           unsigned  tag:8;
  533. + #endif
  534.          }  wordalign;
  535.          struct {    /* PAIR */
  536.             TSCP  car;
  537. ***************
  538. *** 208,213 ****
  539. --- 290,303 ----
  540.   #define  U_TX( scp ) ((TSCP)((char*)(scp)+EXTENDEDTAG))
  541.   #define  U_TP( scp ) ((TSCP)((char*)(scp)+PAIRTAG))
  542.   #define  T_U( tscp ) ((SCP)((int)(tscp) & (~TAGMASK)))
  543. + #ifdef SPARC
  544. + #define  TX_U( tscp ) ((SCP)((char*)tscp-EXTENDEDTAG))
  545. + #define  TP_U( tscp ) ((SCP)((char*)tscp-PAIRTAG))
  546. + #endif
  547. + #ifdef I386
  548. + #define  TX_U( tscp ) ((SCP)((char*)tscp-EXTENDEDTAG))
  549. + #define  TP_U( tscp ) ((SCP)((char*)tscp-PAIRTAG))
  550. + #endif
  551.   #ifdef MIPS
  552.   #define  TX_U( tscp ) ((SCP)((char*)tscp-EXTENDEDTAG))
  553.   #define  TP_U( tscp ) ((SCP)((char*)tscp-PAIRTAG))
  554. ***************
  555. *** 725,730 ****
  556. --- 815,826 ----
  557.   #define STRING_CHAR( tscp, n )  (*(((unsigned char*)tscp)+FIXED_C( n )+3))
  558.   
  559.   #define VECTOR_LENGTH( tscp )     (TX_U( tscp )->vector.length)
  560. + #ifdef SPARC
  561. + #define VECTOR_ELEMENT( tscp, n ) (*((PATSCP)(((char*)( tscp ))+3+((int)n))))
  562. + #endif
  563. + #ifdef I386
  564. + #define VECTOR_ELEMENT( tscp, n ) (*((PATSCP)(((char*)( tscp ))+3+((int)n))))
  565. + #endif
  566.   #ifdef MIPS
  567.   #define VECTOR_ELEMENT( tscp, n ) (*((PATSCP)(((char*)( tscp ))+3+((int)n))))
  568.   #endif
  569. ***************
  570. *** 752,768 ****
  571. --- 848,880 ----
  572.   
  573.   /* C declarations */
  574.   
  575. + #ifndef SPARC
  576.   #define DEFSTRING( name, chars, len ) \
  577.       static struct { unsigned tag:8; \
  578.                   unsigned length:24; \
  579.                   char char0[len+(4-(len % 4))]; } \
  580.       name = { STRINGTAG, len, chars }
  581. + #else
  582. + #define DEFSTRING( name, chars, len ) \
  583. +     static struct { unsigned length:24; \
  584. +                 unsigned tag:8; \
  585. +                 char char0[len+(4-(len % 4))]; } \
  586. +     name = { len, STRINGTAG, chars }
  587. + #endif
  588.   
  589. + #ifndef SPARC
  590.   #define DEFFLOAT( name, value ) \
  591.       static struct { unsigned tag:8; \
  592.                   unsigned length: 24; \
  593.                   FLOATTYPE f; } \
  594.       name = { FLOATTAG, 0, value }
  595. + #else
  596. + #define DEFFLOAT( name, value ) \
  597. +     static struct { unsigned length:24; \
  598. +                 unsigned tag:8; \
  599. +                 FLOATTYPE f; } \
  600. +     name = { 0, FLOATTAG, value }
  601. + #endif
  602.   
  603.   #define DEFTSCP( name ) TSCP  name
  604.   
  605. diff -c -r 28sep90/scrt/scinit.c s2c/scrt/scinit.c
  606. *** 28sep90/scrt/scinit.c    Fri Sep 21 15:57:01 1990
  607. --- s2c/scrt/scinit.c    Tue Nov 13 23:13:56 1990
  608. ***************
  609. *** 53,58 ****
  610. --- 53,76 ----
  611.   extern  errno;            /* C-library Error flag */
  612.   
  613.   extern  etext;
  614. + #ifdef SPARC
  615. + #define ETEXT    ((int)&etext)    /* First address after text */
  616. + #include <sun4/vmparam.h>
  617. + #define STACKBASE (int*)USRSTACK
  618. + #endif
  619. + #ifdef ISC386IX
  620. + #if I386SHLIB
  621. + int *sc__etext;
  622. + #define ETEXT    ((int)sc__etext) /* first address after text */
  623. + #else
  624. + #define ETEXT    ((int)&etext)    /* first address after text */
  625. + #endif
  626. + #include <sys/types.h>
  627. + #include <sys/fcntl.h>        /* probably should be elsewhere */
  628. + #include <sys/immu.h>
  629. + #define STACKBASE (int*)UVSTACK
  630. + #endif
  631. + /* ditto for SCO */
  632.   #ifdef MIPS
  633.   #define ETEXT    ((int)&etext)    /* First address after text */
  634.   #include <mips/param.h>
  635. ***************
  636. *** 71,80 ****
  637.   #define STACKBASE (int*)USRSTACK
  638.   #endif
  639.   
  640. - #include <sys/file.h>
  641.   #include <sys/types.h>
  642.   #include <sys/uio.h>
  643.   #include <strings.h>
  644.   #include <varargs.h>
  645.   
  646.   /* Definitions for objects within sc */
  647. --- 89,102 ----
  648.   #define STACKBASE (int*)USRSTACK
  649.   #endif
  650.   
  651.   #include <sys/types.h>
  652. + #include <sys/file.h>
  653.   #include <sys/uio.h>
  654. + #if ! SYSV
  655.   #include <strings.h>
  656. + #else
  657. + #include <string.h>
  658. + #endif
  659.   #include <varargs.h>
  660.   
  661.   /* Definitions for objects within sc */
  662. ***************
  663. *** 183,188 ****
  664. --- 205,211 ----
  665.   
  666.   static  init_procs()
  667.   {
  668. + #if ! SYSV
  669.           INITIALIZEVAR( U_TX( ADR( t1030 ) ), 
  670.                          ADR( sc_my_2drusage_v ), 
  671.                          MAKEPROCEDURE( 0, 
  672. ***************
  673. *** 192,197 ****
  674. --- 215,221 ----
  675.                          MAKEPROCEDURE( 0, 
  676.                                         0, 
  677.                                         sc_collect_2drusage, EMPTYLIST ) );
  678. + #endif
  679.           INITIALIZEVAR( U_TX( ADR( t1034 ) ), 
  680.                          ADR( sc_collect_v ), 
  681.                          MAKEPROCEDURE( 0, 
  682. ***************
  683. *** 721,726 ****
  684. --- 745,756 ----
  685.             sc_cons(
  686.                sc_cstringtostring( "28sep90jfb" ),
  687.                sc_cons(
  688. + #ifdef SPARC
  689. +             sc_cstringtostring( "SparcStation-1" ),
  690. + #endif
  691. + #ifdef I386
  692. +             sc_cstringtostring( "AT/386" ),
  693. + #endif
  694.   #ifdef MIPS
  695.               sc_cstringtostring( "DECstation3100" ),
  696.   #endif
  697. ***************
  698. *** 731,736 ****
  699. --- 761,772 ----
  700.               sc_cstringtostring( "VAX" ),
  701.   #endif
  702.               sc_cons(
  703. + #ifdef SPARC
  704. +                sc_cstringtostring( "SPARC" ),
  705. + #endif
  706. + #ifdef I386
  707. +                sc_cstringtostring( "Intel 386" ),
  708. + #endif
  709.   #ifdef MIPS
  710.                  sc_cstringtostring( "R2000" ),
  711.   #endif
  712. ***************
  713. *** 741,747 ****
  714. --- 777,792 ----
  715.                  sc_cstringtostring( "VAX" ),
  716.   #endif
  717.                  sc_cons(
  718. + #ifdef SPARC
  719. +               sc_cstringtostring( "SunOS" ),
  720. + #else
  721. + #if VAX || TITAN || MIPS
  722.                     sc_cstringtostring( "ULTRIX" ),
  723. + #endif
  724. + #if SYSV
  725. +               sc_cstringtostring( "System V.3.2" ),
  726. + #endif
  727. + #endif
  728.                     sc_cons(
  729.                     FALSEVALUE,
  730.                     EMPTYLIST
  731. ***************
  732. *** 752,755 ****
  733. --- 797,805 ----
  734.                )
  735.                 )
  736.             );
  737. + 
  738. + 
  739. + 
  740. + 
  741. + 
  742.   }
  743. diff -c -r 28sep90/scrt/signal.c s2c/scrt/signal.c
  744. *** 28sep90/scrt/signal.c    Fri Sep 21 16:00:13 1990
  745. --- s2c/scrt/signal.c    Sat Nov 17 12:44:37 1990
  746. ***************
  747. *** 92,101 ****
  748. --- 92,106 ----
  749.      hardware traps.
  750.   */
  751.   
  752. + #if SYSV
  753. + void  sc_onsignal1( signal )
  754. +     int  signal;
  755. + #else
  756.   void  sc_onsignal1( signal, code, scp )
  757.       int  signal,
  758.            code;
  759.       struct sigcontext*  scp;
  760. + #endif
  761.   {
  762.       int  i;
  763.       struct  {            /* Save sc_unknowncall's state here */
  764. ***************
  765. *** 104,109 ****
  766. --- 109,122 ----
  767.          int     count;
  768.       } save;
  769.   
  770. + #if SYSV
  771. +     /* Reset the signal, might be more prudent later? */
  772. +     {
  773. +       extern TSCP scrt4_signals_v;
  774. +       scrt4_signal(INT_TSCP(signal),
  775. +                VECTOR_ELEMENT(scrt4_signals_v, INT_TSCP(signal)));
  776. +     }
  777. + #endif
  778.       if  (sc_mutex == 0  &&  gcinprogress == 0)  {
  779.          /* Save sc_unknowncall's state */
  780.          for  (i = 0; i < 4; i++)  save.proc[ i ] = sc_unknownproc[ i ];
  781. ***************
  782. *** 118,124 ****
  783. --- 131,141 ----
  784.       }
  785.       else  {
  786.          /* Signal must be defered */
  787. + #if SYSV
  788. +        sighold( signal );
  789. + #else
  790.          sigblock( 1<<signal );
  791. + #endif
  792.          pendingsignals = pendingsignals | (1<<signal);
  793.          if  (gcinprogress == 0)  sc_pendingsignals = 1;
  794.       }
  795. ***************
  796. *** 150,161 ****
  797.       /* Send the pending signals and exit the critical section */
  798.       sc_pendingsignals = 0;
  799.       self = getpid();
  800.       oldmask = sigblock( -1 ) & ~pendingsignals;
  801.       for  (i = 0; i < 32; i++)
  802. !        if  (pendingsignals & (1<<i))  kill( self, i );
  803.       pendingsignals = 0;
  804.       sc_mutex = 0;
  805.       sigsetmask( oldmask );
  806.   
  807.       /* Apply the when-unreferenced procedures */
  808.       while  (freed != EMPTYLIST)  {
  809. --- 167,187 ----
  810.       /* Send the pending signals and exit the critical section */
  811.       sc_pendingsignals = 0;
  812.       self = getpid();
  813. + #if ! SYSV
  814.       oldmask = sigblock( -1 ) & ~pendingsignals;
  815. + #endif
  816.       for  (i = 0; i < 32; i++)
  817. !       if  (pendingsignals & (1<<i)) {
  818. ! #if SYSV
  819. !         sigrelse( i );
  820. ! #endif
  821. !         kill( self, i );
  822. !       }
  823.       pendingsignals = 0;
  824.       sc_mutex = 0;
  825. + #if ! SYSV
  826.       sigsetmask( oldmask );
  827. + #endif
  828.   
  829.       /* Apply the when-unreferenced procedures */
  830.       while  (freed != EMPTYLIST)  {
  831. ***************
  832. *** 182,191 ****
  833. --- 208,226 ----
  834.      exceptions.
  835.   */
  836.   
  837. + #if SYSV
  838. + sc_trap_handler (sig)
  839. +     int  sig;
  840. + #else
  841.   sc_trap_handler (sig,code,scp)
  842.       int sig, code;
  843.       struct sigcontext *scp;
  844. + #endif
  845.   {
  846. + #if SYSV
  847. +     signal(sig, sc_trap_handler);
  848. +     sc_error( "???? (in sc_trap_handler)", "Floating point exception", 0 );
  849. + #endif
  850.   #if  (TITAN || (MATHTRAPS == 0))
  851.       sc_error( "???? (in sc_trap_handler)", "Floating point exception", 0 );
  852.   #endif
  853. diff -c -r 28sep90/scsc/makefile-tail s2c/scsc/makefile-tail
  854. *** 28sep90/scsc/makefile-tail    Thu Aug 17 14:25:26 1989
  855. --- s2c/scsc/makefile-tail    Tue Nov 13 23:14:09 1990
  856. ***************
  857. *** 35,41 ****
  858.   sc-to-c:    ${scc}
  859.   
  860.   Xsccomp:    ${scc} ${sco} ${rt}
  861. !     ${CC} -o Xsccomp ${CFLAGS} ${sco} ${rt} -lm
  862.       
  863.   Xsccomp.heap:    Xsccomp
  864.       Xsccomp ../scrt/predef.sc ../scrt/objects.h ../scrt/libsc.a \
  865. --- 35,41 ----
  866.   sc-to-c:    ${scc}
  867.   
  868.   Xsccomp:    ${scc} ${sco} ${rt}
  869. !     ${CC} -o Xsccomp ${CFLAGS} ${sco} ${rt} ${CLIBS}
  870.       
  871.   Xsccomp.heap:    Xsccomp
  872.       Xsccomp ../scrt/predef.sc ../scrt/objects.h ../scrt/libsc.a \
  873. diff -c -r 28sep90/test/makefile-tail s2c/test/makefile-tail
  874. *** 28sep90/test/makefile-tail    Mon Apr  9 20:03:14 1990
  875. --- s2c/test/makefile-tail    Tue Nov 13 23:14:15 1990
  876. ***************
  877. *** 3,9 ****
  878.   #
  879.   
  880.   sccomp = ../scsc/sccomp
  881. - CC = cc
  882.   CFLAGS = -g
  883.   rt = ../scrt/libsc.a
  884.   n = n must be defined
  885. --- 3,8 ----
  886. ***************
  887. *** 46,72 ****
  888.       ${sccomp} -schf ${sccomp}.heap -c ${CFLAGS} $*.c
  889.   
  890.   test:    test.c test.o testchk.c testchk.o ${batch-c} ${batch-o}
  891. !     ${CC} -o test ${CFLAGS} test.o testchk.o ${batch-o} ${rt} -lm
  892.   
  893.   testn:    testchk.c testchk.o ${rt} 
  894. !     ${sccomp} -schf ${sccomp}.heap -i ${CFLAGS} -o test${n} test${n}.sc \
  895.             testchk.o ${rt}
  896.   
  897.   test50:    test50.c test50.o
  898. !     ${CC} -o test50 ${CFLAGS} test50.o ${rt} -lm
  899.   
  900.   test51:    test51.c test51.o
  901. !     ${CC} -o test51 ${CFLAGS} test51.o ${rt} -lm
  902.   
  903.   test52:    test52.c test52.o
  904. !     ${CC} -o test52 ${CFLAGS} test52.o ${rt} -lm
  905.   
  906.   test53:    test53.sc
  907.       ${sccomp} -schf ${sccomp}.heap -i -o test53 ${CFLAGS} test53.sc \
  908. !           ${rt} -lm
  909.   
  910.   test54:    test54.c test54.o test54c.o testchk.o
  911. !     ${CC} -o test54 ${CFLAGS} test54.o test54c.o testchk.o ${rt} -lm
  912.   
  913.   port:
  914.   
  915. --- 45,72 ----
  916.       ${sccomp} -schf ${sccomp}.heap -c ${CFLAGS} $*.c
  917.   
  918.   test:    test.c test.o testchk.c testchk.o ${batch-c} ${batch-o}
  919. !     ${CC} -o test ${CFLAGS} test.o testchk.o ${batch-o} ${rt} ${CLIBS}
  920.   
  921.   testn:    testchk.c testchk.o ${rt} 
  922. !     ${sccomp} -schf ${sccomp}.heap -cc ${CC} -i ${CFLAGS}\
  923. !           -o test${n} test${n}.sc \
  924.             testchk.o ${rt}
  925.   
  926.   test50:    test50.c test50.o
  927. !     ${CC} -o test50 ${CFLAGS} test50.o ${rt} ${CLIBS}
  928.   
  929.   test51:    test51.c test51.o
  930. !     ${CC} -o test51 ${CFLAGS} test51.o ${rt} ${CLIBS}
  931.   
  932.   test52:    test52.c test52.o
  933. !     ${CC} -o test52 ${CFLAGS} test52.o ${rt} ${CLIBS}
  934.   
  935.   test53:    test53.sc
  936.       ${sccomp} -schf ${sccomp}.heap -i -o test53 ${CFLAGS} test53.sc \
  937. !           ${rt} ${CLIBS}
  938.   
  939.   test54:    test54.c test54.o test54c.o testchk.o
  940. !     ${CC} -o test54 ${CFLAGS} test54.o test54c.o testchk.o ${rt} ${CLIBS}
  941.   
  942.   port:
  943.   
  944. diff -c -r 28sep90/test/test16.sc s2c/test/test16.sc
  945. *** 28sep90/test/test16.sc    Thu Feb 22 21:11:07 1990
  946. --- s2c/test/test16.sc    Tue Nov 13 23:14:21 1990
  947. ***************
  948. *** 52,57 ****
  949. --- 52,60 ----
  950.   ;;; *.*  Extensions for accessing C structures.  At the moment, they assume
  951.   ;;;      that the bits are ordered like the VAX.
  952.   
  953. +   (let ((big-endian (member (list-ref (implementation-information) 3)
  954. +                 '("SPARC"))))
  955. + 
  956.       (let ((s (make-string 10 #\*)))
  957.        (c-byte-set! s 0 (char->integer #\S))
  958.        (c-byte-set! s 1 (char->integer #\c))
  959. ***************
  960. *** 71,84 ****
  961.       (let ((s (make-string 10 #\*)))
  962.        (c-int-set! s 0 #xffff)
  963.        (chk 10 (c-int-ref s 0) #xffff)
  964. !      (chk 11 (c-shortunsigned-ref s 0) #xffff)
  965. !      (chk 12 (c-shortunsigned-ref s 2) 0)
  966. !      (chk 13 (c-shortint-ref s 0) -1)
  967. !      (chk 14 (c-shortint-ref s 2) 0)
  968. !      (c-shortint-set! s 2 -1)
  969. !      (chk 15 (c-int-ref s 0) -1)
  970. !      (c-shortunsigned-set! s 0 #xfffe)
  971. !      (chk 16 (c-int-ref s 0) -2))
  972.   
  973.       (let ((s (make-string 10 #\*)))
  974.        (c-unsigned-set! s 0 (- (expt 2 32) 1))
  975. --- 74,98 ----
  976.       (let ((s (make-string 10 #\*)))
  977.        (c-int-set! s 0 #xffff)
  978.        (chk 10 (c-int-ref s 0) #xffff)
  979. !      (if big-endian
  980. !          (begin
  981. !            (chk 11 (c-shortunsigned-ref s 2) #xffff)
  982. !            (chk 12 (c-shortunsigned-ref s 0) 0)
  983. !            (chk 13 (c-shortint-ref s 2) -1)
  984. !            (chk 14 (c-shortint-ref s 0) 0)
  985. !            (c-shortint-set! s 0 -1)
  986. !            (chk 15 (c-int-ref s 0) -1)
  987. !            (c-shortunsigned-set! s 2 #xfffe)
  988. !            (chk 16 (c-int-ref s 0) -2))
  989. !          (begin
  990. !            (chk 11 (c-shortunsigned-ref s 0) #xffff)
  991. !            (chk 12 (c-shortunsigned-ref s 2) 0)
  992. !            (chk 13 (c-shortint-ref s 0) -1)
  993. !            (chk 14 (c-shortint-ref s 2) 0)
  994. !            (c-shortint-set! s 2 -1)
  995. !            (chk 15 (c-int-ref s 0) -1)
  996. !            (c-shortunsigned-set! s 0 #xfffe)
  997. !            (chk 16 (c-int-ref s 0) -2))))
  998.   
  999.       (let ((s (make-string 10 #\*)))
  1000.        (c-unsigned-set! s 0 (- (expt 2 32) 1))
  1001. ***************
  1002. *** 99,105 ****
  1003.   
  1004.       (let ((s (make-string 10 #\*))
  1005.         (v (make-vector 10 -1)))
  1006. !      (chk 40 (scheme-byte-ref s 1) 10)
  1007.        (chk 41 (scheme-byte-ref s 4) (char->integer #\*))
  1008.        (chk 42 (scheme-byte-ref s 14) 0)
  1009.        (scheme-byte-set! s 5 (char->integer #\^))
  1010. --- 113,121 ----
  1011.   
  1012.       (let ((s (make-string 10 #\*))
  1013.         (v (make-vector 10 -1)))
  1014. !          (if big-endian
  1015. !          (chk 40 (scheme-byte-ref s 2) 10)
  1016. !          (chk 40 (scheme-byte-ref s 1) 10))
  1017.        (chk 41 (scheme-byte-ref s 4) (char->integer #\*))
  1018.        (chk 42 (scheme-byte-ref s 14) 0)
  1019.        (scheme-byte-set! s 5 (char->integer #\^))
  1020. ***************
  1021. *** 123,126 ****
  1022.        (chk 55 (bit-or 1 3 5) 7)
  1023.        (chk 56 (bit-xor 1 3 5) 7)
  1024.        (chk 57 (bit-lsh 1 31) 2147483648.)
  1025. !      (chk 58 (bit-rsh -1 31) 1))
  1026. --- 139,142 ----
  1027.        (chk 55 (bit-or 1 3 5) 7)
  1028.        (chk 56 (bit-xor 1 3 5) 7)
  1029.        (chk 57 (bit-lsh 1 31) 2147483648.)
  1030. !      (chk 58 (bit-rsh -1 31) 1)))
  1031.