paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 01:59:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed loop in concat_procdefs

Browse Source
This commit is contained in:
peter 2002-08-25 09:06:21 +00:00
parent 563a0dc818
commit 5c57932695
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/symsym.pas
View File

@ -926,7 +926,7 @@ implementation
begin begin
pd:=defs; pd:=defs;
while assigned(defs) do while assigned(pd) do
begin begin
s.addprocdef(pd^.def); s.addprocdef(pd^.def);
pd:=pd^.next; pd:=pd^.next;
@ -2150,8 +2150,6 @@ implementation
pd : pbestreal; pd : pbestreal;
ps : pnormalset; ps : pnormalset;
pc : pchar; pc : pchar;
l1,l2 : longint;
begin begin
inherited loadsym(ppufile); inherited loadsym(ppufile);
typ:=constsym; typ:=constsym;
@ -2681,7 +2679,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.55 2002-08-20 16:54:40 peter Revision 1.56 2002-08-25 09:06:21 peter
* fixed loop in concat_procdefs
Revision 1.55 2002/08/20 16:54:40 peter
* write address of varsym always * write address of varsym always
Revision 1.54 2002/08/20 10:31:26 daniel Revision 1.54 2002/08/20 10:31:26 daniel