Return to 3b1.h CVS log

Up to [GCC 2.x] / gcc / config / m68k

Annotation of gcc/config/m68k/3b1.h, revision 1.1

1.1     ! root        1: /* Definitions of target machine for GNU compiler.
        !             2:    AT&T UNIX PC version (pc7300, 3b1)
        !             3: 
        !             4:    Written by Alex Crain
        !             5:    bug reports to [email protected]
        !             6: 
        !             7:    Copyright (C) 1987 Free Software Foundation, Inc.
        !             8: 
        !             9: This file is part of GNU CC.
        !            10: 
        !            11: GNU CC is free software; you can redistribute it and/or modify
        !            12: it under the terms of the GNU General Public License as published by
        !            13: the Free Software Foundation; either version 2, or (at your option)
        !            14: any later version.
        !            15: 
        !            16: GNU CC is distributed in the hope that it will be useful,
        !            17: but WITHOUT ANY WARRANTY; without even the implied warranty of
        !            18: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
        !            19: GNU General Public License for more details.
        !            20: 
        !            21: You should have received a copy of the GNU General Public License
        !            22: along with GNU CC; see the file COPYING.  If not, write to
        !            23: the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
        !            24: 
        !            25: #define SGS_SWITCH_TABLES      /* Different switch table handling */
        !            26: 
        !            27: #include "m68k/hp320.h"
        !            28: 
        !            29: /* See m68k.h.  0 means 680[01]0 with no 68881.  */
        !            30: 
        !            31: #undef TARGET_DEFAULT
        !            32: #define        TARGET_DEFAULT 0
        !            33: 
        !            34: /* Don't try using XFmode.  */
        !            35: #undef LONG_DOUBLE_TYPE_SIZE
        !            36: #define LONG_DOUBLE_TYPE_SIZE 64
        !            37: 
        !            38: /* -m68020 requires special flags to the assembler.  */
        !            39: 
        !            40: #undef ASM_SPEC
        !            41: #define ASM_SPEC "%{m68020:-68020}%{!m68020:-68010} %{m68881:-68881}"
        !            42: 
        !            43: /* we use /lib/libp/lib*  when profiling */
        !            44: 
        !            45: #undef LIB_SPEC
        !            46: #define LIB_SPEC "%{!shlib:%{p:-L/lib/libp} %{pg:-L/lib/libp} -lc}"
        !            47: 
        !            48: /* shared libraries need to use crt0s.o  */
        !            49: 
        !            50: #undef STARTFILE_SPEC
        !            51: #define STARTFILE_SPEC \
        !            52:   "%{!shlib:%{pg:mcrt0.o%s}%{!pg:%{p:mcrt0.o%s}%{!p:crt0.o%s}}}\
        !            53:    %{shlib:crt0s.o%s shlib.ifile%s} "
        !            54: 
        !            55: /* cpp has to support a #sccs directive for the /usr/include files */
        !            56: 
        !            57: #define SCCS_DIRECTIVE
        !            58: 
        !            59: /* Make output for SDB.  */
        !            60: 
        !            61: #define SDB_DEBUGGING_INFO
        !            62: 
        !            63: /* The .file command should always begin the output.  */
        !            64: 
        !            65: #undef ASM_FILE_START
        !            66: #define ASM_FILE_START(FILE) \
        !            67: output_file_directive ((FILE), main_input_filename)
        !            68: 
        !            69: /* Don't try to define `gcc_compiled.' since the assembler might not
        !            70:    accept symbols with periods and GDB doesn't run on this machine anyway.  */
        !            71: #define ASM_IDENTIFY_GCC(FILE)
        !            72: 
        !            73: /* Define __HAVE_68881__ in preprocessor if -m68881 is specified.
        !            74:    This will control the use of inline 68881 insns in certain macros.  */
        !            75: 
        !            76: #undef CPP_SPEC
        !            77: #define CPP_SPEC "%{m68881:-D__HAVE_68881__}"
        !            78: 
        !            79: /* Names to predefine in the preprocessor for this target machine.  */
        !            80: /* [email protected] says mc68000 and m68k should not be here.  */
        !            81: 
        !            82: #undef CPP_PREDEFINES
        !            83: #define CPP_PREDEFINES "-Dmc68k -Dunix -Dunixpc"
        !            84: 
        !            85: #undef REGISTER_NAMES
        !            86: #define REGISTER_NAMES \
        !            87: {"%d0", "%d1", "%d2", "%d3", "%d4", "%d5", "%d6", "%d7",       \
        !            88:  "%a0", "%a1", "%a2", "%a3", "%a4", "%a5", "%fp", "%sp",       \
        !            89:  "%f0", "%f1", "%f2", "%f3", "%f4", "%f5", "%f6", "%f7"}
        !            90: 
        !            91: /* Specify how to pad function arguments.
        !            92:    Value should be `upward', `downward' or `none'.
        !            93:    Same as the default, except no padding for large or variable-size args.  */
        !            94: 
        !            95: #define FUNCTION_ARG_PADDING(MODE, TYPE)                               \
        !            96:   (((MODE) == BLKmode                                                  \
        !            97:     ? ((TYPE) && TREE_CODE (TYPE_SIZE (TYPE)) == INTEGER_CST           \
        !            98:        && int_size_in_bytes (TYPE) < PARM_BOUNDARY / BITS_PER_UNIT)    \
        !            99:     : GET_MODE_BITSIZE (MODE) < PARM_BOUNDARY)                         \
        !           100:    ? downward : none)
        !           101: 
        !           102: /* Override part of the obstack macros.  */
        !           103: 
        !           104: #define __PTR_TO_INT(P) ((int)(P))
        !           105: #define __INT_TO_PTR(P) ((char *)(P))
        !           106: 
        !           107: /* The 3b1 does not have `atexit'.  */
        !           108: 
        !           109: #undef HAVE_ATEXIT
        !           110: 
        !           111: /* Override parts of m68k.h to fit the SGS-3b1 assembler.  */
        !           112: 
        !           113: #undef TARGET_VERSION
        !           114: #undef ASM_FORMAT_PRIVATE_NAME
        !           115: #undef ASM_OUTPUT_DOUBLE
        !           116: #undef ASM_OUTPUT_FLOAT
        !           117: #undef ASM_OUTPUT_ALIGN
        !           118: #undef ASM_OUTPUT_SOURCE_FILENAME
        !           119: #undef ASM_OUTPUT_SOURCE_LINE
        !           120: #undef PRINT_OPERAND_ADDRESS
        !           121: #undef ASM_GENERATE_INTERNAL_LABEL
        !           122: #undef FUNCTION_PROFILER
        !           123: #undef ASM_OUTPUT_ADDR_VEC_ELT
        !           124: #undef ASM_OUTPUT_ADDR_DIFF_ELT
        !           125: #undef ASM_OUTPUT_INTERNAL_LABEL
        !           126: #undef ASM_OUTPUT_OPCODE
        !           127: #undef ASM_OUTPUT_LOCAL
        !           128: #undef ASM_OUTPUT_LABELREF
        !           129: #undef ASM_OUTPUT_ASCII
        !           130: 
        !           131: #define TARGET_VERSION fprintf (stderr, " (68k, SGS/AT&T unixpc syntax)");
        !           132: 
        !           133: /* Store in OUTPUT a string (made with alloca) containing
        !           134:    an assembler-name for a local static variable named NAME.
        !           135:    LABELNO is an integer which is different for each call.  */
        !           136: 
        !           137: #define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO) \
        !           138: ( (OUTPUT) = (char *) alloca (strlen ((NAME)) + 12),   \
        !           139:   sprintf ((OUTPUT), "%s_%%%d", (NAME), (LABELNO)))
        !           140: 
        !           141: /* The unixpc doesn't know about double's and float's */
        !           142: 
        !           143: #define ASM_OUTPUT_DOUBLE(FILE,VALUE)  \
        !           144: do { long l[2];                                                \
        !           145:      REAL_VALUE_TO_TARGET_DOUBLE (VALUE, l);           \
        !           146:      fprintf (FILE, "\tlong 0x%x,0x%x\n", l[0], l[1]); \
        !           147:    } while (0)
        !           148: 
        !           149: #undef ASM_OUTPUT_LONG_DOUBLE
        !           150: #define ASM_OUTPUT_LONG_DOUBLE(FILE,VALUE)                             \
        !           151: do { long l[3];                                                                \
        !           152:      REAL_VALUE_TO_TARGET_LONG_DOUBLE (VALUE, l);                      \
        !           153:      fprintf (FILE, "\tlong 0x%x,0x%x,0x%x\n", l[0], l[1], l[2]);      \
        !           154:    } while (0)
        !           155: 
        !           156: /* This is how to output an assembler line defining a `float' constant.  */
        !           157: 
        !           158: #define ASM_OUTPUT_FLOAT(FILE,VALUE)  \
        !           159: do { long l;                                   \
        !           160:      REAL_VALUE_TO_TARGET_SINGLE (VALUE, l);   \
        !           161:      fprintf ((FILE), "\tlong 0x%x\n", l);     \
        !           162:    } while (0)
        !           163: 
        !           164: #define ASM_OUTPUT_ALIGN(FILE,LOG)     \
        !           165:   if ((LOG) == 1)                      \
        !           166:     fprintf (FILE, "\teven\n");        \
        !           167:   else if ((LOG) != 0)                 \
        !           168:     abort ();
        !           169: 
        !           170: /* This is how to output an assembler line
        !           171:    that says to advance the location counter by SIZE bytes.  */
        !           172: 
        !           173: #undef ASM_OUTPUT_SKIP
        !           174: #define ASM_OUTPUT_SKIP(FILE,SIZE)  \
        !           175:   fprintf (FILE, "\tspace %d\n", (SIZE))
        !           176: 
        !           177: /* Can't use ASM_OUTPUT_SKIP in text section; it doesn't leave 0s.  */
        !           178: 
        !           179: #define ASM_NO_SKIP_IN_TEXT 1
        !           180: 
        !           181: /* The beginnings of sdb support... */
        !           182: 
        !           183: #define ASM_OUTPUT_SOURCE_FILENAME(FILE, FILENAME) \
        !           184:   fprintf (FILE, "\tfile\t\"%s\"\n", FILENAME)
        !           185: 
        !           186: #define ASM_OUTPUT_SOURCE_LINE(FILE, LINENO)   \
        !           187:   fprintf (FILE, "\tln\t%d\n",                 \
        !           188:           (sdb_begin_function_line             \
        !           189:            ? last_linenum - sdb_begin_function_line : 1))
        !           190: 
        !           191: /* Yet another null terminated string format. */
        !           192: 
        !           193: #define ASM_OUTPUT_ASCII(FILE,PTR,LEN) \
        !           194:   { register int sp = 0, lp = 0; \
        !           195:     fprintf ((FILE), "\tbyte\t"); \
        !           196:   loop: \
        !           197:     if ((PTR)[sp] > ' ' && ! ((PTR)[sp] & 0x80) && (PTR)[sp] != '\\') \
        !           198:       { lp += 3; \
        !           199:        fprintf ((FILE), "'%c", (PTR)[sp]); } \
        !           200:     else \
        !           201:       { lp += 5; \
        !           202:        fprintf ((FILE), "0x%x", (PTR)[sp]); } \
        !           203:     if (++sp < (LEN)) \
        !           204:       {        if (lp > 60) \
        !           205:          { lp = 0; \
        !           206:            fprintf ((FILE), "\n\t%s ", ASCII_DATA_ASM_OP); }   \
        !           207:        else \
        !           208:          putc (',', (FILE)); \
        !           209:        goto loop; } \
        !           210:     putc ('\n', (FILE)); }
        !           211: 
        !           212: /* Note that in the case of the movhi which fetches an element of
        !           213:    an ADDR_DIFF_VEC the offset output is too large by 2.
        !           214:    This is because the 3b1 assembler refuses to subtract 2.
        !           215:    ASM_OUTPUT_CASE_LABEL, below, compensates for this.  */
        !           216: 
        !           217: #define PRINT_OPERAND_ADDRESS(FILE, ADDR)  \
        !           218: { register rtx reg1, reg2, breg, ireg;                                 \
        !           219:   register rtx addr = ADDR;                                            \
        !           220:   rtx offset;                                                          \
        !           221:   switch (GET_CODE (addr))                                             \
        !           222:     {                                                                  \
        !           223:     case REG:                                                          \
        !           224:       fprintf (FILE, "(%s)", reg_names[REGNO (addr)]);                 \
        !           225:       break;                                                           \
        !           226:     case PRE_DEC:                                                      \
        !           227:       fprintf (FILE, "-(%s)", reg_names[REGNO (XEXP (addr, 0))]);      \
        !           228:       break;                                                           \
        !           229:     case POST_INC:                                                     \
        !           230:       fprintf (FILE, "(%s)+", reg_names[REGNO (XEXP (addr, 0))]);      \
        !           231:       break;                                                           \
        !           232:     case PLUS:                                                         \
        !           233:       reg1 = 0;        reg2 = 0;                                               \
        !           234:       ireg = 0;        breg = 0;                                               \
        !           235:       offset = 0;                                                      \
        !           236:       if (CONSTANT_ADDRESS_P (XEXP (addr, 0)))                         \
        !           237:        {                                                               \
        !           238:          offset = XEXP (addr, 0);                                      \
        !           239:          addr = XEXP (addr, 1);                                        \
        !           240:        }                                                               \
        !           241:       else if (CONSTANT_ADDRESS_P (XEXP (addr, 1)))                    \
        !           242:        {                                                               \
        !           243:          offset = XEXP (addr, 1);                                      \
        !           244:          addr = XEXP (addr, 0);                                        \
        !           245:        }                                                               \
        !           246:       if (GET_CODE (addr) != PLUS) ;                                   \
        !           247:       else if (GET_CODE (XEXP (addr, 0)) == SIGN_EXTEND)               \
        !           248:        {                                                               \
        !           249:          reg1 = XEXP (addr, 0);                                        \
        !           250:          addr = XEXP (addr, 1);                                        \
        !           251:        }                                                               \
        !           252:       else if (GET_CODE (XEXP (addr, 1)) == SIGN_EXTEND)               \
        !           253:        {                                                               \
        !           254:          reg1 = XEXP (addr, 1);                                        \
        !           255:          addr = XEXP (addr, 0);                                        \
        !           256:        }                                                               \
        !           257:       else if (GET_CODE (XEXP (addr, 0)) == MULT)                      \
        !           258:        {                                                               \
        !           259:          reg1 = XEXP (addr, 0);                                        \
        !           260:          addr = XEXP (addr, 1);                                        \
        !           261:        }                                                               \
        !           262:       else if (GET_CODE (XEXP (addr, 1)) == MULT)                      \
        !           263:        {                                                               \
        !           264:          reg1 = XEXP (addr, 1);                                        \
        !           265:          addr = XEXP (addr, 0);                                        \
        !           266:        }                                                               \
        !           267:       else if (GET_CODE (XEXP (addr, 0)) == REG)                       \
        !           268:        {                                                               \
        !           269:          reg1 = XEXP (addr, 0);                                        \
        !           270:          addr = XEXP (addr, 1);                                        \
        !           271:        }                                                               \
        !           272:       else if (GET_CODE (XEXP (addr, 1)) == REG)                       \
        !           273:        {                                                               \
        !           274:          reg1 = XEXP (addr, 1);                                        \
        !           275:          addr = XEXP (addr, 0);                                        \
        !           276:        }                                                               \
        !           277:       if (GET_CODE (addr) == REG || GET_CODE (addr) == MULT            \
        !           278:          || GET_CODE (addr) == SIGN_EXTEND)                            \
        !           279:        { if (reg1 == 0) reg1 = addr; else reg2 = addr; addr = 0; }     \
        !           280: /*  for OLD_INDEXING                                                   \
        !           281:       else if (GET_CODE (addr) == PLUS)                                        \
        !           282:        {                                                               \
        !           283:          if (GET_CODE (XEXP (addr, 0)) == REG)                         \
        !           284:            {                                                           \
        !           285:              reg2 = XEXP (addr, 0);                                    \
        !           286:              addr = XEXP (addr, 1);                                    \
        !           287:            }                                                           \
        !           288:          else if (GET_CODE (XEXP (addr, 1)) == REG)                    \
        !           289:            {                                                           \
        !           290:              reg2 = XEXP (addr, 1);                                    \
        !           291:              addr = XEXP (addr, 0);                                    \
        !           292:            }                                                           \
        !           293:        }                                                               \
        !           294:   */                                                                   \
        !           295:       if (offset != 0) { if (addr != 0) abort (); addr = offset; }     \
        !           296:       if ((reg1 && (GET_CODE (reg1) == SIGN_EXTEND                     \
        !           297:                    || GET_CODE (reg1) == MULT))                        \
        !           298:          || (reg2 != 0 && REGNO_OK_FOR_BASE_P (REGNO (reg2))))         \
        !           299:        { breg = reg2; ireg = reg1; }                                   \
        !           300:       else if (reg1 != 0 && REGNO_OK_FOR_BASE_P (REGNO (reg1)))                \
        !           301:        { breg = reg1; ireg = reg2; }                                   \
        !           302:       if (ireg != 0 && breg == 0 && GET_CODE (addr) == LABEL_REF)      \
        !           303:         { int scale = 1;                                               \
        !           304:          if (GET_CODE (ireg) == MULT)                                  \
        !           305:            { scale = INTVAL (XEXP (ireg, 1));                          \
        !           306:              ireg = XEXP (ireg, 0); }                                  \
        !           307:          if (GET_CODE (ireg) == SIGN_EXTEND)                           \
        !           308:            fprintf (FILE, "LD%%%d(%%pc,%s.w",                          \
        !           309:                     CODE_LABEL_NUMBER (XEXP (addr, 0)),                \
        !           310:                     reg_names[REGNO (XEXP (ireg, 0))]);                \
        !           311:          else                                                          \
        !           312:            fprintf (FILE, "LD%%%d(%%pc,%s.l",                          \
        !           313:                     CODE_LABEL_NUMBER (XEXP (addr, 0)),                \
        !           314:                     reg_names[REGNO (ireg)]);                          \
        !           315:          if (scale != 1) fprintf (FILE, "*%d", scale);                 \
        !           316:          fprintf (FILE, ")");                                          \
        !           317:          break; }                                                      \
        !           318:       if (breg != 0 && ireg == 0 && GET_CODE (addr) == LABEL_REF)      \
        !           319:         { fprintf (FILE, "LD%%%d(%%pc,%s.l",                           \
        !           320:                   CODE_LABEL_NUMBER (XEXP (addr, 0)),                  \
        !           321:                   reg_names[REGNO (breg)]);                            \
        !           322:          putc (')', FILE);                                             \
        !           323:          break; }                                                      \
        !           324:       if (ireg != 0 || breg != 0)                                      \
        !           325:        { int scale = 1;                                                \
        !           326:          if (breg == 0)                                                \
        !           327:            abort ();                                                   \
        !           328:          if (addr != 0)                                                \
        !           329:            output_addr_const (FILE, addr);                             \
        !           330:          fprintf (FILE, "(%s", reg_names[REGNO (breg)]);               \
        !           331:          if (ireg != 0)                                                \
        !           332:            putc (',', FILE);                                           \
        !           333:          if (ireg != 0 && GET_CODE (ireg) == MULT)                     \
        !           334:            { scale = INTVAL (XEXP (ireg, 1));                          \
        !           335:              ireg = XEXP (ireg, 0); }                                  \
        !           336:          if (ireg != 0 && GET_CODE (ireg) == SIGN_EXTEND)              \
        !           337:            fprintf (FILE, "%s.w", reg_names[REGNO (XEXP (ireg, 0))]);  \
        !           338:          else if (ireg != 0)                                           \
        !           339:            fprintf (FILE, "%s.l", reg_names[REGNO (ireg)]);            \
        !           340:          if (scale != 1) fprintf (FILE, "*%d", scale);                 \
        !           341:          putc (')', FILE);                                             \
        !           342:          break;                                                        \
        !           343:        }                                                               \
        !           344:       else if (reg1 != 0 && GET_CODE (addr) == LABEL_REF)              \
        !           345:        { fprintf (FILE, "LD%%%d(%%pc,%s.w)",                           \
        !           346:                   CODE_LABEL_NUMBER (XEXP (addr, 0)),                  \
        !           347:                   reg_names[REGNO (reg1)]);                            \
        !           348:          break; }                                                      \
        !           349:     default:                                                           \
        !           350:       if (GET_CODE (addr) == CONST_INT                                 \
        !           351:          && INTVAL (addr) < 0x8000                                     \
        !           352:          && INTVAL (addr) >= -0x8000)                                  \
        !           353:        fprintf (FILE, "%d", INTVAL (addr));                            \
        !           354:       else                                                             \
        !           355:         output_addr_const (FILE, addr);                                        \
        !           356:     }}
        !           357: 
        !           358: #define ASM_GENERATE_INTERNAL_LABEL(LABEL, PREFIX, NUM)        \
        !           359:   sprintf ((LABEL), "%s%%%d", (PREFIX), (NUM))
        !           360: 
        !           361: #define ASM_OUTPUT_INTERNAL_LABEL(FILE,PREFIX,NUM)     \
        !           362:     fprintf (FILE, "%s%%%d:\n", PREFIX, NUM)
        !           363: 
        !           364: /* Must put address in  %a0 , not  %d0 . -- LGM, 7/15/88 */
        !           365: #define FUNCTION_PROFILER(FILE, LABEL_NO)      \
        !           366:     fprintf (FILE, "\tmov.l &LP%%%d,%%a0\n\tjsr mcount\n", (LABEL_NO))
        !           367: 
        !           368: #define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE)   \
        !           369:     fprintf (FILE, "\tlong L%%%d\n", (VALUE))
        !           370: 
        !           371: #define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, VALUE, REL)     \
        !           372:     fprintf (FILE, "\tshort L%%%d-L%%%d\n", (VALUE), (REL))
        !           373: 
        !           374: /* ihnp4!lmayk!lgm says that `short 0' triggers assembler bug;
        !           375:    `short L%nn-L%nn' supposedly works.  */
        !           376: #define ASM_OUTPUT_CASE_LABEL(FILE,PREFIX,NUM,TABLE)                   \
        !           377:   if (! RTX_INTEGRATED_P (TABLE))                                      \
        !           378:     fprintf (FILE, "\tswbeg &%d\n%s%%%d:\n",                           \
        !           379:             XVECLEN (PATTERN (TABLE), 1), (PREFIX), (NUM));            \
        !           380:   else                                                                 \
        !           381:     fprintf (FILE, "\tswbeg &%d\n%s%%%d:\n\tshort %s%%%d-%s%%%d\n",    \
        !           382:             XVECLEN (PATTERN (TABLE), 1) + 1, (PREFIX), (NUM),         \
        !           383:             (PREFIX), (NUM), (PREFIX), (NUM))
        !           384: 
        !           385: /* At end of a switch table, define LDnnn iff the symbol LInnn was defined.
        !           386:    Some SGS assemblers have a bug such that "Lnnn-LInnn-2.b(pc,d0.l*2)"
        !           387:    fails to assemble.  Luckily "LDnnn(pc,d0.l*2)" produces the results
        !           388:    we want.  This difference can be accommodated by making the assembler
        !           389:    define such "LDnnn" to be either "Lnnn-LInnn-2.b", "Lnnn", or any other
        !           390:    string, as necessary.  This is accomplished via the ASM_OUTPUT_CASE_END
        !           391:    macro. */
        !           392: 
        !           393: #define ASM_OUTPUT_CASE_END(FILE,NUM,TABLE)                            \
        !           394: { if (switch_table_difference_label_flag)                              \
        !           395:     fprintf (FILE, "\tset LD%%%d,L%%%d-LI%%%d\n", (NUM), (NUM), (NUM));        \
        !           396:   switch_table_difference_label_flag = 0; }
        !           397: 
        !           398: int switch_table_difference_label_flag;
        !           399: 
        !           400: #define ASM_OUTPUT_OPCODE(FILE, PTR)                   \
        !           401: { if ((PTR)[0] == 'j' && (PTR)[1] == 'b')              \
        !           402:     { ++(PTR);                                         \
        !           403:       while (*(PTR) != ' ')                            \
        !           404:        { putc (*(PTR), (FILE)); ++(PTR); }             \
        !           405:       fprintf ((FILE), ".w"); }                                \
        !           406:   else if ((PTR)[0] == 's')                            \
        !           407:     {                                                  \
        !           408:       if (!strncmp ((PTR), "swap", 4))                 \
        !           409:        { fprintf ((FILE), "swap.w"); (PTR) += 4; }     \
        !           410:     }                                                  \
        !           411:   else if ((PTR)[0] == 'f')                            \
        !           412:     {                                                  \
        !           413:       if (!strncmp ((PTR), "fmove", 5))                        \
        !           414:        { fprintf ((FILE), "fmov"); (PTR) += 5; }       \
        !           415:       else if (!strncmp ((PTR), "fbne", 4))            \
        !           416:        { fprintf ((FILE), "fbneq"); (PTR) += 4; }      \
        !           417:     }                                                  \
        !           418: /* MOVE, MOVEA, MOVEQ, MOVEC ==> MOV   */              \
        !           419:   else if ((PTR)[0] == 'm' && (PTR)[1] == 'o'          \
        !           420:           && (PTR)[2] == 'v' && (PTR)[3] == 'e')       \
        !           421:     { fprintf ((FILE), "mov"); (PTR) += 4;             \
        !           422:        if ((PTR)[0] == 'q' || (PTR)[0] == 'a'          \
        !           423:           || (PTR)[0] == 'c') (PTR)++; }               \
        !           424: /* SUB, SUBQ, SUBA, SUBI ==> SUB */                    \
        !           425:   else if ((PTR)[0] == 's' && (PTR)[1] == 'u'          \
        !           426:           && (PTR)[2] == 'b')                          \
        !           427:     { fprintf ((FILE), "sub"); (PTR) += 3;             \
        !           428:        if ((PTR)[0] == 'q' || (PTR)[0] == 'i'          \
        !           429:           || (PTR)[0] == 'a') (PTR)++; }               \
        !           430: /* CMP, CMPA, CMPI, CMPM ==> CMP       */              \
        !           431:   else if ((PTR)[0] == 'c' && (PTR)[1] == 'm'          \
        !           432:           && (PTR)[2] == 'p')                          \
        !           433:     { fprintf ((FILE), "cmp"); (PTR) += 3;             \
        !           434:        if ((PTR)[0] == 'a' || (PTR)[0] == 'i'          \
        !           435:           || (PTR)[0] == 'm') (PTR)++; }               \
        !           436: }
        !           437: 
        !           438: #define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED)  \
        !           439: ( fputs ("\tlcomm ", (FILE)),                  \
        !           440:   assemble_name ((FILE), (NAME)),              \
        !           441:   fprintf ((FILE), ",%u\n", (ROUNDED)))
        !           442: 
        !           443: #define ASM_OUTPUT_LABELREF(FILE,NAME) \
        !           444:   fprintf (FILE, "%s", NAME)
        !           445: 
        !           446: /* Override usual definitions of SDB output macros.
        !           447:    These definitions differ only in the absence of the period
        !           448:    at the beginning of the name of the directive
        !           449:    and in the use of `~' as the symbol for the current location.  */
        !           450: 
        !           451: #define PUT_SDB_SCL(a) fprintf(asm_out_file, "\tscl\t%d;", (a))
        !           452: #define PUT_SDB_INT_VAL(a) fprintf (asm_out_file, "\tval\t%d;", (a))
        !           453: #define PUT_SDB_VAL(a)                         \
        !           454: ( fputs ("\tval\t", asm_out_file),             \
        !           455:   output_addr_const (asm_out_file, (a)),       \
        !           456:   fputc (';', asm_out_file))
        !           457: 
        !           458: #define PUT_SDB_DEF(a)                         \
        !           459: do { fprintf (asm_out_file, "\tdef\t");        \
        !           460:      ASM_OUTPUT_LABELREF (asm_out_file, a);    \
        !           461:      fprintf (asm_out_file, ";"); } while (0)
        !           462: 
        !           463: #define PUT_SDB_PLAIN_DEF(a) fprintf(asm_out_file,"\tdef\t~%s;",a)
        !           464: #define PUT_SDB_ENDEF fputs("\tendef\n", asm_out_file)
        !           465: #define PUT_SDB_TYPE(a) fprintf(asm_out_file, "\ttype\t0%o;", a)
        !           466: #define PUT_SDB_SIZE(a) fprintf(asm_out_file, "\tsize\t%d;", a)
        !           467: #define PUT_SDB_START_DIM fprintf(asm_out_file, "\tdim\t")
        !           468: 
        !           469: #define PUT_SDB_TAG(a)                         \
        !           470: do { fprintf (asm_out_file, "\ttag\t");        \
        !           471:      ASM_OUTPUT_LABELREF (asm_out_file, a);    \
        !           472:      fprintf (asm_out_file, ";"); } while (0)
        !           473: 
        !           474: #define PUT_SDB_BLOCK_START(LINE)              \
        !           475:   fprintf (asm_out_file,                       \
        !           476:           "\tdef\t~bb;\tval\t~;\tscl\t100;\tline\t%d;\tendef\n",       \
        !           477:           (LINE))
        !           478: 
        !           479: #define PUT_SDB_BLOCK_END(LINE)                        \
        !           480:   fprintf (asm_out_file,                       \
        !           481:           "\tdef\t~eb;\tval\t~;\tscl\t100;\tline\t%d;\tendef\n",       \
        !           482:           (LINE))
        !           483: 
        !           484: #define PUT_SDB_FUNCTION_START(LINE)           \
        !           485:   fprintf (asm_out_file,                       \
        !           486:           "\tdef\t~bf;\tval\t~;\tscl\t101;\tline\t%d;\tendef\n",       \
        !           487:           (LINE))
        !           488: 
        !           489: #define PUT_SDB_FUNCTION_END(LINE)             \
        !           490:   fprintf (asm_out_file,                       \
        !           491:           "\tdef\t~ef;\tval\t~;\tscl\t101;\tline\t%d;\tendef\n",       \
        !           492:           (LINE))
        !           493: 
        !           494: #define PUT_SDB_EPILOGUE_END(NAME)             \
        !           495:   fprintf (asm_out_file,                       \
        !           496:           "\tdef\t%s;\tval\t~;\tscl\t-1;\tendef\n",    \
        !           497:           (NAME))
        !           498: 
        !           499: #define SDB_GENERATE_FAKE(BUFFER, NUMBER) \
        !           500:   sprintf ((BUFFER), "~%dfake", (NUMBER));
        !           501: 
        !           502: /* Define subroutines to call to handle multiply, divide, and remainder.
        !           503:    Use the subroutines that the 3b1's library provides.
        !           504:    The `*' prevents an underscore from being prepended by the compiler.  */
        !           505: 
        !           506: #define DIVSI3_LIBCALL "*ldiv"
        !           507: #define UDIVSI3_LIBCALL "*uldiv"
        !           508: #define MODSI3_LIBCALL "*lrem"
        !           509: #define UMODSI3_LIBCALL "*ulrem"
        !           510: #define MULSI3_LIBCALL "*lmul"
        !           511: #define UMULSI3_LIBCALL "*ulmul"

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.