Return to nextstep.c CVS log

Up to [Apple XNU] / GNUtools / cc / config

Annotation of GNUtools/cc/config/nextstep.c, revision 1.1

1.1     ! root        1: /* Functions for generic NeXT as target machine for GNU C compiler.
        !             2:    Copyright (C) 1989, 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
        !             3: 
        !             4: This file is part of GNU CC.
        !             5: 
        !             6: GNU CC is free software; you can redistribute it and/or modify
        !             7: it under the terms of the GNU General Public License as published by
        !             8: the Free Software Foundation; either version 2, or (at your option)
        !             9: any later version.
        !            10: 
        !            11: GNU CC is distributed in the hope that it will be useful,
        !            12: but WITHOUT ANY WARRANTY; without even the implied warranty of
        !            13: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
        !            14: GNU General Public License for more details.
        !            15: 
        !            16: You should have received a copy of the GNU General Public License
        !            17: along with GNU CC; see the file COPYING.  If not, write to
        !            18: the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
        !            19: 
        !            20: /* Make everything that used to go in the text section really go there.  */
        !            21: 
        !            22: int flag_no_mach_text_sections = 0;
        !            23: 
        !            24: #define OPT_STRCMP(opt) (!strncmp (opt, p, sizeof (opt)-1))
        !            25: 
        !            26: /* 1 if handle_pragma has been called yet.  */
        !            27: 
        !            28: static int pragma_initialized;
        !            29: 
        !            30: /* Initial setting of `optimize'.  */
        !            31: 
        !            32: static int initial_optimize_flag;
        !            33: 
        !            34: extern char *get_directive_line ();
        !            35: 
        !            36: /* Called from check_newline via the macro HANDLE_PRAGMA.
        !            37:    FINPUT is the source file input stream.  */
        !            38: 
        !            39: void
        !            40: handle_pragma (finput, get_line_function)
        !            41:      FILE *finput;
        !            42:      char *(*get_line_function) ();
        !            43: {
        !            44:   register char *p = (*get_line_function) (finput);
        !            45: 
        !            46:   /* Record initial setting of optimize flag, so we can restore it.  */
        !            47:   if (!pragma_initialized)
        !            48:     {
        !            49:       pragma_initialized = 1;
        !            50:       initial_optimize_flag = optimize;
        !            51:     }
        !            52: 
        !            53:   if (OPT_STRCMP ("CC_OPT_ON"))
        !            54:     {
        !            55:       optimize = 1, obey_regdecls = 0;
        !            56:       warning ("optimization turned on");
        !            57:     }
        !            58:   else if (OPT_STRCMP ("CC_OPT_OFF"))
        !            59:     {
        !            60:       optimize = 0, obey_regdecls = 1;
        !            61:       warning ("optimization turned off");
        !            62:     }
        !            63:   else if (OPT_STRCMP ("CC_OPT_RESTORE"))
        !            64:     {
        !            65:       extern int initial_optimize_flag;
        !            66: 
        !            67:       if (optimize != initial_optimize_flag)
        !            68:        {
        !            69:          if (initial_optimize_flag)
        !            70:            obey_regdecls = 0;
        !            71:          else
        !            72:            obey_regdecls = 1;
        !            73:          optimize = initial_optimize_flag;
        !            74:        }
        !            75:       warning ("optimization level restored");
        !            76:     }
        !            77:   else if (OPT_STRCMP ("CC_WRITABLE_STRINGS"))
        !            78:     flag_writable_strings = 1;
        !            79:   else if (OPT_STRCMP ("CC_NON_WRITABLE_STRINGS"))
        !            80:     flag_writable_strings = 0;
        !            81:   else if (OPT_STRCMP ("CC_NO_MACH_TEXT_SECTIONS"))
        !            82:     flag_no_mach_text_sections = 1;
        !            83: }

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