gcc/config/i370/i370-c.c

   1 /* Subroutines for the C front end for System/370.
   2    Copyright (C) 1989, 1993, 1995, 1997, 1998, 1999, 2000
   3    Free Software Foundation, Inc.
   4    Contributed by Jan Stein (jan@cd.chalmers.se).
   5    Modified for OS/390 LanguageEnvironment C by Dave Pitts (dpitts@cozx.com)
   6    Hacked for Linux-ELF/390 by Linas Vepstas (linas@linas.org)
   7
   8 This file is part of GNU CC.
   9
  10 GNU CC is free software; you can redistribute it and/or modify
  11 it under the terms of the GNU General Public License as published by
  12 the Free Software Foundation; either version 2, or (at your option)
  13 any later version.
  14
  15 GNU CC is distributed in the hope that it will be useful,
  16 but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 GNU General Public License for more details.
  19
  20 You should have received a copy of the GNU General Public License
  21 along with GNU CC; see the file COPYING.  If not, write to
  22 the Free Software Foundation, 59 Temple Place - Suite 330,
  23 Boston, MA 02111-1307, USA.  */
  24
  25 #include "config.h"
  26 #include "system.h"
  27 #include "coretypes.h"
  28 #include "tm.h"
  29 #include "tree.h"
  30 #include "toplev.h"
  31 #include "cpplib.h"
  32 #include "c-pragma.h"
  33 #include "tm_p.h"
  34
  35 #ifdef TARGET_HLASM
  36
  37 /* #pragma map (name, alias) -
  38    In this implementation both name and alias are required to be
  39    identifiers.  The older code seemed to be more permissive.  Can
  40    anyone clarify?  */
  41
  42 void
  43 i370_pr_map (pfile)
  44      cpp_reader *pfile ATTRIBUTE_UNUSED;
  45 {
  46   tree name, alias, x;
  47
  48   if (c_lex (&x)        == CPP_OPEN_PAREN
  49       && c_lex (&name)  == CPP_NAME
  50       && c_lex (&x)     == CPP_COMMA
  51       && c_lex (&alias) == CPP_NAME
  52       && c_lex (&x)     == CPP_CLOSE_PAREN)
  53     {
  54       if (c_lex (&x) != CPP_EOF)
  55         warning ("junk at end of #pragma map");
  56
  57       mvs_add_alias (IDENTIFIER_POINTER (name), IDENTIFIER_POINTER (alias), 1);
  58       return;
  59     }
  60
  61   warning ("malformed #pragma map, ignored");
  62 }
  63
  64 #endif