/* Subroutines for the C front end for System/370. Copyright (C) 1989, 1993, 1995, 1997, 1998, 1999, 2000 Free Software Foundation, Inc. Contributed by Jan Stein (jan@cd.chalmers.se). Modified for OS/390 LanguageEnvironment C by Dave Pitts (dpitts@cozx.com) Hacked for Linux-ELF/390 by Linas Vepstas (linas@linas.org) This file is part of GNU CC. GNU CC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU CC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "config.h" #include "system.h" #include "tree.h" #include "toplev.h" #include "cpplib.h" #include "c-pragma.h" #include "tm_p.h" #ifdef TARGET_HLASM /* #pragma map (name, alias) - In this implementation both name and alias are required to be identifiers. The older code seemed to be more permissive. Can anyone clarify? */ void i370_pr_map (pfile) cpp_reader *pfile ATTRIBUTE_UNUSED; { tree name, alias, x; if (c_lex (&x) == CPP_OPEN_PAREN && c_lex (&name) == CPP_NAME && c_lex (&x) == CPP_COMMA && c_lex (&alias) == CPP_NAME && c_lex (&x) == CPP_CLOSE_PAREN) { if (c_lex (&x) != CPP_EOF) warning ("junk at end of #pragma map"); mvs_add_alias (IDENTIFIER_POINTER (name), IDENTIFIER_POINTER (alias), 1); return; } warning ("malformed #pragma map, ignored"); } #endif