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

* updated for new aktlocalindex

Browse Source
This commit is contained in:
peter 2000-01-23 16:34:36 +00:00
parent f16647ede6
commit 5ca6d45c4d
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
utils/ppudump.pp
View File

@ -226,8 +226,9 @@ end;
function readderef(const s:string;skipnil:boolean):boolean;
type
tdereftype = (derefnil,derefaktrecordindex,derefaktstaticindex,derefunit,
derefrecord,derefindex,dereflocal,derefpara);
tdereftype = (derefnil,derefaktrecordindex,derefaktstaticindex,
derefunit,derefrecord,derefindex,
dereflocal,derefpara,derefaktlocalindex);
var
b : tdereftype;
begin
@ -252,6 +253,11 @@ begin
writeln('AktStatic ',s,' ',ppufile^.getword);
break;
end;
derefaktlocalindex :
begin
writeln('AktLocal ',s,' ',ppufile^.getword);
break;
end;
derefunit :
begin
writeln('Unit ',ppufile^.getword);
@ -273,6 +279,11 @@ begin
begin
write(s,' ',ppufile^.getword,', ');
end;
else
begin
writeln('!! unsupported dereftyp: ',ord(derefindex));
break;
end;
end;
until false;
end;
@ -1442,7 +1453,10 @@ begin
end.
{
$Log$
Revision 1.12 2000-01-07 16:46:03 daniel
Revision 1.13 2000-01-23 16:34:36 peter
* updated for new aktlocalindex
Revision 1.12 2000/01/07 16:46:03 daniel
* copyright 2000
Revision 1.11 1999/11/30 10:35:37 peter