Return to next.c CVS log

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

Annotation of gcc/config/next.c, revision 1.1

1.1     ! root        1: /* next.c:  Functions for NeXT as target machine for GNU C compiler.  */
        !             2: 
        !             3: /* Note that the include below means that we can't debug routines in
        !             4:    m68k.c when running on a COFF system.  */
        !             5: 
        !             6: #include "m68k.c"
        !             7: 
        !             8: /* Make everything that used to go in the text section really go there.  */
        !             9: 
        !            10: int flag_no_mach_text_sections = 0;
        !            11: 
        !            12: #define OPT_STRCMP(opt) (!strncmp (opt, p, sizeof (opt)-1))
        !            13: 
        !            14: /* 1 if handle_pragma has been called yet.  */
        !            15: 
        !            16: static int pragma_initialized;
        !            17: 
        !            18: /* Initial setting of `optimize'.  */
        !            19: 
        !            20: static int initial_optimize_flag;
        !            21: 
        !            22: /* Called from check_newline via the macro HANDLE_PRAGMA.
        !            23:    FINPUT is the source file input stream.  */
        !            24: 
        !            25: void
        !            26: handle_pragma (finput)
        !            27:      FILE *finput;
        !            28: {
        !            29:   register char *p = get_directive_line (finput);
        !            30: 
        !            31:   /* Record initial setting of optimize flag, so we can restore it.  */
        !            32:   if (!pragma_initialized)
        !            33:     {
        !            34:       pragma_initialized = 1;
        !            35:       initial_optimize_flag = optimize;
        !            36:     }
        !            37: 
        !            38:   if (OPT_STRCMP ("CC_OPT_ON"))
        !            39:     optimize = 1, obey_regdecls = 0;
        !            40:   else if (OPT_STRCMP ("CC_OPT_OFF"))
        !            41:     optimize = 0, obey_regdecls = 1;
        !            42:   else if (OPT_STRCMP ("CC_OPT_RESTORE"))
        !            43:     {
        !            44:       extern int initial_optimize_flag;
        !            45: 
        !            46:       if (optimize != initial_optimize_flag)
        !            47:        {
        !            48:          if (initial_optimize_flag)
        !            49:            obey_regdecls = 0;
        !            50:          else
        !            51:            obey_regdecls = 1;
        !            52:          optimize = initial_optimize_flag;
        !            53:        }
        !            54:     }
        !            55:   else if (OPT_STRCMP ("CC_WRITABLE_STRINGS"))
        !            56:     flag_writable_strings = 1;
        !            57:   else if (OPT_STRCMP ("CC_NON_WRITABLE_STRINGS"))
        !            58:     flag_writable_strings = 0;
        !            59:   else if (OPT_STRCMP("CC_NO_MACH_TEXT_SECTIONS"))
        !            60:     flag_no_mach_text_sections = 1;
        !            61: }

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