X-Git-Url: http://git.efficios.com/?a=blobdiff_plain;f=gdb%2Fp-exp.y;h=fce3fc7966521f76aa1c286b17a3dd24e84fb39b;hb=8c5630cb0862b06f1ee546a303a8550e424c8bbc;hp=4b5ceb2e660c0b0322f00ea347c1a04b2fde55ea;hpb=3e79cecf024acb3f5739ec19d6ebd331f08e80e8;p=deliverable%2Fbinutils-gdb.git diff --git a/gdb/p-exp.y b/gdb/p-exp.y index 4b5ceb2e66..fce3fc7966 100644 --- a/gdb/p-exp.y +++ b/gdb/p-exp.y @@ -1,22 +1,21 @@ /* YACC parser for Pascal expressions, for GDB. - Copyright (C) 2000, 2006, 2007, 2008 Free Software Foundation, Inc. + Copyright (C) 2000, 2006, 2007, 2008, 2009, 2010 + Free Software Foundation, Inc. -This file is part of GDB. + This file is part of GDB. -This program 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 of the License, or -(at your option) any later version. + This program 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 3 of the License, or + (at your option) any later version. -This program 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. + This program 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 this program; if not, write to the Free Software -Foundation, Inc., 51 Franklin Street, Fifth Floor, -Boston, MA 02110-1301, USA. */ + You should have received a copy of the GNU General Public License + along with this program. If not, see . */ /* This file is derived from c-exp.y */ @@ -1023,7 +1022,7 @@ pop_current_type (void) { current_type = tp->stored; tp_top = tp->next; - xfree (tp); + free (tp); } } @@ -1086,7 +1085,6 @@ yylex () char *tokstart; char *uptokstart; char *tokptr; - char *p; int explen, tempbufindex; static char *tempbuf; static int tempbufsize; @@ -1139,7 +1137,7 @@ yylex () lexptr++; c = *lexptr++; if (c == '\\') - c = parse_escape (&lexptr); + c = parse_escape (parse_gdbarch, &lexptr); else if (c == '\'') error ("Empty character constant."); @@ -1304,7 +1302,7 @@ yylex () break; case '\\': tokptr++; - c = parse_escape (&tokptr); + c = parse_escape (parse_gdbarch, &tokptr); if (c == -1) { continue;