paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 01:51:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* unified ies

Browse Source 
git-svn-id: trunk@6700 -
This commit is contained in:
florian 2007-03-03 16:03:20 +00:00
parent d5aea5e14a
commit d48b98e8b9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symtable.pas
View File

@ -1880,7 +1880,7 @@ implementation
s: string; s: string;
begin begin
if name = '' then if name = '' then
internalerror(2004121201); internalerror(2004121202);
s:= upper(name); s:= upper(name);
mac:=tmacro(search_macro(s)); mac:=tmacro(search_macro(s));
if not assigned(mac) then if not assigned(mac) then
@ -1903,7 +1903,7 @@ implementation
s: string; s: string;
begin begin
if name = '' then if name = '' then
internalerror(2004121201); internalerror(2004121203);
s:= upper(name); s:= upper(name);
mac:=tmacro(search_macro(s)); mac:=tmacro(search_macro(s));
if not assigned(mac) then if not assigned(mac) then
@ -1934,7 +1934,7 @@ implementation
s: string; s: string;
begin begin
if name = '' then if name = '' then
internalerror(2004121201); internalerror(2004121204);
s:= upper(name); s:= upper(name);
mac:=tmacro(search_macro(s)); mac:=tmacro(search_macro(s));
if not assigned(mac) then if not assigned(mac) then
@ -1966,7 +1966,7 @@ implementation
s: string; s: string;
begin begin
if name = '' then if name = '' then
internalerror(2004121201); internalerror(2004121205);
s:= upper(name); s:= upper(name);
mac:=tmacro(search_macro(s)); mac:=tmacro(search_macro(s));
if not assigned(mac) then if not assigned(mac) then