home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume22 / p2cpatches / part02 < prev    next >
Encoding:
Internet Message Format  |  1990-06-07  |  21.1 KB
  1. Subject:  v22i035:  Update kit for p2c Pascal to C translator, Part02/02
  2. Newsgroups: comp.sources.unix
  3. Approved: rsalz@uunet.UU.NET
  4. X-Checksum-Snefru: e1acef03 5743dae4 f13a77d6 22188d02
  5.  
  6. Submitted-by: David Gillespie <daveg@csvax.caltech.edu>
  7. Posting-number: Volume 22, Issue 35
  8. Archive-name: p2cpatches/part02
  9.  
  10. The following patches convert p2c version 1.15 into p2c version 1.16.  To
  11. apply them automatically with Patch v2.0, first cd into your p2c
  12. distribution directory (with subdirectories src, examples, etc.), then
  13. execute "patch -p0 <p2c.patch", where "p2c.patch" is name of this file,
  14. then "cd src" and execute "make install".
  15.  
  16. These patches do not cover the example files, nor reproducible files
  17. such as "p2c.hdrs" and "p2c.cat".  Those files will be rebuilt by
  18. "make install".
  19.  
  20. Enjoy!
  21.                             -- Dave
  22.  
  23. Dave Gillespie
  24. 256-80 Caltech, Pasadena CA 91125
  25. daveg@csvax.caltech.edu, ...!cit-vax!daveg
  26.  
  27.  
  28.  
  29. *** README    Fri Apr 13 21:05:13 1990
  30. --- ../dist/README    Tue May  1 00:10:04 1990
  31. ***************
  32. *** 1,5 ****
  33.   
  34. ! This directory contains "p2c" version 1.15, a Pascal to C translator.
  35.   
  36.   "p2c"  Copyright 1989  Dave Gillespie
  37.                          256-80 Caltech
  38. --- 1,5 ----
  39.   
  40. ! This directory contains "p2c" version 1.16, a Pascal to C translator.
  41.   
  42.   "p2c"  Copyright 1989  Dave Gillespie
  43.                          256-80 Caltech
  44. Files Makefile and ../dist/Makefile are identical
  45. Files src/COPYING and ../dist/src/COPYING are identical
  46. diff -c -N -r -s src/HISTORY ../dist/src/HISTORY
  47. *** src/HISTORY    Fri Apr 13 21:04:41 1990
  48. --- ../dist/src/HISTORY    Tue May  1 00:09:28 1990
  49. ***************
  50. *** 4,9 ****
  51. --- 4,28 ----
  52.   ------- -- ------- --  ---
  53.   
  54.   
  55. + Version 1.16:
  56. + 
  57. +  * Reduced wasteful proliferation of identical-looking temporary variables.
  58. + 
  59. +  * Improved heuristic for determining allocation size for set constructors.
  60. + 
  61. +  * Corrected handling for EOF applied to buffered binary files.
  62. + 
  63. +  * Bug fix in decl.c: Handled a rare case involving forward-declared pointers.
  64. + 
  65. +  * Bug fix in p2clib.c:P_remset: Forgot to fix s[0] if highest bit was cleared.
  66. + 
  67. +  * Bug fix in p2clib.c:P_setxor: Forgot to fix s[0] if highest bits cancelled.
  68. + 
  69. +  * Added to sys.p2crc/trans.h the following configuration parameters:
  70. + 
  71. +     EofBufName      Macro to use for EOF of a bufffered file.
  72. +     FilePosBufName  Macro to use for FILEPOS or POSITION of a buffered file.
  73. + 
  74.   Version 1.15:
  75.   
  76.    * Taught the line breaker to handle logical/relational operators specially.
  77. Files src/Makefile and ../dist/src/Makefile are identical
  78. Files src/NOTES and ../dist/src/NOTES are identical
  79. Files src/README and ../dist/src/README are identical
  80. Files src/citmods.c and ../dist/src/citmods.c are identical
  81. Files src/comment.c and ../dist/src/comment.c are identical
  82. diff -c -N -r -s src/decl.c ../dist/src/decl.c
  83. *** src/decl.c    Fri Apr 13 21:04:49 1990
  84. --- ../dist/src/decl.c    Tue May  1 00:09:41 1990
  85. ***************
  86. *** 1250,1255 ****
  87. --- 1250,1257 ----
  88.           switch (type->kind) {
  89.   
  90.               case TK_POINTER:
  91. +             if (type->smin)    /* unresolved forward */
  92. +             return type;
  93.                   if (type->basetype == tp_void) {     /* ANYPTR */
  94.                       if (tp_special_anyptr)
  95.                           return tp_special_anyptr;   /* write "Anyptr" */
  96. ***************
  97. *** 1774,1782 ****
  98.       if (type == tp_char)
  99.           return tp_ubyte;
  100.       if (type->kind == TK_POINTER) {
  101. !         if (type->basetype->kind == TK_ARRAY ||
  102. !             type->basetype->kind == TK_STRING ||
  103. !             type->basetype->kind == TK_SET)
  104.               return makepointertype(canonicaltype(type->basetype->basetype));
  105.           else if (type->basetype == tp_void)
  106.               return (voidstar) ? tp_anyptr : makepointertype(tp_abyte);
  107. --- 1776,1786 ----
  108.       if (type == tp_char)
  109.           return tp_ubyte;
  110.       if (type->kind == TK_POINTER) {
  111. !     if (type->smin)
  112. !         return type;
  113. !         else if (type->basetype->kind == TK_ARRAY ||
  114. !          type->basetype->kind == TK_STRING ||
  115. !          type->basetype->kind == TK_SET)
  116.               return makepointertype(canonicaltype(type->basetype->basetype));
  117.           else if (type->basetype == tp_void)
  118.               return (voidstar) ? tp_anyptr : makepointertype(tp_abyte);
  119. ***************
  120. *** 1789,1797 ****
  121. --- 1793,1837 ----
  122.   }
  123.   
  124.   
  125. + int identicaltypes(t1, t2)
  126. + Type *t1, *t2;
  127. + {
  128. +     if (t1 == t2)
  129. +     return 1;
  130. +     if (t1->kind == t2->kind) {
  131. +     if (t1->kind == TK_SUBR)
  132. +         return (identicaltypes(t1->basetype, t2->basetype) &&
  133. +             exprsame(t1->smin, t2->smin, 2) &&
  134. +             exprsame(t1->smax, t2->smax, 2));
  135. +     if (t1->kind == TK_SET ||
  136. +         t1->kind == TK_SMALLSET)
  137. +         return (exprsame(t1->indextype->smax,
  138. +                  t2->indextype->smax, 2));
  139. +     if (t1->kind == TK_ARRAY ||
  140. +         t1->kind == TK_STRING ||
  141. +         t1->kind == TK_SMALLARRAY)
  142. +         return (identicaltypes(t1->basetype, t2->basetype) &&
  143. +             identicaltypes(t1->indextype, t2->indextype) &&
  144. +             t1->structdefd == t2->structdefd &&
  145. +             ((!t1->smin && !t2->smin) ||
  146. +              (t1->smin && t2->smin &&
  147. +               exprsame(t1->smin, t2->smin, 2))) &&
  148. +             ((!t1->smax && !t2->smax) ||
  149. +              (t1->smax && t2->smax &&
  150. +               exprsame(t1->smax, t2->smax, 2) &&
  151. +               t1->escale == t2->escale &&
  152. +               t1->issigned == t2->issigned)));
  153. +     }
  154. +     return 0;
  155. + }
  156. + 
  157. + 
  158.   int similartypes(t1, t2)
  159.   Type *t1, *t2;
  160.   {
  161. +     if (debug > 3) { fprintf(outf, "identicaltypes("); dumptypename(t1,1); fprintf(outf, ","); dumptypename(t2,1); fprintf(outf, ") = %d\n", identicaltypes(t1, t2)); }
  162. +     if (identicaltypes(t1, t2))
  163. +     return 1;
  164.       t1 = canonicaltype(t1);
  165.       t2 = canonicaltype(t2);
  166.       return (t1 == t2);
  167. ***************
  168. *** 1857,1865 ****
  169.           default:
  170.               if (findbasetype(tp1, flags) != findbasetype(tp2, flags))
  171.           return 0;
  172. !             while (tp1->kind == TK_POINTER && tp1->basetype)
  173.                   tp1 = tp1->basetype;
  174. !             while (tp2->kind == TK_POINTER && tp2->basetype)
  175.                   tp2 = tp2->basetype;
  176.               return (tp1 == tp2);
  177.       }
  178. --- 1897,1905 ----
  179.           default:
  180.               if (findbasetype(tp1, flags) != findbasetype(tp2, flags))
  181.           return 0;
  182. !             while (tp1->kind == TK_POINTER && !tp1->smin && tp1->basetype)
  183.                   tp1 = tp1->basetype;
  184. !             while (tp2->kind == TK_POINTER && !tp2->smin && tp2->basetype)
  185.                   tp2 = tp2->basetype;
  186.               return (tp1 == tp2);
  187.       }
  188. ***************
  189. *** 2103,2109 ****
  190.           break;
  191.   
  192.           default:
  193. !             if (type->meaning && type->meaning->kind == MK_TYPE &&
  194.                   type->meaning->wasdeclared) {
  195.                   output(type->meaning->name);
  196.               } else {
  197. --- 2143,2153 ----
  198.           break;
  199.   
  200.           default:
  201. !         if (type->kind == TK_POINTER && type->smin) {
  202. !         note("Forward pointer reference assumes struct type [323]");
  203. !         output("struct ");
  204. !         output(format_s(name_STRUCT, type->smin->val.s));
  205. !         } else if (type->meaning && type->meaning->kind == MK_TYPE &&
  206.                   type->meaning->wasdeclared) {
  207.                   output(type->meaning->name);
  208.               } else {
  209. ***************
  210. *** 3582,3587 ****
  211. --- 3626,3632 ----
  212.                   pd->next = ptrbase;
  213.                   ptrbase = pd;
  214.                   tp->basetype = tp_abyte;
  215. +         tp->smin = makeexpr_name(curtokcase, tp_integer);
  216.           anydeferredptrs = 1;
  217.                   gettok();
  218.               } else {
  219. ***************
  220. *** 4331,4337 ****
  221.         case TK_SMALLSET:
  222.         case TK_SET:
  223.       if (curtok == TOK_LBR)
  224. !         return p_setfactor(type);
  225.       break;
  226.       
  227.         default:
  228. --- 4376,4382 ----
  229.         case TK_SMALLSET:
  230.         case TK_SET:
  231.       if (curtok == TOK_LBR)
  232. !         return p_setfactor(type, 1);
  233.       break;
  234.       
  235.         default:
  236. ***************
  237. *** 4548,4554 ****
  238.           tp->meaning->ctx && tp->meaning->ctx != nullctx) {
  239.           pd = ptrbase;   /* Do this now, just in case */
  240.           while (pd) {
  241. !             if (pd->tp->basetype == tp_abyte) {
  242.               mp2 = pd->sym->mbase;
  243.               while (mp2 && !mp2->isactive)
  244.                   mp2 = mp2->snext;
  245. --- 4593,4600 ----
  246.           tp->meaning->ctx && tp->meaning->ctx != nullctx) {
  247.           pd = ptrbase;   /* Do this now, just in case */
  248.           while (pd) {
  249. !             if (pd->tp->smin && pd->tp->basetype == tp_abyte) {
  250. !             pd->tp->smin = NULL;
  251.               mp2 = pd->sym->mbase;
  252.               while (mp2 && !mp2->isactive)
  253.                   mp2 = mp2->snext;
  254. ***************
  255. *** 4701,4707 ****
  256.       deferallptrs = 0;
  257.       while (ptrbase) {
  258.           pd = ptrbase;
  259. !     if (pd->tp->basetype == tp_abyte) {
  260.           mp = pd->sym->mbase;
  261.           while (mp && !mp->isactive)
  262.           mp = mp->snext;
  263. --- 4747,4754 ----
  264.       deferallptrs = 0;
  265.       while (ptrbase) {
  266.           pd = ptrbase;
  267. !     if (pd->tp->smin && pd->tp->basetype == tp_abyte) {
  268. !         pd->tp->smin = NULL;
  269.           mp = pd->sym->mbase;
  270.           while (mp && !mp->isactive)
  271.           mp = mp->snext;
  272. Files src/dir.c and ../dist/src/dir.c are identical
  273. Files src/expr.c and ../dist/src/expr.c are identical
  274. diff -c -N -r -s src/funcs.c ../dist/src/funcs.c
  275. *** src/funcs.c    Fri Apr 13 21:04:53 1990
  276. --- ../dist/src/funcs.c    Tue May  1 00:09:45 1990
  277. ***************
  278. *** 1635,1641 ****
  279.   int code;
  280.   {
  281.       Expr *ex2 = NULL, *ex3 = NULL;
  282. !     Meaning *tvar = NULL;
  283.   
  284.       if (FCheck(checkfileisopen) && !is_std_file(ex)) {
  285.           if (exprspeed(ex) < 5 && nosideeffects(ex, 0)) {
  286. --- 1635,1641 ----
  287.   int code;
  288.   {
  289.       Expr *ex2 = NULL, *ex3 = NULL;
  290. !     Meaning *tvar = NULL, *mp;
  291.   
  292.       if (FCheck(checkfileisopen) && !is_std_file(ex)) {
  293.           if (exprspeed(ex) < 5 && nosideeffects(ex, 0)) {
  294. ***************
  295. *** 1650,1656 ****
  296.       switch (code) {
  297.   
  298.           case 0:  /* eof */
  299. !         if (*eofname)
  300.           ex = makeexpr_bicall_1(eofname, tp_boolean, ex);
  301.           else
  302.           ex = makeexpr_rel(EK_NE, makeexpr_bicall_1("feof", tp_int, ex),
  303. --- 1650,1660 ----
  304.       switch (code) {
  305.   
  306.           case 0:  /* eof */
  307. !             if ((mp = isfilevar(ex)) != NULL &&
  308. !         mp->bufferedfile &&
  309. !         *eofbufname)
  310. !         ex = makeexpr_bicall_1(eofbufname, tp_boolean, ex);
  311. !         else if (*eofname)
  312.           ex = makeexpr_bicall_1(eofname, tp_boolean, ex);
  313.           else
  314.           ex = makeexpr_rel(EK_NE, makeexpr_bicall_1("feof", tp_int, ex),
  315. ***************
  316. *** 1662,1668 ****
  317.               break;
  318.   
  319.           case 2:  /* position or filepos */
  320. !             ex = makeexpr_bicall_1(fileposname, tp_integer, ex);
  321.               break;
  322.   
  323.           case 3:  /* maxpos or filesize */
  324. --- 1666,1677 ----
  325.               break;
  326.   
  327.           case 2:  /* position or filepos */
  328. !             if ((mp = isfilevar(ex)) != NULL &&
  329. !         mp->bufferedfile &&
  330. !         *fileposbufname)
  331. !         ex = makeexpr_bicall_1(fileposbufname, tp_boolean, ex);
  332. !         else
  333. !         ex = makeexpr_bicall_1(fileposname, tp_integer, ex);
  334.               break;
  335.   
  336.           case 3:  /* maxpos or filesize */
  337. Files src/hpmods.c and ../dist/src/hpmods.c are identical
  338. Files src/lex.c and ../dist/src/lex.c are identical
  339. Files src/loc.p2clib.c and ../dist/src/loc.p2clib.c are identical
  340. Files src/loc.p2crc and ../dist/src/loc.p2crc are identical
  341. Files src/makeproto.c and ../dist/src/makeproto.c are identical
  342. Files src/out.c and ../dist/src/out.c are identical
  343. diff -c -N -r -s src/p2c.h ../dist/src/p2c.h
  344. *** src/p2c.h    Fri Apr 13 21:04:56 1990
  345. --- ../dist/src/p2c.h    Tue May  1 00:09:51 1990
  346. ***************
  347. *** 4,10 ****
  348.   
  349.   /* Header file for code generated by "p2c", the Pascal-to-C translator */
  350.   
  351. ! /* "p2c"  Copyright (C) 1989 Dave Gillespie, version 1.15.
  352.    * This file may be copied, modified, etc. in any way.  It is not restricted
  353.    * by the licence agreement accompanying p2c itself.
  354.    */
  355. --- 4,10 ----
  356.   
  357.   /* Header file for code generated by "p2c", the Pascal-to-C translator */
  358.   
  359. ! /* "p2c"  Copyright (C) 1989 Dave Gillespie, version 1.16.
  360.    * This file may be copied, modified, etc. in any way.  It is not restricted
  361.    * by the licence agreement accompanying p2c itself.
  362.    */
  363. ***************
  364. *** 317,322 ****
  365. --- 317,325 ----
  366.   #define PUT(f,type)        (fwrite(&__CAT__(f,_BUFFER),sizeof(type),1,(f)),  \
  367.                   (__CAT__(f,_BFLAGS) = 0))
  368.   #define CPUT(f)            (PUT(f,char))
  369. + 
  370. + #define BUFEOF(f)       (__CAT__(f,_BFLAGS) != 2 && P_eof(f))
  371. + #define BUFFPOS(f)       (ftell(f) - (__CAT__(f,_BFLAGS) == 2))
  372.   
  373.   /* Memory allocation */
  374.   #ifdef __GCC__
  375. diff -c -N -r -s src/p2c.man ../dist/src/p2c.man
  376. *** src/p2c.man    Fri Apr 13 21:04:42 1990
  377. --- ../dist/src/p2c.man    Tue May  1 00:09:31 1990
  378. ***************
  379. *** 1,7 ****
  380.   .\" p2c  Copyright 1989 Dave Gillespie
  381.   .TH P2C 1 "local"
  382.   .SH NAME
  383. ! p2c \- Pascal to C translator, version 1.15
  384.   .SH SYNOPSIS
  385.   .B p2c
  386.   [ options ] [ file [ module ] ]
  387. --- 1,7 ----
  388.   .\" p2c  Copyright 1989 Dave Gillespie
  389.   .TH P2C 1 "local"
  390.   .SH NAME
  391. ! p2c \- Pascal to C translator, version 1.16
  392.   .SH SYNOPSIS
  393.   .B p2c
  394.   [ options ] [ file [ module ] ]
  395. ***************
  396. *** 1493,1500 ****
  397.   .SH AUTHOR
  398.   Dave Gillespie, daveg@csvax.caltech.edu.
  399.   .PP
  400. ! Many thanks to William Bader, Rick Koshi, Eric Raymond, Magne Haveraaen,
  401. ! Dirk Grunwald, David Barto, Paul Fisher, and others whose suggestions and
  402. ! bug reports have helped improve
  403.   .I p2c
  404.   in countless ways.
  405. --- 1493,1500 ----
  406.   .SH AUTHOR
  407.   Dave Gillespie, daveg@csvax.caltech.edu.
  408.   .PP
  409. ! Many thanks to William Bader, Steven Levi, Rick Koshi, Eric Raymond,
  410. ! Magne Haveraaen, Dirk Grunwald, David Barto, Paul Fisher, and others whose
  411. ! suggestions and bug reports have helped improve
  412.   .I p2c
  413.   in countless ways.
  414. diff -c -N -r -s src/p2clib.c ../dist/src/p2clib.c
  415. *** src/p2clib.c    Fri Apr 13 21:04:55 1990
  416. --- ../dist/src/p2clib.c    Tue May  1 00:09:47 1990
  417. ***************
  418. *** 577,583 ****
  419.       *d++ = *s1++;
  420.       while (--sz2 >= 0)
  421.       *d++ = *s2++;
  422. !     *dbase = d - dbase - 1;
  423.       return dbase;
  424.   }
  425.   
  426. --- 577,584 ----
  427.       *d++ = *s1++;
  428.       while (--sz2 >= 0)
  429.       *d++ = *s2++;
  430. !     while (--d > dbase && !*d) ;
  431. !     *dbase = d - dbase;
  432.       return dbase;
  433.   }
  434.   
  435. ***************
  436. *** 656,663 ****
  437.       register int bit;
  438.       bit = val % SETBITS;
  439.       val /= SETBITS;
  440. !     if (++val <= *s)
  441. !     s[val] &= ~(1<<bit);
  442.       return s;
  443.   }
  444.   
  445. --- 657,667 ----
  446.       register int bit;
  447.       bit = val % SETBITS;
  448.       val /= SETBITS;
  449. !     if (++val <= *s) {
  450. !     if (!(s[val] &= ~(1<<bit)))
  451. !         while (*s && !s[*s])
  452. !         (*s)--;
  453. !     }
  454.       return s;
  455.   }
  456.   
  457. Files src/parse.c and ../dist/src/parse.c are identical
  458. diff -c -N -r -s src/pexpr.c ../dist/src/pexpr.c
  459. *** src/pexpr.c    Fri Apr 13 21:04:52 1990
  460. --- ../dist/src/pexpr.c    Tue May  1 00:09:44 1990
  461. ***************
  462. *** 469,485 ****
  463.   
  464.   #define MAXSETLIT 400
  465.   
  466. ! Expr *p_setfactor(type)
  467. ! Type *type;
  468.   {
  469.       Expr *ex, *exmax = NULL, *ex2;
  470.       Expr *first[MAXSETLIT], *last[MAXSETLIT];
  471.       char doneflag[MAXSETLIT];
  472.       int i, j, num, donecount;
  473. !     int isconst, guesstype = 0;
  474.       long maxv, max2;
  475.       Value val;
  476. !     Type *tp;
  477.       Meaning *tvar;
  478.   
  479.       if (curtok == TOK_LBRACE)
  480. --- 469,486 ----
  481.   
  482.   #define MAXSETLIT 400
  483.   
  484. ! Expr *p_setfactor(target, sure)
  485. ! Type *target;
  486. ! int sure;
  487.   {
  488.       Expr *ex, *exmax = NULL, *ex2;
  489.       Expr *first[MAXSETLIT], *last[MAXSETLIT];
  490.       char doneflag[MAXSETLIT];
  491.       int i, j, num, donecount;
  492. !     int isconst, guesstype;
  493.       long maxv, max2;
  494.       Value val;
  495. !     Type *tp, *type;
  496.       Meaning *tvar;
  497.   
  498.       if (curtok == TOK_LBRACE)
  499. ***************
  500. *** 493,500 ****
  501.           val.s = NULL;
  502.           return makeexpr_val(val);
  503.       }
  504. !     if (!type)
  505. !         guesstype = 1;
  506.       maxv = -1;
  507.       isconst = 1;
  508.       num = 0;
  509. --- 494,501 ----
  510.           val.s = NULL;
  511.           return makeexpr_val(val);
  512.       }
  513. !     type = target;
  514. !     guesstype = !sure;
  515.       maxv = -1;
  516.       isconst = 1;
  517.       num = 0;
  518. ***************
  519. *** 510,516 ****
  520.           }
  521.           if (guesstype && num == 0) {
  522.               ex = p_ord_expr();
  523. !             type = ord_type(ex->val.type);
  524.           } else {
  525.               ex = p_expr(type);
  526.           }
  527. --- 511,517 ----
  528.           }
  529.           if (guesstype && num == 0) {
  530.               ex = p_ord_expr();
  531. !         type = ex->val.type;
  532.           } else {
  533.               ex = p_expr(type);
  534.           }
  535. ***************
  536. *** 550,561 ****
  537.       gettok();
  538.       else if (!wneedtok(TOK_RBR))
  539.       skippasttotoken(TOK_RBR, TOK_SEMI);
  540. !     tp = ord_type(first[0]->val.type);
  541.       if (guesstype) {      /* must determine type */
  542. !         if (!exmax || maxv == LONG_MAX) {
  543. !             maxv = defaultsetsize-1;
  544. !             if (ord_range(tp, NULL, &max2) && maxv > max2)
  545.                   maxv = max2;
  546.               exmax = makeexpr_long(maxv);
  547.           } else
  548.               exmax = copyexpr(exmax);
  549. --- 551,566 ----
  550.       gettok();
  551.       else if (!wneedtok(TOK_RBR))
  552.       skippasttotoken(TOK_RBR, TOK_SEMI);
  553. !     tp = first[0]->val.type;
  554.       if (guesstype) {      /* must determine type */
  555. !         if (maxv == LONG_MAX) {
  556. !         if (target && ord_range(target, NULL, &max2))
  557. !         maxv = max2;
  558. !             else if (ord_range(tp, NULL, &max2) && max2 < 1000000 &&
  559. !              (max2 >= defaultsetsize || num == 1))
  560.                   maxv = max2;
  561. +         else
  562. +         maxv = defaultsetsize-1;
  563.               exmax = makeexpr_long(maxv);
  564.           } else
  565.               exmax = copyexpr(exmax);
  566. ***************
  567. *** 1122,1128 ****
  568.   
  569.           case TOK_LBR:
  570.       case TOK_LBRACE:
  571. !             return p_setfactor(NULL);
  572.   
  573.           case TOK_NIL:
  574.               gettok();
  575. --- 1127,1134 ----
  576.   
  577.           case TOK_LBR:
  578.       case TOK_LBRACE:
  579. !             return p_setfactor(target && target->kind == TK_SET
  580. !                    ? target->indextype : NULL, 0);
  581.   
  582.           case TOK_NIL:
  583.               gettok();
  584. ***************
  585. *** 1160,1166 ****
  586.   
  587.                                   case TK_SET:
  588.                                   case TK_SMALLSET:
  589. !                                     return p_setfactor(type->indextype);
  590.   
  591.                                   case TK_RECORD:
  592.                                       return p_constrecord(type, 0);
  593. --- 1166,1172 ----
  594.   
  595.                                   case TK_SET:
  596.                                   case TK_SMALLSET:
  597. !                                     return p_setfactor(type->indextype, 1);
  598.   
  599.                                   case TK_RECORD:
  600.                                       return p_constrecord(type, 0);
  601. Files src/string.pas and ../dist/src/string.pas are identical
  602. Files src/stuff.c and ../dist/src/stuff.c are identical
  603. diff -c -N -r -s src/sys.p2crc ../dist/src/sys.p2crc
  604. *** src/sys.p2crc    Fri Apr 13 21:04:44 1990
  605. --- ../dist/src/sys.p2crc    Tue May  1 00:09:36 1990
  606. ***************
  607. *** 1,4 ****
  608. ! # Standard configuration file for "p2c" 1.15, the Pascal to C translator
  609.   #  Copyright (C) 1989 David Gillespie.
  610.   #  Author's address: daveg@csvax.caltech.edu; 256-80 Caltech/Pasadena CA 91125.
  611.   
  612. --- 1,4 ----
  613. ! # Standard configuration file for "p2c" 1.16, the Pascal to C translator
  614.   #  Copyright (C) 1989 David Gillespie.
  615.   #  Author's address: daveg@csvax.caltech.edu; 256-80 Caltech/Pasadena CA 91125.
  616.   
  617. ***************
  618. *** 1518,1523 ****
  619. --- 1518,1527 ----
  620.   ArrayPutFBufName   APUTFBUF    # A special PutFBuf for files of arrays.
  621.   
  622.   ArrayPutName            # A special Put for files of arrays.
  623. + 
  624. + EofBufName       BUFEOF       # Name of a macro for "eof" of a buffered file.
  625. + 
  626. + FilePosBufName     BUFFPOS    # Name of a macro for buffered "filepos".
  627.   
  628.   
  629.   
  630. Files src/system.imp and ../dist/src/system.imp are identical
  631. Files src/system.m2 and ../dist/src/system.m2 are identical
  632. Files src/trans.c and ../dist/src/trans.c are identical
  633. diff -c -N -r -s src/trans.h ../dist/src/trans.h
  634. *** src/trans.h    Fri Apr 13 21:04:57 1990
  635. --- ../dist/src/trans.h    Tue May  1 00:09:54 1990
  636. ***************
  637. *** 1,4 ****
  638. ! /* "p2c", a Pascal to C translator, version 1.15.
  639.      Copyright (C) 1989 David Gillespie.
  640.      Author's address: daveg@csvax.caltech.edu; 256-80 Caltech/Pasadena CA 91125.
  641.   
  642. --- 1,4 ----
  643. ! /* "p2c", a Pascal to C translator, version 1.16.
  644.      Copyright (C) 1989 David Gillespie.
  645.      Author's address: daveg@csvax.caltech.edu; 256-80 Caltech/Pasadena CA 91125.
  646.   
  647. ***************
  648. *** 134,140 ****
  649.   extern char *p2c_home;
  650.   #endif
  651.   
  652. ! #define P2C_VERSION  "1.15"
  653.   
  654.   
  655.   
  656. --- 134,140 ----
  657.   extern char *p2c_home;
  658.   #endif
  659.   
  660. ! #define P2C_VERSION  "1.16"
  661.   
  662.   
  663.   
  664. ***************
  665. *** 530,535 ****
  666. --- 530,536 ----
  667.    *
  668.    * TK_POINTER:  Pointer type.
  669.    *    tp->basetype => Base type of pointer.
  670. +  *    tp->smin => EK_NAME for type if not-yet-resolved forward; else NULL.
  671.    *    Only one pointer type is ever generated for a given other type;
  672.    *    each tp->pointertype points back to that type if it has been generated.
  673.    *
  674. ***************
  675. *** 1030,1035 ****
  676. --- 1031,1037 ----
  677.   extern char putfbufname[40], charputfbufname[40], arrayputfbufname[40];
  678.   extern char getname[40], chargetname[40], arraygetname[40];
  679.   extern char putname[40], charputname[40], arrayputname[40];
  680. + extern char eofbufname[40], fileposbufname[40];
  681.   extern char storebitsname[40], signextname[40];
  682.   extern char filenotfoundname[40], filenotopenname[40];
  683.   extern char filewriteerrorname[40], badinputformatname[40], endoffilename[40];
  684. ***************
  685. *** 1592,1597 ****
  686. --- 1594,1601 ----
  687.       'C', 'V', "PUTNAME",         (anyptr)  putname,          40,
  688.       'C', 'V', "CHARPUTNAME",     (anyptr)  charputname,      40,
  689.       'C', 'V', "ARRAYPUTNAME",    (anyptr)  arrayputname,     40,
  690. +     'C', 'V', "EOFBUFNAME",      (anyptr)  eofbufname,       40,
  691. +     'C', 'V', "FILEPOSBUFNAME",  (anyptr)  fileposbufname,   40,
  692.   
  693.   /* RANGE CHECKING */
  694.       'S', 'V', "CASECHECK",       (anyptr) &casecheck,         0,
  695. Files src/turbo.imp and ../dist/src/turbo.imp are identical
  696.  
  697. exit 0 # Just in case...
  698.