paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 23:59:10 +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; function readderef(const s:string;skipnil:boolean):boolean;
type type
tdereftype = (derefnil,derefaktrecordindex,derefaktstaticindex,derefunit, tdereftype = (derefnil,derefaktrecordindex,derefaktstaticindex,
derefrecord,derefindex,dereflocal,derefpara); derefunit,derefrecord,derefindex,
dereflocal,derefpara,derefaktlocalindex);
var var
b : tdereftype; b : tdereftype;
begin begin
@ -252,6 +253,11 @@ begin
writeln('AktStatic ',s,' ',ppufile^.getword); writeln('AktStatic ',s,' ',ppufile^.getword);
break; break;
end; end;
derefaktlocalindex :
begin
writeln('AktLocal ',s,' ',ppufile^.getword);
break;
end;
derefunit : derefunit :
begin begin
writeln('Unit ',ppufile^.getword); writeln('Unit ',ppufile^.getword);
@ -273,6 +279,11 @@ begin
begin begin
write(s,' ',ppufile^.getword,', '); write(s,' ',ppufile^.getword,', ');
end; end;
else
begin
writeln('!! unsupported dereftyp: ',ord(derefindex));
break;
end;
end; end;
until false; until false;
end; end;
@ -1442,7 +1453,10 @@ begin
end. end.
{ {
$Log$ $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 * copyright 2000
Revision 1.11 1999/11/30 10:35:37 peter Revision 1.11 1999/11/30 10:35:37 peter