|
@@ -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
|
peter