home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume22 / p2cpatches / part01 next >
Encoding:
Internet Message Format  |  1990-06-07  |  29.3 KB
  1. Subject:  v22i034:  Update kit for p2c Pascal to C translator, Part01/02
  2. Newsgroups: comp.sources.unix
  3. Approved: rsalz@uunet.UU.NET
  4. X-Checksum-Snefru: 8d150bd0 6d105e5d ee3f12e0 032ba92d
  5.  
  6. Submitted-by: David Gillespie <daveg@csvax.caltech.edu>
  7. Posting-number: Volume 22, Issue 34
  8. Archive-name: p2cpatches/part01
  9.  
  10. The following patches convert p2c version 1.14 into p2c version 1.15.  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 such
  17. as "p2c.hdrs" and "p2c.cat".  Those files will be rebuilt by "make
  18. 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    Thu Mar 22 14:27:56 1990
  30. --- ../dist/README    Fri Apr 13 20:59:32 1990
  31. ***************
  32. *** 1,5 ****
  33.   
  34. ! This directory contains "p2c" version 1.14, 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.15, 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    Thu Mar 22 14:27:23 1990
  48. --- ../dist/src/HISTORY    Fri Apr 13 20:58:54 1990
  49. ***************
  50. *** 4,9 ****
  51. --- 4,44 ----
  52.   ------- -- ------- --  ---
  53.   
  54.   
  55. + Version 1.15:
  56. + 
  57. +  * Taught the line breaker to handle logical/relational operators specially.
  58. + 
  59. +  * Improved code generation for large set constructors.
  60. + 
  61. +  * Changed makeexpr_assign to handle EK_LITCAST's on the lefthand side.
  62. + 
  63. +  * Changed makeexpr_addr to handle casts.
  64. + 
  65. +  * Changed FieldMacros so that the substituted base expr retains its type.
  66. + 
  67. +  * Bug fix in p2c.h: Rewrote P_getbits_US and other small-packed-array macros.
  68. +    Symptom: On many architectures, these macros didn't work at all!
  69. +    NOTE: These now pack small arrays in the opposite direction (LSB first).
  70. + 
  71. +  * Bug fix in funcs.c:handleread_text: changed strread of string to use %255s.
  72. +    Symptom: Previous translation of %255c did not append a null character.
  73. + 
  74. +  * Bug fix in p2clib.c:strrtrim: Added test for empty string input.
  75. +    Symptom: Incorrect behavior on strrtrim("").
  76. + 
  77. +  * Bug fix in p2clib.c:P_addsetr: Changed to signed comparison of v1 and v2.
  78. +    Symptom: Adding [0..-1] to a set failed.
  79. + 
  80. +  * Bug fix in p2clib.c:P_expset: Don't write to d[1] if set is empty.
  81. +    Symptom: Sets allocated to store 0 elements didn't work properly.
  82. + 
  83. +  * Added to sys.p2crc/trans.h the following configuration parameters:
  84. + 
  85. +     LogBreakPenalty         Like OpBreakPenalty, but for && and ||.
  86. +     LogBreakExtraPenalty    Like OpBreakExtraPenalty, but for && and ||.
  87. +     RelBreakPenalty         Like OpBreakPenalty, but for <, ==, etc.
  88. +     RelBreakExtraPenalty    Like OpBreakExtraPenalty, but for <, ==, etc.
  89. + 
  90.   Version 1.14:
  91.   
  92.    * Added partial support for Oregon Software Pascal's delete(f) procedure.
  93. ***************
  94. *** 41,47 ****
  95.   
  96.    * Added some extra parentheses to the P_clrbits macros. (!)
  97.   
  98. !  * Added to sys.p2crc/trans.h the following configuration parameter:
  99.   
  100.       CharFileText    Treat "file of char" as identical to "text".
  101.       UseStrncmp        Use strncmp, not memcmp, to compare packed arrays of char.
  102. --- 76,82 ----
  103.   
  104.    * Added some extra parentheses to the P_clrbits macros. (!)
  105.   
  106. !  * Added to sys.p2crc/trans.h the following configuration parameters:
  107.   
  108.       CharFileText    Treat "file of char" as identical to "text".
  109.       UseStrncmp        Use strncmp, not memcmp, to compare packed arrays of char.
  110. Files src/Makefile and ../dist/src/Makefile are identical
  111. Files src/NOTES and ../dist/src/NOTES are identical
  112. Files src/README and ../dist/src/README are identical
  113. Files src/citmods.c and ../dist/src/citmods.c are identical
  114. Files src/comment.c and ../dist/src/comment.c are identical
  115. diff -c -N -r -s src/decl.c ../dist/src/decl.c
  116. *** src/decl.c    Thu Mar 22 14:27:32 1990
  117. --- ../dist/src/decl.c    Fri Apr 13 20:59:09 1990
  118. ***************
  119. *** 2835,2841 ****
  120.       head = NULL;
  121.       for (mp = firstmp; mp; mp = mp->cnext) {
  122.       if (mp->kind == MK_FIELD) {
  123. !         if (mp->val.i == 8 || mp->val.i == 16) {
  124.           if (!head)
  125.               head = mp;
  126.           } else {
  127. --- 2835,2844 ----
  128.       head = NULL;
  129.       for (mp = firstmp; mp; mp = mp->cnext) {
  130.       if (mp->kind == MK_FIELD) {
  131. !         if ((mp->val.i == 8 &&
  132. !          (mp->type == tp_uint ||
  133. !           hassignedchar || signedchars == 1)) ||
  134. !         mp->val.i == 16) {
  135.           if (!head)
  136.               head = mp;
  137.           } else {
  138. Files src/dir.c and ../dist/src/dir.c are identical
  139. diff -c -N -r -s src/expr.c ../dist/src/expr.c
  140. *** src/expr.c    Thu Mar 22 14:27:33 1990
  141. --- ../dist/src/expr.c    Fri Apr 13 20:59:11 1990
  142. ***************
  143. *** 3505,3510 ****
  144. --- 3505,3527 ----
  145.           FREE(a);
  146.           ex->val.type = type;
  147.           return ex;
  148. +     } else if (a->kind == EK_CAST) {
  149. +     return makeexpr_cast(makeexpr_addr(a->args[0]), type);
  150. +     } else if (a->kind == EK_ACTCAST) {
  151. +     return makeexpr_actcast(makeexpr_addr(a->args[0]), type);
  152. +     } else if (a->kind == EK_LITCAST) {
  153. +     if (a->args[0]->kind == EK_NAME) {
  154. +         if (my_strchr(a->args[0]->val.s, '(') ||
  155. +         my_strchr(a->args[0]->val.s, '['))
  156. +         note("Constructing pointer type by adding '*' may be incorrect [322]");
  157. +         return makeexpr_bin(EK_LITCAST, tp_integer,
  158. +                 makeexpr_name(format_s("%s*",
  159. +                                a->args[0]->val.s),
  160. +                           tp_integer),
  161. +                 makeexpr_addr(a->args[1]));
  162. +     } else
  163. +         return makeexpr_bin(EK_LITCAST, tp_integer, makeexpr_type(type),
  164. +                 makeexpr_addr(a->args[1]));
  165.       } else {
  166.           switch (a->val.type->kind) {
  167.           
  168. ***************
  169. *** 4088,4094 ****
  170. --- 4105,4120 ----
  171.   }
  172.   
  173.   
  174. + Meaning *totempvar(ex)
  175. + Expr *ex;
  176. + {
  177. +     while (structuredfunc(ex))
  178. +     ex = ex->args[0];
  179. +     return istempvar(ex);
  180. + }
  181. + 
  182.   
  183. + 
  184.   Meaning *isretvar(ex)
  185.   Expr *ex;
  186.   {
  187. ***************
  188. *** 4416,4432 ****
  189.           return a;
  190.       }
  191.       }
  192. !     while (a->kind == EK_CAST || a->kind == EK_ACTCAST) {
  193. !     if (ansiC < 2 ||     /* in GNU C, a cast is an lvalue */
  194. !         isarithkind(a->args[0]->kind) ||
  195. !         (a->val.type->kind == TK_POINTER &&
  196. !          a->args[0]->val.type->kind == TK_POINTER)) {
  197.           if (a->kind == EK_CAST)
  198.           b = makeexpr_cast(b, a->args[0]->val.type);
  199.           else
  200.           b = makeexpr_actcast(b, a->args[0]->val.type);
  201. !             a = grabarg(a, 0);
  202. !         } else
  203.           break;
  204.       }
  205.       if (a->kind == EK_NEG)
  206. --- 4442,4462 ----
  207.           return a;
  208.       }
  209.       }
  210. !     while (a->kind == EK_CAST || a->kind == EK_ACTCAST ||
  211. !        a->kind == EK_LITCAST) {
  212. !     if (a->kind == EK_LITCAST) {
  213. !         b = makeexpr_cast(b, a->args[1]->val.type);
  214. !         a = grabarg(a, 1);
  215. !     } else if (ansiC < 2 ||    /* in GNU C, a cast is an lvalue */
  216. !            isarithkind(a->args[0]->kind) ||
  217. !            (a->val.type->kind == TK_POINTER &&
  218. !             a->args[0]->val.type->kind == TK_POINTER)) {
  219.           if (a->kind == EK_CAST)
  220.           b = makeexpr_cast(b, a->args[0]->val.type);
  221.           else
  222.           b = makeexpr_actcast(b, a->args[0]->val.type);
  223. !         a = grabarg(a, 0);
  224. !     } else
  225.           break;
  226.       }
  227.       if (a->kind == EK_NEG)
  228. ***************
  229. *** 4928,4934 ****
  230.       if (mp->constdefn) {
  231.           nex = makeexpr(EK_MACARG, 0);
  232.           nex->val.type = tp_integer;
  233. !         ex3 = replaceexprexpr(copyexpr(mp->constdefn), nex, ex);
  234.           freeexpr(ex);
  235.           freeexpr(nex);
  236.           ex = gentle_cast(ex3, mp->val.type);
  237. --- 4958,4964 ----
  238.       if (mp->constdefn) {
  239.           nex = makeexpr(EK_MACARG, 0);
  240.           nex->val.type = tp_integer;
  241. !         ex3 = replaceexprexpr(copyexpr(mp->constdefn), nex, ex, 0);
  242.           freeexpr(ex);
  243.           freeexpr(nex);
  244.           ex = gentle_cast(ex3, mp->val.type);
  245. diff -c -N -r -s src/funcs.c ../dist/src/funcs.c
  246. *** src/funcs.c    Thu Mar 22 14:27:36 1990
  247. --- ../dist/src/funcs.c    Fri Apr 13 20:59:13 1990
  248. ***************
  249. *** 3239,3245 ****
  250.                       break;
  251.   
  252.                   case TK_STRING:     /* strread only */
  253. !                     ex = makeexpr_string(format_d("%%%dc", strmax(fex)));
  254.                       break;
  255.   
  256.                   case TK_ARRAY:      /* strread only */
  257. --- 3239,3245 ----
  258.                       break;
  259.   
  260.                   case TK_STRING:     /* strread only */
  261. !                     ex = makeexpr_string(format_d("%%%lds", strmax(fex)));
  262.                       break;
  263.   
  264.                   case TK_ARRAY:      /* strread only */
  265. Files src/hpmods.c and ../dist/src/hpmods.c are identical
  266. Files src/lex.c and ../dist/src/lex.c are identical
  267. Files src/loc.p2clib.c and ../dist/src/loc.p2clib.c are identical
  268. Files src/loc.p2crc and ../dist/src/loc.p2crc are identical
  269. Files src/makeproto.c and ../dist/src/makeproto.c are identical
  270. diff -c -N -r -s src/out.c ../dist/src/out.c
  271. *** src/out.c    Thu Mar 22 14:27:28 1990
  272. --- ../dist/src/out.c    Fri Apr 13 20:59:05 1990
  273. ***************
  274. *** 534,539 ****
  275. --- 534,540 ----
  276.   
  277.   
  278.   
  279. + 
  280.   /* The following routine explores the tree of all possible line breaks,
  281.      pruning according to the fact that "badness" and "extra" are
  282.      increasing functions.  The object is to find the set of breaks and
  283. ***************
  284. *** 802,807 ****
  285. --- 803,823 ----
  286.               penalty += parenbreakpenalty + parenbreakextrapenalty*i;
  287.           else if (outbuf[pos-2] == ',')
  288.               penalty += commabreakpenalty + commabreakextrapenalty*i;
  289. +         else if (((outbuf[pos] == '&' || outbuf[pos] == '|') &&
  290. +               outbuf[pos+1] == outbuf[pos]) ||
  291. +              ((outbuf[pos-3] == '&' || outbuf[pos-3] == '|') &&
  292. +               outbuf[pos-3] == outbuf[pos-2]))
  293. +             penalty += logbreakpenalty + logbreakextrapenalty*i;
  294. +         else if (((outbuf[pos] == '<' || outbuf[pos] == '>') &&
  295. +               outbuf[pos+1] != outbuf[pos]) ||
  296. +              ((outbuf[pos] == '=' || outbuf[pos] == '!') &&
  297. +               outbuf[pos+1] == '=') ||
  298. +              ((outbuf[pos-2] == '<' || outbuf[pos-2] == '>') &&
  299. +               outbuf[pos-3] != outbuf[pos-2]) ||
  300. +              ((outbuf[pos-3] == '<' || outbuf[pos-3] == '>' ||
  301. +                outbuf[pos-3] == '=' || outbuf[pos-3] == '!') &&
  302. +               outbuf[pos-2] == '='))
  303. +             penalty += relbreakpenalty + relbreakextrapenalty*i;
  304.           else if (outbuf[pos-2] == '=')
  305.               penalty += assignbreakpenalty + assignbreakextrapenalty*i;
  306.           else if (outbuf[pos] == '?') {
  307. diff -c -N -r -s src/p2c.h ../dist/src/p2c.h
  308. *** src/p2c.h    Thu Mar 22 14:27:39 1990
  309. --- ../dist/src/p2c.h    Fri Apr 13 20:59:19 1990
  310. ***************
  311. *** 4,10 ****
  312.   
  313.   /* Header file for code generated by "p2c", the Pascal-to-C translator */
  314.   
  315. ! /* "p2c"  Copyright (C) 1989 Dave Gillespie, version 1.14.
  316.    * This file may be copied, modified, etc. in any way.  It is not restricted
  317.    * by the licence agreement accompanying p2c itself.
  318.    */
  319. --- 4,10 ----
  320.   
  321.   /* Header file for code generated by "p2c", the Pascal-to-C translator */
  322.   
  323. ! /* "p2c"  Copyright (C) 1989 Dave Gillespie, version 1.15.
  324.    * This file may be copied, modified, etc. in any way.  It is not restricted
  325.    * by the licence agreement accompanying p2c itself.
  326.    */
  327. ***************
  328. *** 250,255 ****
  329. --- 250,256 ----
  330.   extern Void     P_readpaoc  PP( (FILE *, Char *, int) );
  331.   extern Void     P_readlnpaoc PP( (FILE *, Char *, int) );
  332.   extern long     P_maxpos    PP( (FILE *) );
  333. + extern Char    *P_trimname  PP( (Char *, int) );
  334.   extern long    *P_setunion  PP( (long *, long *, long *) );
  335.   extern long    *P_setint    PP( (long *, long *, long *) );
  336.   extern long    *P_setdiff   PP( (long *, long *, long *) );
  337. ***************
  338. *** 351,361 ****
  339.                      (((~(i))&((1<<(L)-(n))-1)) << (n))) )
  340.   
  341.   /* small packed arrays */
  342. ! #define P_getbits_US(v,i,n)     ((int)((v) >> (~(i) << (n)) & (1<<(1<<(n)))-1))
  343. ! #define P_getbits_SS(v,i,n)     ((int)((long)(v) << (32 - (((~(i))+1) << (n))) >> (32-(1<<(n)))))
  344. ! #define P_putbits_US(v,i,x,n)   ((v) |= (x) << (~(i) << (n)))
  345. ! #define P_putbits_SS(v,i,x,n)   ((v) |= ((x) & (1<<(1<<(n)))-1) << (~(i) << (n)))
  346. ! #define P_clrbits_S(v,i,n)      ((v) &= ~( ((1<<(1<<(n)))-1) << (~(i) << (n)) ))
  347.   
  348.   #define P_max(a,b)   ((a) > (b) ? (a) : (b))
  349.   #define P_min(a,b)   ((a) < (b) ? (a) : (b))
  350. --- 352,362 ----
  351.                      (((~(i))&((1<<(L)-(n))-1)) << (n))) )
  352.   
  353.   /* small packed arrays */
  354. ! #define P_getbits_US(v,i,n)     ((int)((v) >> ((i)<<(n)) & (1<<(1<<(n)))-1))
  355. ! #define P_getbits_SS(v,i,n)     ((int)((long)(v) << (SETBITS - (((i)+1) << (n))) >> (SETBITS-(1<<(n)))))
  356. ! #define P_putbits_US(v,i,x,n)   ((v) |= (x) << ((i) << (n)))
  357. ! #define P_putbits_SS(v,i,x,n)   ((v) |= ((x) & (1<<(1<<(n)))-1) << ((i)<<(n)))
  358. ! #define P_clrbits_S(v,i,n)      ((v) &= ~( ((1<<(1<<(n)))-1) << ((i)<<(n)) ))
  359.   
  360.   #define P_max(a,b)   ((a) > (b) ? (a) : (b))
  361.   #define P_min(a,b)   ((a) < (b) ? (a) : (b))
  362. diff -c -N -r -s src/p2c.man ../dist/src/p2c.man
  363. *** src/p2c.man    Thu Mar 22 14:27:24 1990
  364. --- ../dist/src/p2c.man    Fri Apr 13 20:58:58 1990
  365. ***************
  366. *** 1,7 ****
  367.   .\" p2c  Copyright 1989 Dave Gillespie
  368.   .TH P2C 1 "local"
  369.   .SH NAME
  370. ! p2c \- Pascal to C translator, version 1.14
  371.   .SH SYNOPSIS
  372.   .B p2c
  373.   [ options ] [ file [ module ] ]
  374. --- 1,7 ----
  375.   .\" p2c  Copyright 1989 Dave Gillespie
  376.   .TH P2C 1 "local"
  377.   .SH NAME
  378. ! p2c \- Pascal to C translator, version 1.15
  379.   .SH SYNOPSIS
  380.   .B p2c
  381.   [ options ] [ file [ module ] ]
  382. diff -c -N -r -s src/p2clib.c ../dist/src/p2clib.c
  383. *** src/p2clib.c    Thu Mar 22 14:27:38 1990
  384. --- ../dist/src/p2clib.c    Fri Apr 13 20:59:15 1990
  385. ***************
  386. *** 236,241 ****
  387. --- 236,243 ----
  388.   {
  389.       register char *s2 = s;
  390.   
  391. +     if (!*s)
  392. +     return s;
  393.       while (*++s2) ;
  394.       while (s2 > s && Isspace(*--s2))
  395.           *s2 = 0;
  396. ***************
  397. *** 474,485 ****
  398.   
  399.   /* Use packed array of char for a file name. */
  400.   
  401. ! char *P_trimname(fn, len)
  402. ! register char *fn;
  403.   register int len;
  404.   {
  405. !     static char fnbuf[256];
  406. !     register char *cp = fnbuf;
  407.       
  408.       while (--len >= 0 && *fn && !isspace(*fn))
  409.       *cp++ = *fn++;
  410. --- 476,487 ----
  411.   
  412.   /* Use packed array of char for a file name. */
  413.   
  414. ! Char *P_trimname(fn, len)
  415. ! register Char *fn;
  416.   register int len;
  417.   {
  418. !     static Char fnbuf[256];
  419. !     register Char *cp = fnbuf;
  420.       
  421.       while (--len >= 0 && *fn && !isspace(*fn))
  422.       *cp++ = *fn++;
  423. ***************
  424. *** 620,626 ****
  425.   {
  426.       register long *sbase = s;
  427.       register int b1, b2, size;
  428. !     if (v1 > v2)
  429.       return sbase;
  430.       b1 = v1 % SETBITS;
  431.       v1 /= SETBITS;
  432. --- 622,628 ----
  433.   {
  434.       register long *sbase = s;
  435.       register int b1, b2, size;
  436. !     if ((int)v1 > (int)v2)
  437.       return sbase;
  438.       b1 = v1 % SETBITS;
  439.       v1 /= SETBITS;
  440. ***************
  441. *** 709,719 ****
  442.   
  443.   long *P_expset(d, s)                /* d := s */
  444.   register long *d;
  445. ! long s;
  446.   {
  447. !     if ((d[1] = s))
  448. !         *d = 1;
  449. !     else
  450.           *d = 0;
  451.       return d;
  452.   }
  453. --- 711,722 ----
  454.   
  455.   long *P_expset(d, s)                /* d := s */
  456.   register long *d;
  457. ! register long s;
  458.   {
  459. !     if (s) {
  460. !     d[1] = s;
  461. !     *d = 1;
  462. !     } else
  463.           *d = 0;
  464.       return d;
  465.   }
  466. diff -c -N -r -s src/parse.c ../dist/src/parse.c
  467. *** src/parse.c    Thu Mar 22 14:27:30 1990
  468. --- ../dist/src/parse.c    Fri Apr 13 20:59:08 1990
  469. ***************
  470. *** 1742,1755 ****
  471.   
  472.   /* Replace all occurrences of one expression with another expression */
  473.   
  474. ! Expr *replaceexprexpr(ex, oldex, newex)
  475.   Expr *ex, *oldex, *newex;
  476.   {
  477.       int i;
  478.       Type *type;
  479.   
  480.       for (i = 0; i < ex->nargs; i++)
  481. !         ex->args[i] = replaceexprexpr(ex->args[i], oldex, newex);
  482.       if (exprsame(ex, oldex, 2)) {
  483.           if (ex->val.type->kind == TK_POINTER &&
  484.               ex->val.type->basetype == oldex->val.type) {
  485. --- 1742,1756 ----
  486.   
  487.   /* Replace all occurrences of one expression with another expression */
  488.   
  489. ! Expr *replaceexprexpr(ex, oldex, newex, keeptype)
  490.   Expr *ex, *oldex, *newex;
  491. + int keeptype;
  492.   {
  493.       int i;
  494.       Type *type;
  495.   
  496.       for (i = 0; i < ex->nargs; i++)
  497. !         ex->args[i] = replaceexprexpr(ex->args[i], oldex, newex, keeptype);
  498.       if (exprsame(ex, oldex, 2)) {
  499.           if (ex->val.type->kind == TK_POINTER &&
  500.               ex->val.type->basetype == oldex->val.type) {
  501. ***************
  502. *** 1763,1769 ****
  503.           type = ex->val.type;
  504.               freeexpr(ex);
  505.               ex = copyexpr(newex);
  506. !         ex->val.type = type;
  507.           return ex;
  508.           }
  509.       }
  510. --- 1764,1771 ----
  511.           type = ex->val.type;
  512.               freeexpr(ex);
  513.               ex = copyexpr(newex);
  514. !         if (keeptype)
  515. !         ex->val.type = type;
  516.           return ex;
  517.           }
  518.       }
  519. ***************
  520. *** 1779,1789 ****
  521.           replaceexpr(sp->stm1, oldex, newex);
  522.           replaceexpr(sp->stm2, oldex, newex);
  523.           if (sp->exp1)
  524. !             sp->exp1 = replaceexprexpr(sp->exp1, oldex, newex);
  525.           if (sp->exp2)
  526. !             sp->exp2 = replaceexprexpr(sp->exp2, oldex, newex);
  527.           if (sp->exp3)
  528. !             sp->exp3 = replaceexprexpr(sp->exp3, oldex, newex);
  529.           sp = sp->next;
  530.       }
  531.   }
  532. --- 1781,1791 ----
  533.           replaceexpr(sp->stm1, oldex, newex);
  534.           replaceexpr(sp->stm2, oldex, newex);
  535.           if (sp->exp1)
  536. !             sp->exp1 = replaceexprexpr(sp->exp1, oldex, newex, 1);
  537.           if (sp->exp2)
  538. !             sp->exp2 = replaceexprexpr(sp->exp2, oldex, newex, 1);
  539.           if (sp->exp3)
  540. !             sp->exp3 = replaceexprexpr(sp->exp3, oldex, newex, 1);
  541.           sp = sp->next;
  542.       }
  543.   }
  544. ***************
  545. *** 1814,1820 ****
  546.            exproccurs(sp->next->exp1->args[1], sp->exp1->args[0]) == 1) {
  547.           sp->next->exp1->args[1] = replaceexprexpr(sp->next->exp1->args[1],
  548.                                                     sp->exp1->args[0],
  549. !                                                   sp->exp1->args[1]);
  550.           if (mp && mp->istemporary)
  551.               canceltempvar(mp);
  552.           return sp->next;
  553. --- 1816,1822 ----
  554.            exproccurs(sp->next->exp1->args[1], sp->exp1->args[0]) == 1) {
  555.           sp->next->exp1->args[1] = replaceexprexpr(sp->next->exp1->args[1],
  556.                                                     sp->exp1->args[0],
  557. !                                                   sp->exp1->args[1], 1);
  558.           if (mp && mp->istemporary)
  559.               canceltempvar(mp);
  560.           return sp->next;
  561. ***************
  562. *** 1992,1998 ****
  563.           case EK_NE:                 /* (a<>b) -> c2 */
  564.               if ((c1->kind == EK_NE) == not1) {
  565.                   if (c1->args[0]->kind == EK_VAR) {
  566. !                     ex = replaceexprexpr(copyexpr(c2), c1->args[0], c1->args[1]);
  567.                       i = expr_is_bool(ex, !not2);
  568.                       freeexpr(ex);
  569.                       if (i)
  570. --- 1994,2000 ----
  571.           case EK_NE:                 /* (a<>b) -> c2 */
  572.               if ((c1->kind == EK_NE) == not1) {
  573.                   if (c1->args[0]->kind == EK_VAR) {
  574. !                     ex = replaceexprexpr(copyexpr(c2), c1->args[0], c1->args[1], 1);
  575.                       i = expr_is_bool(ex, !not2);
  576.                       freeexpr(ex);
  577.                       if (i)
  578. ***************
  579. *** 1999,2005 ****
  580.                           return 1;
  581.                   }
  582.                   if (c1->args[1]->kind == EK_VAR) {
  583. !                     ex = replaceexprexpr(copyexpr(c2), c1->args[1], c1->args[0]);
  584.                       i = expr_is_bool(ex, !not2);
  585.                       freeexpr(ex);
  586.                       if (i)
  587. --- 2001,2007 ----
  588.                           return 1;
  589.                   }
  590.                   if (c1->args[1]->kind == EK_VAR) {
  591. !                     ex = replaceexprexpr(copyexpr(c2), c1->args[1], c1->args[0], 1);
  592.                       i = expr_is_bool(ex, !not2);
  593.                       freeexpr(ex);
  594.                       if (i)
  595. diff -c -N -r -s src/pexpr.c ../dist/src/pexpr.c
  596. *** src/pexpr.c    Thu Mar 22 14:27:34 1990
  597. --- ../dist/src/pexpr.c    Fri Apr 13 20:59:12 1990
  598. ***************
  599. *** 343,349 ****
  600.       mp = makestmttempvar(ex->val.type, name_SET);
  601.           ex2 = makeexpr(EK_MACARG, 0);
  602.           ex2->val.type = ex->val.type;
  603. !     ex = replaceexprexpr(ex, ex2, makeexpr_var(mp));
  604.           freeexpr(ex2);
  605.       } else if (mp->kind == MK_CONST &&
  606.                  (mp == mp_false ||
  607. --- 343,349 ----
  608.       mp = makestmttempvar(ex->val.type, name_SET);
  609.           ex2 = makeexpr(EK_MACARG, 0);
  610.           ex2->val.type = ex->val.type;
  611. !     ex = replaceexprexpr(ex, ex2, makeexpr_var(mp), 0);
  612.           freeexpr(ex2);
  613.       } else if (mp->kind == MK_CONST &&
  614.                  (mp == mp_false ||
  615. ***************
  616. *** 2158,2173 ****
  617.   Expr *ex;
  618.   int env;
  619.   {
  620. !     Expr *ex2, *ex3, **ep;
  621.       Type *type, *type2;
  622. -     Meaning *mp;
  623.       char *cp;
  624.       char sbuf[5];
  625. !     int i;
  626.       Value val;
  627.   
  628.       if (!ex)
  629.           return NULL;
  630.       switch (ex->kind) {
  631.   
  632.           case EK_BICALL:
  633. --- 2158,2173 ----
  634.   Expr *ex;
  635.   int env;
  636.   {
  637. !     Expr *ex2, *ex3;
  638.       Type *type, *type2;
  639.       char *cp;
  640.       char sbuf[5];
  641. !     int i, j;
  642.       Value val;
  643.   
  644.       if (!ex)
  645.           return NULL;
  646. +     if (debug>4) {fprintf(outf, "fixexpr("); dumpexpr(ex); fprintf(outf, ")\n");}
  647.       switch (ex->kind) {
  648.   
  649.           case EK_BICALL:
  650. ***************
  651. *** 2208,2213 ****
  652. --- 2208,2267 ----
  653.                   ex = makeexpr_cond(ex->args[0], ex->args[2], ex2);
  654.               } else if (!strcmp(cp, "assert")) {
  655.                   ex->args[0] = fixexpr(ex->args[0], ENV_BOOL);
  656. +         } else if ((!strcmp(cp, setaddname) ||
  657. +             !strcmp(cp, setaddrangename)) &&
  658. +                (ex2 = ex->args[0])->kind == EK_BICALL &&
  659. +                (!strcmp(ex2->val.s, setaddname) ||
  660. +             !strcmp(ex2->val.s, setaddrangename))) {
  661. +         while (ex2->kind == EK_BICALL &&
  662. +                (!strcmp(ex2->val.s, setaddname) ||
  663. +             !strcmp(ex2->val.s, setaddrangename) ||
  664. +             !strcmp(ex2->val.s, setexpandname)))
  665. +             ex2 = ex2->args[0];
  666. +         if (nosideeffects(ex2, 1)) {
  667. +             ex = makeexpr_comma(ex->args[0], ex);
  668. +             ex->args[1]->args[0] = ex2;
  669. +             ex = fixexpr(ex, env);
  670. +         } else
  671. +             for (i = 0; i < ex->nargs; i++)
  672. +             ex->args[i] = fixexpr(ex->args[i], ENV_EXPR);
  673. +         } else if (!strcmp(cp, setunionname) &&
  674. +                (ex3 = singlevar(ex->args[0])) != NULL &&
  675. +                ((i=1, exprsame(ex->args[0], ex->args[i], 0)) ||
  676. +             (i=2, exprsame(ex->args[0], ex->args[i], 0))) &&
  677. +                !exproccurs(ex3, ex->args[3-i]) &&
  678. +                ex->args[3-i]->kind == EK_BICALL &&
  679. +                (!strcmp(ex->args[3-i]->val.s, setaddname) ||
  680. +             !strcmp(ex->args[3-i]->val.s, setaddrangename) ||
  681. +             (!strcmp(ex->args[3-i]->val.s, setexpandname) &&
  682. +              checkconst(ex->args[3-i]->args[1], 0))) &&
  683. +                totempvar(ex->args[3-i])) {
  684. +         if (!strcmp(ex->args[3-i]->val.s, setexpandname)) {
  685. +             ex = grabarg(ex, 0);
  686. +         } else {
  687. +             ex = makeexpr_comma(ex, ex->args[3-i]);
  688. +             ex->args[0]->args[3-i] = ex->args[1]->args[0];
  689. +             ex->args[1]->args[0] = copyexpr(ex->args[0]->args[0]);
  690. +         }
  691. +         ex = fixexpr(ex, env);
  692. +         } else if (!strcmp(cp, setdiffname) && *setremname &&
  693. +                (ex3 = singlevar(ex->args[0])) != NULL &&
  694. +                exprsame(ex->args[0], ex->args[1], 0) &&
  695. +                !exproccurs(ex3, ex->args[2]) &&
  696. +                ex->args[2]->kind == EK_BICALL &&
  697. +                (!strcmp(ex->args[2]->val.s, setaddname) ||
  698. +             (!strcmp(ex->args[2]->val.s, setexpandname) &&
  699. +              checkconst(ex->args[2]->args[1], 0))) &&
  700. +                totempvar(ex->args[2])) {
  701. +         if (!strcmp(ex->args[2]->val.s, setexpandname)) {
  702. +             ex = grabarg(ex, 0);
  703. +         } else {
  704. +             ex = makeexpr_comma(ex, ex->args[2]);
  705. +             ex->args[0]->args[2] = ex->args[1]->args[0];
  706. +             ex->args[1]->args[0] = copyexpr(ex->args[0]->args[0]);
  707. +             strchange(&ex->args[1]->val.s, setremname);
  708. +         }
  709. +         ex = fixexpr(ex, env);
  710.               } else {
  711.                   for (i = 0; i < ex->nargs; i++)
  712.                       ex->args[i] = fixexpr(ex->args[i], ENV_EXPR);
  713. ***************
  714. *** 2241,2246 ****
  715. --- 2295,2301 ----
  716.                           if (env != ENV_STMT)
  717.                               ex = makeexpr_comma(ex, copyexpr(ex->args[1]));
  718.                       }
  719. + #if 0
  720.           } else if (!strcmp(cp, setunionname) &&
  721.                  (ex3 = singlevar(ex->args[0])) != NULL &&
  722.                  ((i=1, exprsame(ex->args[0], ex->args[i], 0)) ||
  723. ***************
  724. *** 2289,2294 ****
  725. --- 2344,2350 ----
  726.                   ex = ex->args[2];
  727.               }
  728.               }
  729. + #endif
  730.                   } else if (!strcmp(cp, setexpandname) && env == ENV_STMT &&
  731.                              checkconst(ex->args[1], 0)) {
  732.                       ex = makeexpr_assign(makeexpr_hat(ex->args[0], 0),
  733. ***************
  734. *** 2423,2436 ****
  735.               break;
  736.   
  737.           case EK_COMMA:
  738. !             for (i = 0; i < ex->nargs-1; ) {
  739. !                 ex->args[i] = fixexpr(ex->args[i], ENV_STMT);
  740. !                 if (nosideeffects(ex->args[i], 1))
  741.                       delfreearg(&ex, i);
  742. !                 else
  743.                       i++;
  744.               }
  745. -             ex->args[ex->nargs-1] = fixexpr(ex->args[ex->nargs-1], env);
  746.               if (ex->nargs == 1)
  747.                   ex = grabarg(ex, 0);
  748.               break;
  749. --- 2479,2498 ----
  750.               break;
  751.   
  752.           case EK_COMMA:
  753. !             for (i = 0; i < ex->nargs; ) {
  754. !         j = (i < ex->nargs-1);
  755. !                 ex->args[i] = fixexpr(ex->args[i], j ? ENV_STMT : env);
  756. !                 if (nosideeffects(ex->args[i], 1) && j) {
  757.                       delfreearg(&ex, i);
  758. !                 } else if (ex->args[i]->kind == EK_COMMA) {
  759. !             ex2 = ex->args[i];
  760. !             ex->args[i++] = ex2->args[0];
  761. !             for (j = 1; j < ex2->nargs; j++)
  762. !             insertarg(&ex, i++, ex2->args[j]);
  763. !             FREE(ex2);
  764. !         } else
  765.                       i++;
  766.               }
  767.               if (ex->nargs == 1)
  768.                   ex = grabarg(ex, 0);
  769.               break;
  770. ***************
  771. *** 2470,2475 ****
  772. --- 2532,2538 ----
  773.                   ex->args[i] = fixexpr(ex->args[i], ENV_EXPR);
  774.               break;
  775.       }
  776. +     if (debug>4) {fprintf(outf, "fixexpr returns "); dumpexpr(ex); fprintf(outf, "\n");}
  777.       return fix_expression(ex, env);
  778.   }
  779.   
  780. Files src/string.pas and ../dist/src/string.pas are identical
  781. Files src/stuff.c and ../dist/src/stuff.c are identical
  782. diff -c -N -r -s src/sys.p2crc ../dist/src/sys.p2crc
  783. *** src/sys.p2crc    Thu Mar 22 14:27:26 1990
  784. --- ../dist/src/sys.p2crc    Fri Apr 13 20:59:02 1990
  785. ***************
  786. *** 1,4 ****
  787. ! # Standard configuration file for "p2c" 1.14, the Pascal to C translator
  788.   #  Copyright (C) 1989 David Gillespie.
  789.   #  Author's address: daveg@csvax.caltech.edu; 256-80 Caltech/Pasadena CA 91125.
  790.   
  791. --- 1,4 ----
  792. ! # Standard configuration file for "p2c" 1.15, the Pascal to C translator
  793.   #  Copyright (C) 1989 David Gillespie.
  794.   #  Author's address: daveg@csvax.caltech.edu; 256-80 Caltech/Pasadena CA 91125.
  795.   
  796. ***************
  797. *** 412,417 ****
  798. --- 412,429 ----
  799.   
  800.   OpBreakExtraPenalty             # Additional penalty multiplied by nesting
  801.                                   # level of the operator.  Default=20.
  802. + 
  803. + LogBreakPenalty            # Penalty for breaking at an && or || operator.
  804. +                 # Default=5.
  805. + 
  806. + LogBreakExtraPenalty        # Additional penalty multiplied by nesting
  807. +                 # level of the logical operator.  Default=1.
  808. + 
  809. + LogBreakPenalty            # Penalty for breaking at a relational
  810. +                 # operator.  Default=20.
  811. + 
  812. + LogBreakExtraPenalty        # Additional penalty multiplied by nesting
  813. +                 # level of the relational op.  Default=10.
  814.   
  815.   ExHyphenPenalty                 # Additional penalty for breaking a line just
  816.                                   # after a minus sign.  Default=10.  :-)
  817. Files src/system.imp and ../dist/src/system.imp are identical
  818. Files src/system.m2 and ../dist/src/system.m2 are identical
  819. Files src/trans.c and ../dist/src/trans.c are identical
  820. diff -c -N -r -s src/trans.h ../dist/src/trans.h
  821. *** src/trans.h    Thu Mar 22 14:27:40 1990
  822. --- ../dist/src/trans.h    Fri Apr 13 20:59:22 1990
  823. ***************
  824. *** 1,4 ****
  825. ! /* "p2c", a Pascal to C translator, version 1.14.
  826.      Copyright (C) 1989 David Gillespie.
  827.      Author's address: daveg@csvax.caltech.edu; 256-80 Caltech/Pasadena CA 91125.
  828.   
  829. --- 1,4 ----
  830. ! /* "p2c", a Pascal to C translator, version 1.15.
  831.      Copyright (C) 1989 David Gillespie.
  832.      Author's address: daveg@csvax.caltech.edu; 256-80 Caltech/Pasadena CA 91125.
  833.   
  834. ***************
  835. *** 134,140 ****
  836.   extern char *p2c_home;
  837.   #endif
  838.   
  839. ! #define P2C_VERSION  "1.14"
  840.   
  841.   
  842.   
  843. --- 134,140 ----
  844.   extern char *p2c_home;
  845.   #endif
  846.   
  847. ! #define P2C_VERSION  "1.15"
  848.   
  849.   
  850.   
  851. ***************
  852. *** 1064,1069 ****
  853. --- 1064,1071 ----
  854.   extern double assignbreakpenalty, assignbreakextrapenalty;
  855.   extern double specialargbreakpenalty;
  856.   extern double opbreakpenalty, opbreakextrapenalty, exhyphenpenalty;
  857. + extern double logbreakpenalty, logbreakextrapenalty;
  858. + extern double relbreakpenalty, relbreakextrapenalty;
  859.   extern double morebreakpenalty, morebreakextrapenalty;
  860.   extern double parenbreakpenalty, parenbreakextrapenalty;
  861.   extern double qmarkbreakpenalty, qmarkbreakextrapenalty;
  862. ***************
  863. *** 1253,1258 ****
  864. --- 1255,1264 ----
  865.       'R', 'V', "SPECIALARGBREAKPENALTY",(anyptr) &specialargbreakpenalty,   500,
  866.       'R', 'V', "OPBREAKPENALTY",        (anyptr) &opbreakpenalty,          2500,
  867.       'R', 'V', "OPBREAKEXTRAPENALTY",   (anyptr) &opbreakextrapenalty,     2000,
  868. +     'R', 'V', "LOGBREAKPENALTY",       (anyptr) &logbreakpenalty,          500,
  869. +     'R', 'V', "LOGBREAKEXTRAPENALTY",  (anyptr) &logbreakextrapenalty,     100,
  870. +     'R', 'V', "RELBREAKPENALTY",       (anyptr) &relbreakpenalty,         2000,
  871. +     'R', 'V', "RELBREAKEXTRAPENALTY",  (anyptr) &relbreakextrapenalty,    1000,
  872.       'R', 'V', "EXHYPHENPENALTY",       (anyptr) &exhyphenpenalty,         1000,
  873.       'R', 'V', "MOREBREAKPENALTY",      (anyptr) &morebreakpenalty,        -500,
  874.       'R', 'V', "MOREBREAKEXTRAPENALTY", (anyptr) &morebreakextrapenalty,   -300,
  875. Files src/turbo.imp and ../dist/src/turbo.imp are identical
  876.  
  877. exit 0 # Just in case...
  878.