home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / programm / language / gcc2_bas.tz / gcc2_bas / gcc-2.1.baserel.diff next >
Encoding:
Text File  |  1992-06-24  |  24.2 KB  |  785 lines
  1. diff -2rcN dh5:gcc-2.1.orig/config/amiga.c gcc-2.1/config/amiga.c
  2. *** dh5:gcc-2.1.orig/config/amiga.c
  3. --- gcc-2.1/config/amiga.c    Sat Apr 18 22:37:16 1992
  4. ***************
  5. *** 0 ****
  6. --- 1,127 ----
  7. + /* amiga.c: Functions for Amiga as target machine for GNU C compiler */
  8. +
  9. + /* NOTE: ATTRIBUTE STUFF IS NOT WORKING CURRENTLY !!!!! */
  10. + 
  11. + #include "m68k.c"
  12. + #include "tree.h"
  13. + 
  14. + struct attribute {
  15. +   tree ident;
  16. +   int  saveds : 1,
  17. +        interrupt : 1;
  18. + };
  19. + 
  20. + 
  21. + static struct attribute *a_tab = 0;
  22. + static int a_index, a_size;
  23. + 
  24. + void
  25. + add_attr_entry (attr)
  26. +     struct attribute *attr;
  27. + {
  28. +   if (! a_tab)
  29. +     {
  30. +       a_size = 10;
  31. +       a_index = 0;
  32. +       a_tab  = (struct attribute *) xmalloc (a_size * sizeof (struct attribute));
  33. +     }
  34. + 
  35. +   if (a_index == a_size)
  36. +     {
  37. +       a_size <<= 1;
  38. +       a_tab = (struct attribute *) xrealloc (a_tab, a_size * sizeof (struct attribute));
  39. +     }
  40. + 
  41. +   a_tab[a_index++] = *attr;
  42. + }
  43. + 
  44. + 
  45. + void
  46. + attr_do_saveds (function_ident)
  47. +       tree function_ident;
  48. + {
  49. +   struct attribute attr, *a;
  50. +   int i;
  51. + 
  52. +   for (i = 0, a = a_tab; i < a_index; i++, a++)
  53. +     if (a->ident == function_ident)
  54. +       {
  55. +     a->saveds = 1;
  56. +     return;
  57. +       }
  58. + 
  59. +   /* create a new entry for this function */
  60. +   attr.ident     = function_ident;
  61. +   attr.saveds    = 1;
  62. +   attr.interrupt = 0;
  63. +   add_attr_entry (&attr);
  64. + }
  65. + 
  66. + void
  67. + attr_do_interrupt (function_ident)
  68. +     tree function_ident;
  69. + {
  70. +   struct attribute attr, *a;
  71. +   int i;
  72. + 
  73. +   for (i = 0, a = a_tab; i < a_index; i++, a++)
  74. +     if (a->ident == function_ident)
  75. +       {
  76. +     /* __interrupt implies __saveds */
  77. +     a->saveds    = 1;
  78. +     a->interrupt = 1;
  79. +     return;
  80. +       }
  81. + 
  82. +   /* create a new entry for this function */
  83. +   attr.ident     = function_ident;
  84. +   attr.saveds     = 1;
  85. +   attr.interrupt = 1;
  86. +   add_attr_entry (&attr);
  87. + }
  88. + 
  89. + int
  90. + attr_does_saveds (function_name)
  91. +     char *function_name;
  92. + {
  93. +   tree ident = get_identifier (function_name);
  94. +   struct attribute *attr;
  95. +   int i;
  96. +   
  97. +   for (i = 0, attr = a_tab; i < a_index; i++, attr++)
  98. +     if (attr->ident == ident)
  99. +       return attr->saveds;
  100. + 
  101. +   return 0;
  102. + }
  103. + 
  104. + int
  105. + attr_does_interrupt (function_name)
  106. +     char *function_name;
  107. + {
  108. +   tree ident = get_identifier (function_name);
  109. +   struct attribute *attr;
  110. +   int i;
  111. +   
  112. +   for (i = 0, attr = a_tab; i < a_index; i++, attr++)
  113. +     if (attr->ident == ident)
  114. +       return attr->interrupt;
  115. + 
  116. +   return 0;
  117. + }
  118. + 
  119. + 
  120. + 
  121. + /* Does operand (which is a symbolic_operand) live in text space? If
  122. +    so SYMBOL_REF_FLAG, which is set by ENCODE_SECTION_INFO, will be true.*/
  123. + 
  124. + int
  125. + read_only_operand (operand)
  126. +      rtx operand;
  127. + {
  128. +   if (GET_CODE (operand) == CONST)
  129. +     operand = XEXP (XEXP (operand, 0), 0);
  130. +   if (GET_CODE (operand) == SYMBOL_REF)
  131. +     return SYMBOL_REF_FLAG (operand) || CONSTANT_POOL_ADDRESS_P (operand);
  132. +   return 1;
  133. + }
  134. diff -2rcN dh5:gcc-2.1.orig/config/amiga.h gcc-2.1/config/amiga.h
  135. *** dh5:gcc-2.1.orig/config/amiga.h
  136. --- gcc-2.1/config/amiga.h    Sat Apr 18 23:16:53 1992
  137. ***************
  138. *** 0 ****
  139. --- 1,398 ----
  140. + /* Definitions of target machine for GNU compiler.  amiga 68000/68020 version.
  141. +    Copyright (C) 1987, 1988 Free Software Foundation, Inc.
  142. + 
  143. + This file is part of GNU CC.
  144. + 
  145. + GNU CC is free software; you can redistribute it and/or modify
  146. + it under the terms of the GNU General Public License as published by
  147. + the Free Software Foundation; either version 2, or (at your option)
  148. + any later version.
  149. + 
  150. + GNU CC is distributed in the hope that it will be useful,
  151. + but WITHOUT ANY WARRANTY; without even the implied warranty of
  152. + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  153. + GNU General Public License for more details.
  154. + 
  155. + You should have received a copy of the GNU General Public License
  156. + along with GNU CC; see the file COPYING.  If not, write to
  157. + the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  158. + 
  159. + /* This comment is here to see if it will keep amiga's cpp from dying.  */
  160. + 
  161. + #include "m68k.h"
  162. + 
  163. + /* See tm-m68k.h.  7 means 68020 with 68881.  */
  164. + 
  165. + #ifndef TARGET_DEFAULT
  166. + #define TARGET_DEFAULT 0
  167. + #endif
  168. + 
  169. + /* Define __HAVE_FPA__ or __HAVE_68881__ in preprocessor,
  170. +    according to the -m flags.
  171. +    This will control the use of inline 68881 insns in certain macros.
  172. +    Also inform the program which CPU this is for.  */
  173. + 
  174. + #if TARGET_DEFAULT & 02
  175. + 
  176. + /* -m68881 is the default */
  177. + #define CPP_SPEC \
  178. + "%{!msoft-float:%{mfpa:-D__HAVE_FPA__ }%{!mfpa:-D__HAVE_68881__ }}\
  179. + %{!ansi:%{m68000:-Dmc68010}%{mc68000:-Dmc68010}%{!mc68000:%{!m68000:-Dmc68020}}}"
  180. + 
  181. + #else
  182. + 
  183. + /* -msoft-float is the default, assume -mc68000 as well */
  184. + #define CPP_SPEC \
  185. + "%{m68881:-D__HAVE_68881__ }\
  186. + %{!ansi:%{m68020:-Dmc68020}%{mc68020:-Dmc68020}%{!mc68020:%{!m68020:-Dmc68010}}}"
  187. + 
  188. + #endif
  189. + 
  190. + /* These compiler options take an argument.  We ignore -target for now.  */
  191. + 
  192. + /* #define WORD_SWITCH_TAKES_ARG(STR)    (!strcmp (STR, "target")) */
  193. + 
  194. + /* -m68000 requires special flags to the assembler.  */
  195. + 
  196. + #if TARGET_DEFAULT & 01
  197. + 
  198. + #define ASM_SPEC \
  199. +  "%{m68000:-mc68010}%{mc68000:-mc68010}%{!mc68000:%{!m68000:-mc68020}} %{msmall-code:-l} "
  200. + 
  201. + #else
  202. + 
  203. + #define ASM_SPEC \
  204. +  "%{m68020:-mc68020}%{mc68020:-mc68020}%{!mc68020:%{!m68020:-mc68010}} %{msmall-code:-l} "
  205. + 
  206. + #endif
  207. + 
  208. + /* amiga/amigados are the new "standard" defines for the Amiga, MCH_AMIGA
  209. +  * was used before and is included for compatibility reasons */
  210. + 
  211. + #define CPP_PREDEFINES "-Dmc68000 -Damiga -Damigados -DMCH_AMIGA -DAMIGA"
  212. + 
  213. + /* STARTFILE_SPEC to include amiga floating point initialization
  214. +    This is necessary (tr: amiga does it) for both the m68881 and the fpa
  215. +    routines.
  216. +    Note that includes knowledge of the default specs for gcc, ie. no
  217. +    args translates to the same effect as -m68881
  218. +    I'm not sure what would happen below if people gave contradictory
  219. +    arguments (eg. -msoft-float -mfpa) */
  220. + 
  221. + /* for now, we only have a single set of crt0.o, this could change in 
  222. +    the future. */
  223. + #define STARTFILE_SPEC                    \
  224. +   "%{resident:rcrt0.o%s}%{!resident:%{!fbaserel:%{pg:gcrt0.o%s}%{!pg:%{p:mcrt0.o%s}%{!p:crt0.o%s}}}%{fbaserel:%{pg:bgcrt0.o%s}%{!pg:%{p:bmcrt0.o%s}%{!p:bcrt0.o%s}}}}"
  225. + 
  226. + 
  227. + /* Specify library to handle `-a' basic block profiling.
  228. +    Control choice of libm.a (if user says -lm)
  229. +    based on fp arith default and options.  */
  230. + 
  231. + /* for now, no different math libraries exist, there probably *will*
  232. +  * be some in the future. */
  233. + #define LIB_SPEC "%{g:-lg} %{resident:-lbc}%{!resident:%{fbaserel:%{!p:%{!pg:-lbc}}%{p:-lbc_p}%{pg:-lbc_p}}%{!fbaserel:%{!p:%{!pg:-lc}}%{p:-lc_p}%{pg:-lc_p}}}"
  234. + 
  235. + /* if debugging, tell the linker to output amiga-hunk symbols *and*
  236. +  * a BSD compatible debug hunk */
  237. + 
  238. + #define LINK_SPEC "%{g:-amiga-debug-hunk} %{fbaserel:-databss-together} %{resident:-databss-together} "
  239. + 
  240. + #define CC1_SPEC "%{resident:-fbaserel} "
  241. + 
  242. + #define CC1PLUS_SPEC "%{resident:-fbaserel} "
  243. + 
  244. + /* Omit frame pointer at high optimization levels.  */
  245. +   
  246. + #define OPTIMIZATION_OPTIONS(OPTIMIZE) \
  247. + {                                  \
  248. +   if (OPTIMIZE >= 2)                         \
  249. +     flag_omit_frame_pointer = 1;                \
  250. + }
  251. + 
  252. + /* provide a dummy entry for the small-code switch. This is currently only
  253. +    needed by the assembler (explanations: m68k.h) */
  254. + 
  255. + #undef TARGET_SWITCHES
  256. + #define TARGET_SWITCHES  \
  257. +   { { "68020", 5},                \
  258. +     { "c68020", 5},                \
  259. +     { "68881", 2},                \
  260. +     { "bitfield", 4},                \
  261. +     { "68000", -5},                \
  262. +     { "c68000", -5},                \
  263. +     { "soft-float", -0102},            \
  264. +     { "nobitfield", -4},            \
  265. +     { "rtd", 8},                \
  266. +     { "nortd", -8},                \
  267. +     { "short", 040},                \
  268. +     { "noshort", -040},                \
  269. +     { "fpa", 0100},                \
  270. +     { "nofpa", -0100},                \
  271. +     { "sky", 0200},                \
  272. +     { "nosky", -0200},                \
  273. +     { "68040", 0407},                \
  274. +     { "68030", -01400},                \
  275. +     { "68030", 7},                \
  276. +     { "68040-only", 01000},            \
  277. +     { "small-code", 0 },            \
  278. +     { "", TARGET_DEFAULT}}
  279. + 
  280. + /* Every structure or union's size must be a multiple of 2 bytes.  */
  281. + 
  282. + #define STRUCTURE_SIZE_BOUNDARY 16
  283. + 
  284. + /* This is BSD, so it wants DBX format.  */
  285. + 
  286. + #define DBX_DEBUGGING_INFO
  287. + 
  288. + /* Allow folding division by zero.  */
  289. + #define REAL_INFINITY
  290. + 
  291. + /* This is how to output an assembler line defining a `double' constant.  */
  292. + 
  293. + #undef ASM_OUTPUT_DOUBLE
  294. + #define ASM_OUTPUT_DOUBLE(FILE,VALUE)                    \
  295. +   {                                    \
  296. +     if (REAL_VALUE_ISINF (VALUE))                    \
  297. +       fprintf (FILE, "\t.double 0r%s99e999\n", (VALUE) > 0 ? "" : "-");    \
  298. +     else if (isnan (VALUE))                        \
  299. +       {                                    \
  300. +     union { double d; long l[2];} t;                \
  301. +     t.d = (VALUE);                            \
  302. +     fprintf (FILE, "\t.long 0x%lx\n\t.long 0x%lx\n", t.l[0], t.l[1]); \
  303. +       }                                    \
  304. +     else                                \
  305. +       fprintf (FILE, "\t.double 0r%.17g\n", VALUE);            \
  306. +   }
  307. + 
  308. + /* This is how to output an assembler line defining a `float' constant.  */
  309. + 
  310. + #undef ASM_OUTPUT_FLOAT
  311. + #define ASM_OUTPUT_FLOAT(FILE,VALUE)                    \
  312. +   {                                    \
  313. +     if (REAL_VALUE_ISINF (VALUE))                    \
  314. +       fprintf (FILE, "\t.single 0r%s99e999\n", (VALUE) > 0 ? "" : "-");    \
  315. +     else if (isnan (VALUE))                        \
  316. +       {                                    \
  317. +     union { float f; long l;} t;                    \
  318. +     t.f = (VALUE);                            \
  319. +     fprintf (FILE, "\t.long 0x%lx\n", t.l);                \
  320. +       }                                    \
  321. +     else                                \
  322. +       fprintf (FILE, "\t.single 0r%.9g\n", VALUE);            \
  323. +   }
  324. + 
  325. + /* This is how to output an assembler lines defining floating operands.
  326. +    There's no way to output a NaN's fraction, so we lose it.  */
  327. +   
  328. + #undef ASM_OUTPUT_FLOAT_OPERAND
  329. + #define ASM_OUTPUT_FLOAT_OPERAND(FILE,VALUE)                \
  330. +   (REAL_VALUE_ISINF ((VALUE))                        \
  331. +    ? asm_fprintf (FILE, "%I0r%s99e999", ((VALUE) > 0 ? "" : "-")) \
  332. +    : (VALUE) == -0.0                            \
  333. +    ? asm_fprintf (FILE, "%I0r-0.0")                    \
  334. +    : asm_fprintf (FILE, "%I0r%.9g", (VALUE)))
  335. + 
  336. + #undef ASM_OUTPUT_DOUBLE_OPERAND
  337. + #define ASM_OUTPUT_DOUBLE_OPERAND(FILE,VALUE)                \
  338. +   (REAL_VALUE_ISINF ((VALUE))                        \
  339. +    ? asm_fprintf (FILE, "%I0r%s99e999", ((VALUE) > 0 ? "" : "-")) \
  340. +    : (VALUE) == -0.0                            \
  341. +    ? asm_fprintf (FILE, "%I0r-0.0")                    \
  342. +    : asm_fprintf (FILE, "%I0r%.17g", (VALUE)))
  343. + 
  344. + /* use A5 as framepointer instead of A6, this makes A6 available as a
  345. +  * general purpose register, and can thus be used without problems in
  346. +  * direct library calls. */
  347. + #undef FRAME_POINTER_REGNUM
  348. + #define FRAME_POINTER_REGNUM 13
  349. + #undef ARG_POINTER_REGNUM
  350. + #define ARG_POINTER_REGNUM 13
  351. + 
  352. + /* we use A4 for this, not A5, which is the framepointer */
  353. + #undef PIC_OFFSET_TABLE_REGNUM
  354. + #define PIC_OFFSET_TABLE_REGNUM 12
  355. + 
  356. + #define STANDARD_INCLUDE_DIR "gcc:include"
  357. + #define MD_STARTFILE_PREFIX  "gcc:lib/"
  358. + 
  359. + /* we do have an ansi-complient c-library ;-) */
  360. + #define HAVE_ATEXIT
  361. + #define HAVE_VPRINTF
  362. + #define HAVE_VFPRINTF
  363. + #define HAVE_PUTENV
  364. + #define HAVE_STRERROR
  365. + 
  366. + #define ENVIRON_SEPARATOR ','
  367. + 
  368. + /* setup a default shell return value for those (gazillion..) programs that
  369. +    (inspite of ANSI-C) declare main() to be void (or even VOID...) */
  370. + 
  371. + #define DEFAULT_MAIN_RETURN c_expand_return (integer_zero_node)
  372. + 
  373. + /* given that symbolic_operand(X), return TRUE if no special
  374. +    base relative relocation is necessary */
  375. + 
  376. + #define LEGITIMATE_BASEREL_OPERAND_P(X) \
  377. +   (flag_pic == 3 && read_only_operand (X))
  378. + 
  379. + #undef LEGITIMATE_PIC_OPERAND_P
  380. + #define LEGITIMATE_PIC_OPERAND_P(X) \
  381. +   (! symbolic_operand (X, VOIDmode) || LEGITIMATE_BASEREL_OPERAND_P (X))
  382. + 
  383. + 
  384. + /* Define this macro if references to a symbol must be treated
  385. +    differently depending on something about the variable or
  386. +    function named by the symbol (such as what section it is in).
  387. + 
  388. +    The macro definition, if any, is executed immediately after the
  389. +    rtl for DECL or other node is created.
  390. +    The value of the rtl will be a `mem' whose address is a
  391. +    `symbol_ref'.
  392. + 
  393. +    The usual thing for this macro to do is to a flag in the
  394. +    `symbol_ref' (such as `SYMBOL_REF_FLAG') or to store a modified
  395. +    name string in the `symbol_ref' (if one bit is not enough
  396. +    information).
  397. + 
  398. +    On the Amiga we use this to indicate if a symbol is in text or
  399. +    data space.  */
  400. + 
  401. + #define ENCODE_SECTION_INFO(DECL)\
  402. + do                                    \
  403. +   {                                    \
  404. +     if (TREE_CODE (DECL) == FUNCTION_DECL)                \
  405. +       SYMBOL_REF_FLAG (XEXP (DECL_RTL (DECL), 0)) = 1;            \
  406. +     else                                \
  407. +       {                                    \
  408. +     rtx rtl = (TREE_CODE_CLASS (TREE_CODE (DECL)) != 'd'        \
  409. +            ? TREE_CST_RTL (DECL) : DECL_RTL (DECL));        \
  410. +     if (RTX_UNCHANGING_P (rtl) && !MEM_VOLATILE_P (rtl))        \
  411. +       SYMBOL_REF_FLAG (XEXP (rtl, 0)) = 1;                \
  412. +       }                                    \
  413. +   }                                    \
  414. + while (0)
  415. + 
  416. + #if 0
  417. + #undef SELECT_RTX_SECTION
  418. + #define SELECT_RTX_SECTION(MODE, X)                    \
  419. + {                                    \
  420. +   if (!flag_pic || LEGITIMATE_BASEREL_OPERAND_P (X))            \
  421. +     readonly_data_section();                        \
  422. +   else if (LEGITIMATE_PIC_OPERAND_P (X))                \
  423. +     readonly_data_section();                        \
  424. +   else                                    \
  425. +     data_section();                            \
  426. + }
  427. + #else
  428. + #undef SELECT_RTX_SECTION
  429. + #define SELECT_RTX_SECTION(MODE, X) readonly_data_section ();
  430. + #endif
  431. + 
  432. + /* according to varasm.c, RELOC referrs *only* to whether constants (!)
  433. +    are addressed by address. This doesn't matter in baserelative code,
  434. +    so we allow (inspite of flag_pic) readonly_data_section() in that
  435. +    case */
  436. + 
  437. + #undef SELECT_SECTION
  438. + #define SELECT_SECTION(DECL, RELOC)                    \
  439. + {                                    \
  440. +   if (TREE_CODE (DECL) == STRING_CST)                    \
  441. +     {                                    \
  442. +       if (! flag_writable_strings)                    \
  443. +     readonly_data_section ();                    \
  444. +       else                                \
  445. +     data_section ();                        \
  446. +     }                                    \
  447. +   else if (TREE_CODE (DECL) == VAR_DECL)                \
  448. +     {                                    \
  449. +       if ((flag_pic && flag_pic != 3 && RELOC)                \
  450. +       || !TREE_READONLY (DECL) || TREE_SIDE_EFFECTS (DECL))        \
  451. +     data_section ();                        \
  452. +       else                                \
  453. +     readonly_data_section ();                    \
  454. +     }                                    \
  455. +   else                                    \
  456. +     readonly_data_section ();                        \
  457. + }
  458. + 
  459. + 
  460. + 
  461. + /* starting support for amiga specific keywords (NOT CURRENTLY WORKING!)
  462. +  * --------------------------------------------
  463. +  */
  464. + 
  465. + /* validate attributes that don't take a parameter. Currently we support
  466. +  * __attribute__ (saveds) and __attribute__ (interrupt)
  467. +  */
  468. + #define HANDLE_ATTRIBUTE0(attr) \
  469. +   (strcmp(attr, "saveds") != 0 && strcmp(attr, "interrupt") != 0)
  470. + 
  471. + /* (c-common.c)
  472. +  * install additional attributes
  473. +  */
  474. + #define HANDLE_EXTRA_ATTRIBUTES(a)                         \
  475. +   if (TREE_VALUE (a) != 0                            \
  476. +       && TREE_CODE (TREE_VALUE (a)) == IDENTIFIER_NODE                \
  477. +       && TREE_VALUE (a) == get_identifier ("saveds"))                \
  478. +     {                                        \
  479. +       if (TREE_CODE (decl) != FUNCTION_DECL)                    \
  480. +         {                                    \
  481. +           warning_with_decl (decl,                        \
  482. +               "saveds attribute specified for non-function `%s'");        \
  483. +       return;                                \
  484. +         }                                    \
  485. +                                               \
  486. +       attr_do_saveds (DECL_NAME (decl));                    \
  487. +     }                                        \
  488. +   else if (TREE_VALUE (a) != 0                            \
  489. +       && TREE_CODE (TREE_VALUE (a)) == IDENTIFIER_NODE                \
  490. +       && TREE_VALUE (a) == get_identifier ("interrupt"))            \
  491. +     {                                        \
  492. +       if (TREE_CODE (decl) != FUNCTION_DECL)                    \
  493. +         {                                    \
  494. +           warning_with_decl (decl,                        \
  495. +               "saveds attribute specified for non-function `%s'");        \
  496. +       return;                                \
  497. +         }                                    \
  498. +                                               \
  499. +       attr_do_interrupt (DECL_NAME (decl));                    \
  500. +     }                                        \
  501. + 
  502. + 
  503. + #define PROLOGUE_EXTRA_SAVE(mask)                        \
  504. +   { extern char *current_function_name;                        \
  505. +     /* saveds makes the function preserve d1/a0/a1 as well */            \
  506. +     if (attr_does_saveds (current_function_name))                \
  507. +       mask |= 0x40c0; }                                \
  508. + 
  509. + 
  510. + #define EPILOGUE_EXTRA_RESTORE(mask, nregs)                    \
  511. +   { extern char *current_function_name;                        \
  512. +     /* restore those extra registers */                        \
  513. +     if (attr_does_saveds (current_function_name))                \
  514. +       {                                        \
  515. +     mask |= 0x0302;                                \
  516. +     nregs += 3;                                \
  517. +       } }                                    \
  518. + 
  519. + 
  520. + #define EPILOGUE_EXTRA_BARRIER_KLUDGE(stream)                    \
  521. +   { extern char *current_function_name;                        \
  522. +     /* PLEASE Help! how is this done cleaner?? */                \
  523. +     if (attr_does_saveds (current_function_name))                \
  524. +       {                                        \
  525. +     fprintf (stderr,                             \
  526. +          "warning: couldn't cleanup `saveds'-stack in `%s'.\n");    \
  527. +     fprintf (stderr,                            \
  528. +          "         this is only ok, if the function never returns!\n");    \
  529. +       }    }                                    \
  530. +         
  531. + 
  532. + #define EPILOGUE_EXTRA_TEST(stream)                        \
  533. +   { extern char *current_function_name;                        \
  534. +     /* with the interrupt-attribute, we have to set the cc before rts */    \
  535. +     if (attr_does_interrupt (current_function_name))                \
  536. +       asm_fprintf (stream, "\ttstl %s\n", reg_names[0]); }            \
  537. + 
  538. diff -2rcN dh5:gcc-2.1.orig/config/m68k.c gcc-2.1/config/m68k.c
  539. *** dh5:gcc-2.1.orig/config/m68k.c    Mon Apr 20 02:35:38 1992
  540. --- gcc-2.1/config/m68k.c    Sat Apr 18 21:58:21 1992
  541. ***************
  542. *** 57,61 ****
  543.   finalize_pic ()
  544.   {
  545. !   if (flag_pic && current_function_uses_pic_offset_table)
  546.       emit_insn (gen_rtx (USE, VOIDmode, pic_offset_table_rtx));
  547.   }
  548. --- 57,61 ----
  549.   finalize_pic ()
  550.   {
  551. !   if (flag_pic && (flag_pic < 3) && current_function_uses_pic_offset_table)
  552.       emit_insn (gen_rtx (USE, VOIDmode, pic_offset_table_rtx));
  553.   }
  554. ***************
  555. *** 205,209 ****
  556.   #endif
  557.       }
  558. !   if (flag_pic && current_function_uses_pic_offset_table)
  559.       {
  560.   #ifdef MOTOROLA
  561. --- 208,212 ----
  562.   #endif
  563.       }
  564. !   if (flag_pic && (flag_pic < 3) && current_function_uses_pic_offset_table)
  565.       {
  566.   #ifdef MOTOROLA
  567. ***************
  568. *** 795,804 ****
  569.     if (GET_CODE (orig) == SYMBOL_REF || GET_CODE (orig) == LABEL_REF)
  570.       {
  571.         if (reg == 0)
  572.       abort ();
  573.   
  574. !       pic_ref = gen_rtx (MEM, Pmode,
  575. !              gen_rtx (PLUS, Pmode,
  576. !                   pic_offset_table_rtx, orig));
  577.         current_function_uses_pic_offset_table = 1;
  578.         RTX_UNCHANGING_P (pic_ref) = 1;
  579. --- 807,824 ----
  580.     if (GET_CODE (orig) == SYMBOL_REF || GET_CODE (orig) == LABEL_REF)
  581.       {
  582. + #ifdef LEGITIMATE_BASEREL_OPERAND_P
  583. +   if (LEGITIMATE_BASEREL_OPERAND_P (orig))
  584. +     return orig;
  585. + #endif
  586. + 
  587.         if (reg == 0)
  588.       abort ();
  589.   
  590. !       if (flag_pic == 3)
  591. !         pic_ref = gen_rtx (PLUS, Pmode, pic_offset_table_rtx, orig);
  592. !       else
  593. !         pic_ref = gen_rtx (MEM, Pmode,
  594. !                gen_rtx (PLUS, Pmode,
  595. !                     pic_offset_table_rtx, orig));
  596.         current_function_uses_pic_offset_table = 1;
  597.         RTX_UNCHANGING_P (pic_ref) = 1;
  598. ***************
  599. *** 832,835 ****
  600. --- 852,856 ----
  601.         /* Likewise, should we set special REG_NOTEs here?  */
  602.       }
  603. + 
  604.     return pic_ref;
  605.   }
  606. ***************
  607. *** 1884,1887 ****
  608. --- 1905,1910 ----
  609.               if ((flag_pic == 2) && (breg == pic_offset_table_rtx))
  610.                 fprintf (file, ":l");
  611. +             if ((flag_pic == 3) && (breg == pic_offset_table_rtx))
  612. +               fprintf (file, ":W");
  613.             }
  614.           fprintf (file, "(%s", reg_names[REGNO (breg)]);
  615. ***************
  616. *** 1899,1902 ****
  617. --- 1922,1927 ----
  618.               if ((flag_pic == 2) && (breg == pic_offset_table_rtx))
  619.                 fprintf (file, ":l");
  620. +             if ((flag_pic == 3) && (breg == pic_offset_table_rtx))
  621. +               fprintf (file, ":W");
  622.             }
  623.           if (addr != 0 && ireg != 0)
  624. diff -2rcN dh5:gcc-2.1.orig/config/m68k.h gcc-2.1/config/m68k.h
  625. *** dh5:gcc-2.1.orig/config/m68k.h    Mon Apr 20 02:35:41 1992
  626. --- gcc-2.1/config/m68k.h    Thu Apr 16 20:16:07 1992
  627. ***************
  628. *** 327,333 ****
  629.   
  630.   #define CONDITIONAL_REGISTER_USAGE \
  631. ! {                                               \
  632. !   if (flag_pic)                                 \
  633. !     fixed_regs[PIC_OFFSET_TABLE_REGNUM] = 1;    \
  634.   }
  635.   
  636. --- 327,336 ----
  637.   
  638.   #define CONDITIONAL_REGISTER_USAGE \
  639. ! {                                                \
  640. !   if (flag_pic)                                  \
  641. !     fixed_regs[PIC_OFFSET_TABLE_REGNUM] = 1;     \
  642. !   /* prevent saving/restoring of the base reg */ \
  643. !   if (flag_pic == 3)                 \
  644. !     call_used_regs[PIC_OFFSET_TABLE_REGNUM] = 1; \
  645.   }
  646.   
  647. diff -2rcN dh5:gcc-2.1.orig/config/m68k.md gcc-2.1/config/m68k.md
  648. *** dh5:gcc-2.1.orig/config/m68k.md    Mon Apr 20 02:35:51 1992
  649. --- gcc-2.1/config/m68k.md    Thu Apr 16 18:05:26 1992
  650. ***************
  651. *** 705,715 ****
  652.     if (flag_pic && symbolic_operand (operands[1], SImode)) 
  653.       {
  654. !       /* The source is an address which requires PIC relocation.  
  655. !          Call legitimize_pic_address with the source, mode, and a relocation
  656. !          register (a new pseudo, or the final destination if reload_in_progress
  657. !          is set).   Then fall through normally */
  658. !       extern rtx legitimize_pic_address();
  659. !       rtx temp = reload_in_progress ? operands[0] : gen_reg_rtx (Pmode);
  660. !       operands[1] = legitimize_pic_address (operands[1], SImode, temp);
  661.       }
  662.   }")
  663. --- 705,720 ----
  664.     if (flag_pic && symbolic_operand (operands[1], SImode)) 
  665.       {
  666. ! #ifdef LEGITIMATE_BASEREL_OPERAND_P
  667. !       if (flag_pic != 3 || !LEGITIMATE_BASEREL_OPERAND_P (operands[1]))
  668. ! #endif
  669. !       {
  670. !         /* The source is an address which requires PIC relocation.  
  671. !            Call legitimize_pic_address with the source, mode, and a relocation
  672. !            register (a new pseudo, or the final destination if reload_in_progress
  673. !            is set).   Then fall through normally */
  674. !         extern rtx legitimize_pic_address();
  675. !         rtx temp = reload_in_progress ? operands[0] : gen_reg_rtx (Pmode);
  676. !         operands[1] = legitimize_pic_address (operands[1], SImode, temp);
  677. !       }
  678.       }
  679.   }")
  680. ***************
  681. *** 4588,4592 ****
  682.     "
  683.   {
  684. !   if (flag_pic && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  685.       operands[0] = gen_rtx (MEM, GET_MODE (operands[0]),
  686.                  force_reg (Pmode, XEXP (operands[0], 0)));
  687. --- 4593,4597 ----
  688.     "
  689.   {
  690. !   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  691.       operands[0] = gen_rtx (MEM, GET_MODE (operands[0]),
  692.                  force_reg (Pmode, XEXP (operands[0], 0)));
  693. ***************
  694. *** 4599,4603 ****
  695.     ;; Operand 1 not really used on the m68000.
  696.   
  697. !   "! flag_pic"
  698.     "*
  699.   #ifdef MOTOROLA
  700. --- 4604,4608 ----
  701.     ;; Operand 1 not really used on the m68000.
  702.   
  703. !   "(! flag_pic || flag_pic == 3)"
  704.     "*
  705.   #ifdef MOTOROLA
  706. ***************
  707. *** 4614,4618 ****
  708.     ;; Operand 1 not really used on the m68000.
  709.   
  710. !   "flag_pic"
  711.     "*
  712.     return \"jsr %0\";
  713. --- 4619,4623 ----
  714.     ;; Operand 1 not really used on the m68000.
  715.   
  716. !   "(flag_pic && flag_pic < 3)"
  717.     "*
  718.     return \"jsr %0\";
  719. ***************
  720. *** 4630,4634 ****
  721.     "
  722.   {
  723. !   if (flag_pic && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  724.       operands[1] = gen_rtx (MEM, GET_MODE (operands[1]),
  725.                  force_reg (Pmode, XEXP (operands[1], 0)));
  726. --- 4635,4639 ----
  727.     "
  728.   {
  729. !   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  730.       operands[1] = gen_rtx (MEM, GET_MODE (operands[1]),
  731.                  force_reg (Pmode, XEXP (operands[1], 0)));
  732. ***************
  733. *** 4641,4645 ****
  734.             (match_operand:SI 2 "general_operand" "g")))]
  735.     ;; Operand 2 not really used on the m68000.
  736. !   "! flag_pic"
  737.     "*
  738.   #ifdef MOTOROLA
  739. --- 4646,4650 ----
  740.             (match_operand:SI 2 "general_operand" "g")))]
  741.     ;; Operand 2 not really used on the m68000.
  742. !   "(! flag_pic || flag_pic == 3)"
  743.     "*
  744.   #ifdef MOTOROLA
  745. ***************
  746. *** 4656,4660 ****
  747.             (match_operand:SI 2 "general_operand" "g")))]
  748.     ;; Operand 2 not really used on the m68000.
  749. !   "flag_pic"
  750.     "*
  751.     return \"jsr %1\";
  752. --- 4661,4665 ----
  753.             (match_operand:SI 2 "general_operand" "g")))]
  754.     ;; Operand 2 not really used on the m68000.
  755. !   "(flag_pic && flag_pic < 3)"
  756.     "*
  757.     return \"jsr %1\";
  758. diff -2rcN dh5:gcc-2.1.orig/expr.c gcc-2.1/expr.c
  759. *** dh5:gcc-2.1.orig/expr.c    Mon Apr 20 02:40:47 1992
  760. --- gcc-2.1/expr.c    Thu Apr 16 21:14:25 1992
  761. ***************
  762. *** 1699,1702 ****
  763. --- 1699,1708 ----
  764.     argvec = (struct arg *) alloca (nargs * sizeof (struct arg));
  765.   
  766. + /* how would you do this RIGHT ?? fake a DECL node? dunno... */
  767. + #ifdef ENCODE_SECTION_INFO
  768. +   /* mark it as a function (to be in the text section that is) */
  769. +   SYMBOL_REF_FLAG (fun) = 1;
  770. + #endif
  771. + 
  772.     INIT_CUMULATIVE_ARGS (args_so_far, (tree)0, fun);
  773.   
  774. diff -2rcN dh5:gcc-2.1.orig/toplev.c gcc-2.1/toplev.c
  775. *** dh5:gcc-2.1.orig/toplev.c    Mon Apr 20 02:44:21 1992
  776. --- gcc-2.1/toplev.c    Thu Apr 16 21:34:22 1992
  777. ***************
  778. *** 464,467 ****
  779. --- 464,468 ----
  780.     {"pic", &flag_pic, 1},
  781.     {"PIC", &flag_pic, 2},
  782. +   {"baserel", &flag_pic, 3},
  783.     {"common", &flag_no_common, 0},
  784.     {"inhibit-size-directive", &flag_inhibit_size_directive, 1},
  785.