paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-25 15:46:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix wrong internalerror when var names were different

Browse Source
This commit is contained in:
peter 2002-12-23 21:24:22 +00:00
parent 1da81c33ca
commit a44cae75fc
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pdecsub.pas
View File

@ -1958,7 +1958,7 @@ const
ad:=tsym(ad.indexnext); ad:=tsym(ad.indexnext);
fd:=tsym(fd.indexnext); fd:=tsym(fd.indexnext);
until false; until false;
if assigned(ad) or assigned(fd) then if assigned(ad) xor assigned(fd) then
internalerror(200204178); internalerror(200204178);
end; end;
@ -2087,7 +2087,10 @@ const
end. end.
{ {
$Log$ $Log$
Revision 1.91 2002-12-23 20:58:52 peter Revision 1.92 2002-12-23 21:24:22 peter
* fix wrong internalerror when var names were different
Revision 1.91 2002/12/23 20:58:52 peter
* cdecl array fix, hack to change it to vs_var is not needed * cdecl array fix, hack to change it to vs_var is not needed
Revision 1.90 2002/12/17 22:19:33 peter Revision 1.90 2002/12/17 22:19:33 peter