|
@@ -435,26 +435,26 @@ implementation
|
|
repeat
|
|
repeat
|
|
b:=ppufile.readentry;
|
|
b:=ppufile.readentry;
|
|
case b of
|
|
case b of
|
|
- ibpointerdef : def:=tpointerdef.ppuload(ppufile);
|
|
|
|
- ibarraydef : def:=tarraydef.ppuload(ppufile);
|
|
|
|
- iborddef : def:=torddef.ppuload(ppufile);
|
|
|
|
- ibfloatdef : def:=tfloatdef.ppuload(ppufile);
|
|
|
|
- ibprocdef : def:=tprocdef.ppuload(ppufile);
|
|
|
|
- ibshortstringdef : def:=tstringdef.loadshort(ppufile);
|
|
|
|
- iblongstringdef : def:=tstringdef.loadlong(ppufile);
|
|
|
|
- ibansistringdef : def:=tstringdef.loadansi(ppufile);
|
|
|
|
- ibwidestringdef : def:=tstringdef.loadwide(ppufile);
|
|
|
|
- ibunicodestringdef : def:=tstringdef.loadunicode(ppufile);
|
|
|
|
- ibrecorddef : def:=trecorddef.ppuload(ppufile);
|
|
|
|
- ibobjectdef : def:=tobjectdef.ppuload(ppufile);
|
|
|
|
- ibenumdef : def:=tenumdef.ppuload(ppufile);
|
|
|
|
- ibsetdef : def:=tsetdef.ppuload(ppufile);
|
|
|
|
- ibprocvardef : def:=tprocvardef.ppuload(ppufile);
|
|
|
|
- ibfiledef : def:=tfiledef.ppuload(ppufile);
|
|
|
|
- ibclassrefdef : def:=tclassrefdef.ppuload(ppufile);
|
|
|
|
- ibformaldef : def:=tformaldef.ppuload(ppufile);
|
|
|
|
- ibvariantdef : def:=tvariantdef.ppuload(ppufile);
|
|
|
|
- ibundefineddef : def:=tundefineddef.ppuload(ppufile);
|
|
|
|
|
|
+ ibpointerdef : def:=cpointerdef.ppuload(ppufile);
|
|
|
|
+ ibarraydef : def:=carraydef.ppuload(ppufile);
|
|
|
|
+ iborddef : def:=corddef.ppuload(ppufile);
|
|
|
|
+ ibfloatdef : def:=cfloatdef.ppuload(ppufile);
|
|
|
|
+ ibprocdef : def:=cprocdef.ppuload(ppufile);
|
|
|
|
+ ibshortstringdef : def:=cstringdef.loadshort(ppufile);
|
|
|
|
+ iblongstringdef : def:=cstringdef.loadlong(ppufile);
|
|
|
|
+ ibansistringdef : def:=cstringdef.loadansi(ppufile);
|
|
|
|
+ ibwidestringdef : def:=cstringdef.loadwide(ppufile);
|
|
|
|
+ ibunicodestringdef : def:=cstringdef.loadunicode(ppufile);
|
|
|
|
+ ibrecorddef : def:=crecorddef.ppuload(ppufile);
|
|
|
|
+ ibobjectdef : def:=cobjectdef.ppuload(ppufile);
|
|
|
|
+ ibenumdef : def:=cenumdef.ppuload(ppufile);
|
|
|
|
+ ibsetdef : def:=csetdef.ppuload(ppufile);
|
|
|
|
+ ibprocvardef : def:=cprocvardef.ppuload(ppufile);
|
|
|
|
+ ibfiledef : def:=cfiledef.ppuload(ppufile);
|
|
|
|
+ ibclassrefdef : def:=cclassrefdef.ppuload(ppufile);
|
|
|
|
+ ibformaldef : def:=cformaldef.ppuload(ppufile);
|
|
|
|
+ ibvariantdef : def:=cvariantdef.ppuload(ppufile);
|
|
|
|
+ ibundefineddef : def:=cundefineddef.ppuload(ppufile);
|
|
ibenddefs : break;
|
|
ibenddefs : break;
|
|
ibend : Message(unit_f_ppu_read_error);
|
|
ibend : Message(unit_f_ppu_read_error);
|
|
else
|
|
else
|
|
@@ -478,21 +478,21 @@ implementation
|
|
repeat
|
|
repeat
|
|
b:=ppufile.readentry;
|
|
b:=ppufile.readentry;
|
|
case b of
|
|
case b of
|
|
- ibtypesym : sym:=ttypesym.ppuload(ppufile);
|
|
|
|
- ibprocsym : sym:=tprocsym.ppuload(ppufile);
|
|
|
|
- ibconstsym : sym:=tconstsym.ppuload(ppufile);
|
|
|
|
- ibstaticvarsym : sym:=tstaticvarsym.ppuload(ppufile);
|
|
|
|
- iblocalvarsym : sym:=tlocalvarsym.ppuload(ppufile);
|
|
|
|
- ibparavarsym : sym:=tparavarsym.ppuload(ppufile);
|
|
|
|
- ibfieldvarsym : sym:=tfieldvarsym.ppuload(ppufile);
|
|
|
|
|
|
+ ibtypesym : sym:=ctypesym.ppuload(ppufile);
|
|
|
|
+ ibprocsym : sym:=cprocsym.ppuload(ppufile);
|
|
|
|
+ ibconstsym : sym:=cconstsym.ppuload(ppufile);
|
|
|
|
+ ibstaticvarsym : sym:=cstaticvarsym.ppuload(ppufile);
|
|
|
|
+ iblocalvarsym : sym:=clocalvarsym.ppuload(ppufile);
|
|
|
|
+ ibparavarsym : sym:=cparavarsym.ppuload(ppufile);
|
|
|
|
+ ibfieldvarsym : sym:=cfieldvarsym.ppuload(ppufile);
|
|
ibabsolutevarsym : sym:=cabsolutevarsym.ppuload(ppufile);
|
|
ibabsolutevarsym : sym:=cabsolutevarsym.ppuload(ppufile);
|
|
- ibenumsym : sym:=tenumsym.ppuload(ppufile);
|
|
|
|
- ibpropertysym : sym:=tpropertysym.ppuload(ppufile);
|
|
|
|
- ibunitsym : sym:=tunitsym.ppuload(ppufile);
|
|
|
|
- iblabelsym : sym:=tlabelsym.ppuload(ppufile);
|
|
|
|
- ibsyssym : sym:=tsyssym.ppuload(ppufile);
|
|
|
|
|
|
+ ibenumsym : sym:=cenumsym.ppuload(ppufile);
|
|
|
|
+ ibpropertysym : sym:=cpropertysym.ppuload(ppufile);
|
|
|
|
+ ibunitsym : sym:=cunitsym.ppuload(ppufile);
|
|
|
|
+ iblabelsym : sym:=clabelsym.ppuload(ppufile);
|
|
|
|
+ ibsyssym : sym:=csyssym.ppuload(ppufile);
|
|
ibmacrosym : sym:=tmacro.ppuload(ppufile);
|
|
ibmacrosym : sym:=tmacro.ppuload(ppufile);
|
|
- ibnamespacesym : sym:=tnamespacesym.ppuload(ppufile);
|
|
|
|
|
|
+ ibnamespacesym : sym:=cnamespacesym.ppuload(ppufile);
|
|
ibendsyms : break;
|
|
ibendsyms : break;
|
|
ibend : Message(unit_f_ppu_read_error);
|
|
ibend : Message(unit_f_ppu_read_error);
|
|
else
|
|
else
|