home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1250 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  20.4 KB
  1. From: Steve.Bleazard@Robobar.Co.Uk
  2. Newsgroups: comp.unix.xenix,alt.sources
  3. Subject: Xenix 386 GCC: an interim patch.
  4. Message-ID: <1990May1.172424.9185@robobar.co.uk>
  5. Date: 1 May 90 17:24:24 GMT
  6.  
  7. [ If you're looking for the archive sub-headers, there aren't any.
  8.   Wait for the complete patch kit if you need them :-) ]
  9.  
  10. Here are some enhancements to my port of GCC to Xenix.  A complete patch
  11. kit relative to the original GNU distribution will be posted to
  12. comp.sources.misc soon.  This patch kit is for those of you who have
  13. already installed my other kits and want to upgrade NOW.  This will
  14. bring you almost to the same release level as binary kits I distribute marked
  15. 1.37.1c <-- note the 'c'.
  16.  
  17. *** ../gcc-1.37.old/c-parse.y    Wed Jan 17 06:13:26 1990
  18. --- ./c-parse.y    Tue Apr 24 11:07:55 1990
  19. ***************
  20. *** 1783,1788 ****
  21. --- 1783,1829 ----
  22.             && getc (finput) == 'm'
  23.             && getc (finput) == 'a'
  24.             && ((c = getc (finput)) == ' ' || c == '\t' || c == '\n'))
  25. + #ifdef PRAGMA_PACK
  26. +       {
  27. +         token = yylex();
  28. +             if (token != IDENTIFIER) 
  29. +             goto skipline;
  30. + 
  31. +             if (strcmp(token_buffer, "pack") != 0)
  32. +                 goto skipline;
  33. +         
  34. +         token = yylex();
  35. +           if (token != '(') {
  36. +             error ("invalid #pragma pack expecting '('");
  37. +             goto skipline;
  38. +         }
  39. + 
  40. +         /* setup default alignment first */
  41. + 
  42. +         pragma_pack_default();
  43. + 
  44. +         token = yylex();
  45. +         if (token != ')')
  46. +         {
  47. +             if (token == CONSTANT
  48. +                 && TREE_CODE (yylval.ttype) == INTEGER_CST) {
  49. +                 int l = TREE_INT_CST_LOW (yylval.ttype);
  50. +                 pragma_pack(l);
  51. +             }
  52. +             else {
  53. +                 error ("invalid #pragma pack expecting 1, 2 or 4");
  54. +                 goto skipline;
  55. +             }
  56. + 
  57. +             token = yylex();
  58. +         }
  59. + 
  60. +           if (token != ')') {
  61. +             error ("invalid #pragma pack expecting ')'");
  62. +             goto skipline;
  63. +         }
  64. +         }
  65. + #endif
  66.           goto skipline;
  67.       }
  68.   
  69. *** ../gcc-1.37.old/Changes.Xenix    Thu Jan  1 00:00:00 1970
  70. --- ./Changes.Xenix    Mon Apr 30 20:57:14 1990
  71. ***************
  72. *** 0 ****
  73. --- 1,52 ----
  74. + Here are some enhancements to my port of GCC to Xenix.  A complete patch
  75. + kit relative to the original GNU distribution will be posted to
  76. + comp.sources.misc soon.  This patch kit is for those of you who have
  77. + already installed my other kits and want to upgrade NOW.  This will
  78. + bring you almost to the same release level as binary kits I distribute marked
  79. + 1.37.1c <-- note the 'c'.
  80. + 
  81. +         o  made TARGET_DEFAULT 1, which implies default -m80387.
  82. + 
  83. +         o  fixed gcc -p to make the result compatible with Microsoft's
  84. +            profiling support.  Results largely untested by me.
  85. + 
  86. +         o  fixed linker specification to handle -s -r -u and -F
  87. +            (the last is ignored by ld, but is useful so as not to break
  88. +             existing Makefiles)
  89. + 
  90. +         o  added optional support for Microsoft's #pragma pack()
  91. +            hack.  This enables people compile GNU Make, my ranlib(CP) and
  92. +            Ron Kuris's GDB port with GCC.  This is switched on by default,
  93. +            but can be disabled by removing #define PRAGMA_PACK from
  94. +            tm-xenix386.h.  This modification will in any case not take effect
  95. +            until the first #pragma pack() is seen in any one source file.
  96. +            A program to test this "feature" called  packtest.c is included
  97. +            Check its leading comment for instructions.
  98. + 
  99. +            When compiled in, it will identify its presence in the cc1 -version
  100. +            output string.
  101. + 
  102. +         o  undefined PCC_BITFIELD_TYPE_MATTERS because I *suspect* that
  103. +            it may interfere with #pragma pack() and its behaviour was not
  104. +            compatible with MSC in the first place.  It still isn't
  105. +            (when your structures have bitfields in them).
  106. + 
  107. +            I think this means that if you need Microsoft binary
  108. +            compatibility, you will have to edit your .h files to put
  109. +            explicit padding into structs that have bitfields where Microsoft
  110. +            seems to do so by default.  Or you could hack stor-layout.c :-)
  111. + 
  112. +         o  removed stddef.h hack -- moved into Makefile.  This is needed for
  113. +            the item immediately below.  Please remove -D_SIZE_T when
  114. +            compiling GCC with GCC, e.g. by following our original instructions.
  115. + 
  116. +         o  Ronald's hack of a include file fixer included (fix.h.xenix).
  117. +            Running it with the -all flag will allow you to compile gcc with
  118. +            gcc without the -traditional flag (if you already have a working
  119. +            gcc, or for the stage2 build) READ IT FIRST, because it's only
  120. +            likely to work for you out of the packet if your include files
  121. +            look exactly like ours.
  122. + 
  123. +         o  ASM_SPEC in tm-xenix386.h: pass -v flag to gas from gcc.
  124. + 
  125. +         o  Enabled production of DBX debugging information for future use.
  126. *** ../gcc-1.37.old/Makefile    Tue Apr 24 00:34:17 1990
  127. --- ./Makefile    Tue Apr 24 11:08:03 1990
  128. ***************
  129. *** 21,27 ****
  130.   # Variables that exist for you to override.
  131.   # See below for how to change them for certain systems.
  132.   
  133. ! CFLAGS = -g $(XCFLAGS)
  134.   CC = cc
  135.   BISON = bison
  136.   BISONFLAGS = -v
  137. --- 21,27 ----
  138.   # Variables that exist for you to override.
  139.   # See below for how to change them for certain systems.
  140.   
  141. ! CFLAGS = -g $(XCFLAGS) -D_SIZE_T
  142.   CC = cc
  143.   BISON = bison
  144.   BISONFLAGS = -v
  145. ***************
  146. *** 28,34 ****
  147.   AR = ar
  148.   SHELL = /bin/sh
  149.   # on sysV, define this as cp.
  150. ! INSTALL = install -c
  151.   
  152.   # Compiler to use for compiling gnulib.
  153.   # OLDCC should not be the GNU C compiler.
  154. --- 28,34 ----
  155.   AR = ar
  156.   SHELL = /bin/sh
  157.   # on sysV, define this as cp.
  158. ! INSTALL = cp
  159.   
  160.   # Compiler to use for compiling gnulib.
  161.   # OLDCC should not be the GNU C compiler.
  162. ***************
  163. *** 145,151 ****
  164.    symout.o dbxout.o sdbout.o emit-rtl.o insn-emit.o \
  165.    integrate.o jump.o cse.o loop.o flow.o stupid.o combine.o \
  166.    regclass.o local-alloc.o global-alloc.o reload.o reload1.o caller-save.o \
  167. !  insn-peep.o final.o recog.o insn-recog.o insn-extract.o insn-output.o
  168.   
  169.   # Files to be copied away after each stage in building.
  170.   STAGE_GCC=gcc
  171. --- 145,151 ----
  172.    symout.o dbxout.o sdbout.o emit-rtl.o insn-emit.o \
  173.    integrate.o jump.o cse.o loop.o flow.o stupid.o combine.o \
  174.    regclass.o local-alloc.o global-alloc.o reload.o reload1.o caller-save.o \
  175. !  insn-peep.o final.o recog.o insn-recog.o insn-extract.o insn-output.o pragma.o
  176.   
  177.   # Files to be copied away after each stage in building.
  178.   STAGE_GCC=gcc
  179. *** ../gcc-1.37.old/config/tm-xenix386.h    Tue Apr 24 00:34:20 1990
  180. --- ./config/tm-xenix386.h    Mon Apr 30 20:41:53 1990
  181. ***************
  182. *** 26,37 ****
  183.   
  184.   /* By default, target has a no 80387.  */
  185.   
  186. ! #define TARGET_DEFAULT 0
  187.   
  188.   /* Use crt1.o as a startup file and crtn.o as a closing file.  */
  189.   
  190. ! #define STARTFILE_SPEC  "Sseg.o%s Scrt0.o%s"
  191.   
  192.   #define LIB_SPEC "Slibcfp.a%s Slibc.a%s"
  193.   
  194.   #define LINK_SPEC "-i"
  195. --- 26,41 ----
  196.   
  197.   /* By default, target has a no 80387.  */
  198.   
  199. ! #define TARGET_DEFAULT 1
  200.   
  201.   /* Use crt1.o as a startup file and crtn.o as a closing file.  */
  202.   
  203. ! #define STARTFILE_SPEC  "Sseg.o%s %{!p:Scrt0.o%s} %{p:Smcrt0.o%s}"
  204.   
  205. + /* -v is appropriate for use with GAS */
  206. + 
  207. + #define ASM_SPEC    "%{v}"
  208. + 
  209.   #define LIB_SPEC "Slibcfp.a%s Slibc.a%s"
  210.   
  211.   #define LINK_SPEC "-i"
  212. ***************
  213. *** 55,63 ****
  214.   
  215.   #undef SDB_DEBUGGING_INFO
  216.   
  217. ! /* We don't want to output DBX debugging information.  */
  218.   
  219. ! #undef DBX_DEBUGGING_INFO
  220.   
  221.   /* Implicit library calls should use memcpy, not bcopy, etc.  */
  222.   
  223. --- 59,67 ----
  224.   
  225.   #undef SDB_DEBUGGING_INFO
  226.   
  227. ! /* We want to output DBX debugging information.  */
  228.   
  229. ! #define DBX_DEBUGGING_INFO
  230.   
  231.   /* Implicit library calls should use memcpy, not bcopy, etc.  */
  232.   
  233. ***************
  234. *** 65,71 ****
  235.   
  236.   /* Writing `int' for a bitfield forces int alignment for the structure.  */
  237.   
  238. ! #define PCC_BITFIELD_TYPE_MATTERS
  239.   
  240.   /* Generate an external symbol request for __fltused if 80387 selected */
  241.   
  242. --- 69,75 ----
  243.   
  244.   /* Writing `int' for a bitfield forces int alignment for the structure.  */
  245.   
  246. ! #undef PCC_BITFIELD_TYPE_MATTERS
  247.   
  248.   /* Generate an external symbol request for __fltused if 80387 selected */
  249.   
  250. ***************
  251. *** 99,101 ****
  252. --- 103,113 ----
  253.   
  254.   #undef ASM_OUTPUT_CASE_END
  255.   #define ASM_OUTPUT_CASE_END(FILE,NUM,INSN) text_section()
  256. + 
  257. + #undef FUNCTION_PROFILER
  258. + #define FUNCTION_PROFILER(FILE, LABELNO)  \
  259. +    fprintf (FILE, "\tmovl $%sP%d,%%edx\n\tcall __mcount\n", LPREFIX, (LABELNO));
  260. + 
  261. + /* Implement Microsoft C compatible #pragma pack() */
  262. + 
  263. + #define PRAGMA_PACK
  264. *** ../gcc-1.37.old/config/tm-xgas386.h    Tue Apr 24 00:34:20 1990
  265. --- ./config/tm-xgas386.h    Tue Apr 24 11:07:57 1990
  266. ***************
  267. *** 18,24 ****
  268. --- 18,28 ----
  269.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  270.   
  271.   
  272. + #ifdef PRAGMA_PACK
  273. + #define TARGET_VERSION fprintf (stderr, " (80386, Xenix GAS syntax, #pragma pack() support included)");
  274. + #else
  275.   #define TARGET_VERSION fprintf (stderr, " (80386, Xenix GAS syntax)");
  276. + #endif
  277.   
  278.   /* Define the syntax of instructions and addresses.  */
  279.   
  280. *** ../gcc-1.37.old/fix.h.xenix    Thu Jan  1 00:00:00 1970
  281. --- ./fix.h.xenix    Wed Apr 25 17:52:02 1990
  282. ***************
  283. *** 0 ****
  284. --- 1,146 ----
  285. + :
  286. + # @(#)$Header: /pdsrc/Local/RCS/fix.h.xenix,v 1.1 90/04/25 18:51:21 root Exp $
  287. + #
  288. + # (C) Copyright 1990 Ronald Khoo <ronald@robobar.co.uk>
  289. + # Permission granted to use or abuse this program for any purpose,
  290. + # provided that all modified copies are clearly marked as such.
  291. + # No warranty is given for the fitness of this program for any purpose.
  292. + # Please treat this file as a document saying what I did and not a program.
  293. + # Please mail me any changes you make, I will coordinate patches.
  294. + #
  295. + # This is a quick hack to fix the SCO Xenix 386 include files so that
  296. + # they work correctly with gcc.  No attempt has been made to do this
  297. + # in a general way whatsoever, and this script was not made with any
  298. + # reference to the GCC fixincludes script:  I still have no idea what
  299. + # that does.  This works (ish) for me.  Your mileage may vary.
  300. + # My include files were from the 2.3.2 operating system and the 2.3
  301. + # development system.  I'll be interested to hear what works for 2.2 based
  302. + # systems.
  303. + #
  304. + # If your stddef.h says #ifdef M_XENIX #define _SIZE_T, remove those 3 lines.
  305. + # (That was a hack Steve put in that is no longer needed once you run this
  306. + #  program)
  307. + # You should also change the typedef of size_t in there to read:
  308. + # typedef unsigned int size_t;
  309. + #
  310. + # * stream edit files from /usr/include and /usr/include/sys
  311. + #   into /usr/local/lib/gcc-include, skipping those which are
  312. + #   provided by GCC.
  313. + # * make all references to M_I386 refer to __M_I386__ instead.
  314. + #   This enables programs compiled with gcc -ansi not to coredump.
  315. + #   This only works with gcc so don't give these hacked .h files to cc !!
  316. + # * put protection #ifdef tests to all files to allow them to be safely
  317. + #   multiply included.
  318. + # * time_t and size_t seem to be typedefed all over the place.  Protect them.
  319. + #
  320. + # My sys/signal.h seemed to define some things as void and some as int. Barf.
  321. + # I made it all say void by using the probably flakey ed script below
  322. + # that's only run if you give the -all argument.
  323. + # It works for me, but I don't trust it to work with your sys/signal.h
  324. + # without your looking at it first.
  325. + # I don't know how to write a C parser in sed.
  326. + #
  327. + # I also made the buffer arguments in stdio.h to fread and fwrite
  328. + # void* instead of char* because I prefer to limit the warning messages I read
  329. + # to those that matter.  What does ANSI say they should be ?
  330. + # You should remove declaration of va_list from stdio.h.  This is bogus.
  331. + # Both these are also done in another ed script below that's only run if
  332. + # you say -all.
  333. + #
  334. + # $Log:    fix.h.xenix,v $
  335. + # Revision 1.1  90/04/25  18:51:21  root
  336. + # Initial revision
  337. + # 
  338. + 
  339. + PATH=/etc:/bin:/usr/bin export PATH
  340. + 
  341. + # usage: /usr/local/lib/fix.h.xenix [ -all ]
  342. + # saying -all implies that you have stock 2.3 Dev Sys include files and
  343. + # you want them to look like mine.
  344. + 
  345. + script='
  346. + /M_I386/s//__&__/g
  347. + /typedef.*[     ]time_t/ {
  348. + i\
  349. + #ifndef _TIME_T
  350. + i\
  351. + #define _TIME_T
  352. + a\
  353. + #endif /* _TIME_T */
  354. + }
  355. + /typedef.*[     ]size_t/ {
  356. + i\
  357. + #ifndef _SIZE_T
  358. + i\
  359. + #define _SIZE_T
  360. + a\
  361. + #endif /* _SIZE_T */
  362. + }
  363. + '
  364. + 
  365. + [ -d /usr/local/lib/gcc-include ] || mkdir /usr/local/lib/gcc-include
  366. + [ -d /usr/local/lib/gcc-include/sys ] || mkdir /usr/local/lib/gcc-include/sys
  367. + 
  368. + cd /usr/include
  369. + for i in *.h  sys/*.h
  370. + do
  371. + case $i in
  372. + assert.h)    ;;    # Use the GCC supplied versions of these 6 files
  373. + float.h)    ;;
  374. + limits.h)    ;;
  375. + stdarg.h)    ;;
  376. + stddef.h)    ;;
  377. + varargs.h)    ;;
  378. + *)
  379. +     echo Hacking $i >&2
  380. +     name=_INCLUDED_`echo $i | tr './[a-z]' '__[A-Z]'`_AUTOFIX
  381. +     echo "#ifndef $name" > /usr/local/lib/gcc-include/$i
  382. +     echo "#define $name" >> /usr/local/lib/gcc-include/$i
  383. +     sed -e "$script" $i >> /usr/local/lib/gcc-include/$i
  384. +     echo "#endif /* $name */" >> /usr/local/lib/gcc-include/$i
  385. + ;;
  386. + esac
  387. + done
  388. + 
  389. + # This is the bit which tries to edit sys/signal.h
  390. + burp1()
  391. + {
  392. +     echo Hacking sys/signal.h again. Yawn. >&2
  393. +     ed - /usr/local/lib/gcc-include/sys/signal.h <<'EOF'
  394. +     g/^#define.*int[     ]*(\*)/s/int/void/g
  395. +     w
  396. +     q
  397. + EOF
  398. + }
  399. + 
  400. + # This is the bit which tries to edit stdio.h
  401. + burp2()
  402. + {
  403. +     echo Hacking stdio.h again. Yawn. >&2
  404. +     ed - /usr/local/lib/gcc-include/stdio.h <<'EOF'
  405. +     g/typedef.*va_list/d
  406. +     g/^extern.*fread/s/char/void/
  407. +     g/^extern.*fwrite/s/char/void/
  408. +     w
  409. +     q
  410. + EOF
  411. + }
  412. + 
  413. + # Only call with -all if you think your include files look enough like
  414. + # mine for these scripts to work.
  415. + if [ x$1 = x-all ] ; then
  416. +     burp1
  417. +     burp2
  418. + fi
  419. + 
  420. + cd /usr/local/lib/gcc-include
  421. + find . -print | xargs chown bin
  422. + find . -print | xargs chgrp bin
  423. + find . -type f -print | xargs chmod 664
  424. + chmod 775  /usr/local/lib/gcc-include /usr/local/lib/gcc-include/sys
  425. + echo '
  426. + 
  427. + done. Enjoy.
  428. + 
  429. + --Ronald.
  430. + ' >&2
  431. *** ../gcc-1.37.old/gcc.c    Tue Apr 24 00:34:19 1990
  432. --- ./gcc.c    Tue Apr 24 11:07:53 1990
  433. ***************
  434. *** 208,213 ****
  435. --- 208,224 ----
  436.   
  437.   /* This defines which switch letters take arguments.  */
  438.   
  439. + #ifdef M_XENIX
  440. + #ifndef SWITCH_TAKES_ARG
  441. + #define SWITCH_TAKES_ARG(CHAR)      \
  442. +   ((CHAR) == 'D' || (CHAR) == 'U' || (CHAR) == 'o' \
  443. +    || (CHAR) == 'e' || (CHAR) == 'T' || (CHAR) == 'u' \
  444. +    || (CHAR) == 'I' || (CHAR) == 'Y' || (CHAR) == 'm' \
  445. +    || (CHAR) == 'L' || (CHAR) == 'i' || (CHAR) == 'A' \
  446. +    || (CHAR) == 'F')
  447. + #endif
  448. + #endif
  449. + 
  450.   #ifndef SWITCH_TAKES_ARG
  451.   #define SWITCH_TAKES_ARG(CHAR)      \
  452.     ((CHAR) == 'D' || (CHAR) == 'U' || (CHAR) == 'o' \
  453. ***************
  454. *** 417,423 ****
  455.   
  456.   /* Here is the spec for running the linker, after compiling all files.  */
  457.   #ifdef M_XENIX
  458. ! char *link_spec = "%{!c:%{!M*:%{!E:%{!S:ld %{o*} %l %{g:-g}\
  459.    %{!nostdlib:%S} %{!o:-o a.out} %o %Z %{!nostdlib:gnulib%s %L }\n }}}}";
  460.   #else /* not M_XENIX */
  461.   char *link_spec = "%{!c:%{!M*:%{!E:%{!S:ld %{o*} %l\
  462. --- 428,435 ----
  463.   
  464.   /* Here is the spec for running the linker, after compiling all files.  */
  465.   #ifdef M_XENIX
  466. ! char *link_spec = "%{!c:%{!M*:%{!E:%{!S:ld %{o*} %l %{g:-g} \
  467. !  %{A} %{F} %{r} %{s} %{u*} \
  468.    %{!nostdlib:%S} %{!o:-o a.out} %o %Z %{!nostdlib:gnulib%s %L }\n }}}}";
  469.   #else /* not M_XENIX */
  470.   char *link_spec = "%{!c:%{!M*:%{!E:%{!S:ld %{o*} %l\
  471. *** ../gcc-1.37.old/pragma.c    Thu Jan  1 00:00:00 1970
  472. --- ./pragma.c    Tue Apr 24 11:07:57 1990
  473. ***************
  474. *** 0 ****
  475. --- 1,26 ----
  476. + #define DEFAULT_ALIGN    32
  477. + 
  478. + static int pack_align = DEFAULT_ALIGN;
  479. + static int was_pragma = 0;
  480. + 
  481. + pragma_pack(val)
  482. + int val;
  483. + {
  484. +     pack_align = 8 * val;
  485. +     was_pragma = 1;
  486. + }
  487. + 
  488. + pragma_align_val()
  489. + {
  490. +     return pack_align;
  491. + }
  492. + 
  493. + pragma_pack_default()
  494. + {
  495. +     pack_align = DEFAULT_ALIGN;
  496. + }
  497. + 
  498. + int pragma_pack_seen()
  499. + {
  500. +     return was_pragma;
  501. + }
  502. *** ../gcc-1.37.old/stddef.h    Tue Apr 24 00:34:19 1990
  503. --- ./stddef.h    Tue Apr 24 11:07:53 1990
  504. ***************
  505. *** 7,16 ****
  506.   
  507.   /* Unsigned type of `sizeof' something.  */
  508.   
  509. - #ifdef M_XENIX
  510. - #define _SIZE_T
  511. - #endif
  512. - 
  513.   #ifndef _SIZE_T    /* in case <sys/types.h> has defined it. */
  514.   #define _SIZE_T
  515.   typedef unsigned long size_t;
  516. --- 7,12 ----
  517. *** ../gcc-1.37.old/stor-layout.c    Wed Jan 17 18:21:06 1990
  518. --- ./stor-layout.c    Tue Apr 24 11:07:56 1990
  519. ***************
  520. *** 498,503 ****
  521. --- 498,507 ----
  522.        or some divisor of it.  */
  523.   
  524.         layout_decl (field, var_size ? size_unit : const_size);
  525. + #ifdef PRAGMA_PACK
  526. +       if (pragma_pack_seen())
  527. +         DECL_ALIGN(field) = MIN(pragma_align_val(), DECL_ALIGN(field));
  528. + #endif
  529.         desired_align = DECL_ALIGN (field);
  530.   
  531.         /* Record must have at least as much alignment as any field.
  532. *** ../gcc-1.37.old/c-parse.tab.c    Wed Jan 17 06:13:47 1990
  533. --- ./c-parse.tab.c    Tue Apr 24 11:08:01 1990
  534. ***************
  535. *** 2906,2911 ****
  536. --- 2906,2952 ----
  537.             && getc (finput) == 'm'
  538.             && getc (finput) == 'a'
  539.             && ((c = getc (finput)) == ' ' || c == '\t' || c == '\n'))
  540. + #ifdef PRAGMA_PACK
  541. +       {
  542. +         token = yylex();
  543. +             if (token != IDENTIFIER)
  544. +             goto skipline;
  545. + 
  546. +             if (strcmp(token_buffer, "pack") != 0)
  547. +                 goto skipline;
  548. + 
  549. +         token = yylex();
  550. +           if (token != '(') {
  551. +             error ("invalid #pragma pack expecting '('");
  552. +             goto skipline;
  553. +         }
  554. + 
  555. +         /* setup default alignment first */
  556. + 
  557. +         pragma_pack_default();
  558. + 
  559. +         token = yylex();
  560. +         if (token != ')')
  561. +         {
  562. +             if (token == CONSTANT
  563. +                 && TREE_CODE (yylval.ttype) == INTEGER_CST) {
  564. +                 int l = TREE_INT_CST_LOW (yylval.ttype);
  565. +                 pragma_pack(l);
  566. +             }
  567. +             else {
  568. +                 error ("invalid #pragma pack expecting 1, 2 or 4");
  569. +                 goto skipline;
  570. +             }
  571. + 
  572. +             token = yylex();
  573. +         }
  574. + 
  575. +           if (token != ')') {
  576. +             error ("invalid #pragma pack expecting ')'");
  577. +             goto skipline;
  578. +         }
  579. +         }
  580. + #endif
  581.           goto skipline;
  582.       }
  583.   
  584. *** packtest.c.old    Thu Jan  1 00:00:00 1970
  585. --- packtest.c    Mon Apr 30 20:57:14 1990
  586. ***************
  587. *** 0 ****
  588. --- 1,95 ----
  589. + static char *rcsid = "@(#)$Header: /pdsrc/Local/RCS/packtest.c,v 1.1 90/04/26 17:50:35 root Exp $";
  590. + 
  591. + /*
  592. +  * Regression test to check that gcc's #pragma pack() support does the
  593. +  * same thing as Microsoft C's.
  594. +  *
  595. +  * Run with this command from sh, not csh, since SCO's csh is BROKEN.
  596. +  * cc packtest.c && ./a.out > m && gcc packtest.c && ./a.out > g && diff m g
  597. +  * You should not see any output.
  598. +  *
  599. +  * $Log:    packtest.c,v $
  600. +  * Revision 1.1  90/04/26  17:50:35  root
  601. +  * Initial revision
  602. +  * 
  603. +  */
  604. + 
  605. + #pragma pack(4)
  606. + struct s1 {
  607. +     char one;
  608. +     int  two;
  609. +     long three;
  610. +     double four;
  611. + } s1;
  612. + #pragma pack(2)
  613. + struct s2 {
  614. +     char one;
  615. +     int  two;
  616. +     long three;
  617. +     double four;
  618. + } s2;
  619. + #pragma pack(1)
  620. + struct s3 {
  621. +     char one;
  622. +     int  two;
  623. +     long three;
  624. +     double four;
  625. + } s3;
  626. + #pragma pack()
  627. + struct s4 {
  628. +     char one;
  629. +     int  two;
  630. +     long three;
  631. +     double four;
  632. + } s4;
  633. + struct biggie {
  634. +     struct s3 x1;
  635. +     struct s1 b1;
  636. +     struct s3 x2;
  637. +     struct s2 b2;
  638. +     struct s3 x3;
  639. +     struct s3 b3;
  640. +     struct s3 x4;
  641. +     struct s4 b4;
  642. + } b;
  643. + #define offsetof(TYPE, MEMBER) ((unsigned) &((TYPE *)0)->MEMBER)
  644. + main()
  645. + {
  646. +     printf("% 4d% 4d% 4d\n",
  647. +         offsetof(struct s1, two),
  648. +         offsetof(struct s1, three),
  649. +         offsetof(struct s1, four));
  650. +     printf("% 4d% 4d% 4d\n",
  651. +         offsetof(struct s2, two),
  652. +         offsetof(struct s2, three),
  653. +         offsetof(struct s2, four));
  654. +     printf("% 4d% 4d% 4d\n",
  655. +         offsetof(struct s3, two),
  656. +         offsetof(struct s3, three),
  657. +         offsetof(struct s3, four));
  658. +     printf("% 4d% 4d% 4d\n",
  659. +         offsetof(struct s4, two),
  660. +         offsetof(struct s4, three),
  661. +         offsetof(struct s4, four));
  662. +     printf("\n% 4d% 4d% 4d\n",
  663. +         ((char *)&b.b1.two) - ((char *)&b.b1.one),
  664. +         ((char *)&b.b1.three) - ((char *)&b.b1.one),
  665. +         ((char *)&b.b1.four) - ((char *)&b.b1.one));
  666. +     printf("% 4d% 4d% 4d\n",
  667. +         ((char *)&b.b2.two) - ((char *)&b.b2.one),
  668. +         ((char *)&b.b2.three) - ((char *)&b.b2.one),
  669. +         ((char *)&b.b2.four) - ((char *)&b.b2.one));
  670. +     printf("% 4d% 4d% 4d\n",
  671. +         ((char *)&b.b3.two) - ((char *)&b.b3.one),
  672. +         ((char *)&b.b3.three) - ((char *)&b.b3.one),
  673. +         ((char *)&b.b3.four) - ((char *)&b.b3.one));
  674. +     printf("% 4d% 4d% 4d\n\n",
  675. +         ((char *)&b.b4.two) - ((char *)&b.b4.one),
  676. +         ((char *)&b.b4.three) - ((char *)&b.b4.one),
  677. +         ((char *)&b.b4.four) - ((char *)&b.b4.one));
  678. +     printf("    % 4d% 4d\n", sizeof b.b1, (char *)&b.b1 - (char *)&b);
  679. +     printf("    % 4d% 4d\n", sizeof b.b2, (char *)&b.b2 - (char *)&b);
  680. +     printf("    % 4d% 4d\n", sizeof b.b3, (char *)&b.b3 - (char *)&b);
  681. +     printf("    % 4d% 4d\n", sizeof b.b4, (char *)&b.b4 - (char *)&b);
  682. +     exit(0);
  683. + }
  684.  
  685. -- 
  686. Steve.Bleazard@RoboBar.Co.Uk        | Phone:  +44 1 991 1142 x153
  687. Snr Software Engineer, Robobar Ltd. | Fax:    +44 1 998 8343 (G3)
  688. 22 Wadsworth Road, Perivale.        |
  689. Middx., UB6 7JD ENGLAND.            | ...!ukc!robobar!steve
  690.