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

* updated for typesym writing

Browse Source
This commit is contained in:
peter 1999-07-27 23:45:29 +00:00
parent 30be2bf063
commit dd29b972d8
1 changed files with 37 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
utils/ppudump.pp
View File

@ -149,6 +149,7 @@ begin
end; end;
end; end;
Procedure ReadContainer(const prefix:string); Procedure ReadContainer(const prefix:string);
{ {
Read a serie of strings and write to the screen starting every line Read a serie of strings and write to the screen starting every line
@ -216,11 +217,13 @@ begin
until false; until false;
end; end;
procedure readdefref; procedure readdefref;
begin begin
readderef('Definition'); readderef('Definition');
end; end;
procedure readsymref; procedure readsymref;
begin begin
readderef('Symbol'); readderef('Symbol');
@ -291,8 +294,11 @@ begin
if params>0 then if params>0 then
begin begin
repeat repeat
write(space,' - ',tvarspez[ppufile^.getbyte],' '); writeln(space,' - ',tvarspez[ppufile^.getbyte]);
write (space,' def : ');
readdefref; readdefref;
write (space,' defsym : ');
readsymref;
dec(params); dec(params);
until params=0; until params=0;
end; end;
@ -463,6 +469,8 @@ begin
writeln(space,' Address: ',getlongint); writeln(space,' Address: ',getlongint);
write (space,' Definition: '); write (space,' Definition: ');
readdefref; readdefref;
write (space,' DefinitionSym: ');
readsymref;
i:=getbyte; i:=getbyte;
writeln(space,' Options: ',i); writeln(space,' Options: ',i);
if (i and vo_is_C_var)<>0 then if (i and vo_is_C_var)<>0 then
@ -488,7 +496,10 @@ begin
readcommonsym('Typed constant '); readcommonsym('Typed constant ');
write (space,' Definition: '); write (space,' Definition: ');
readdefref; readdefref;
write (space,' DefinitionSym: ');
readsymref;
writeln(space,' Label: ',getstring); writeln(space,' Label: ',getstring);
writeln(space,' ReallyConst: ',(getbyte<>0));
end; end;
ibabsolutesym : ibabsolutesym :
@ -499,6 +510,8 @@ begin
writeln(space,' Address: ',getlongint); writeln(space,' Address: ',getlongint);
write (space,' Definition: '); write (space,' Definition: ');
readdefref; readdefref;
write (space,' DefinitionSym: ');
readsymref;
writeln(space,' Options: ',getbyte); writeln(space,' Options: ',getbyte);
Write (space,' Relocated to '); Write (space,' Relocated to ');
b:=getbyte; b:=getbyte;
@ -510,7 +523,7 @@ begin
toaddr : toaddr :
begin begin
Write('Address : ',getlongint); Write('Address : ',getlongint);
write(' (Far: ',getbyte<>0,')'); WriteLn(' (Far: ',getbyte<>0,')');
end; end;
else else
Writeln ('!! Invalid unit format : Invalid absolute type encountered: ',b); Writeln ('!! Invalid unit format : Invalid absolute type encountered: ',b);
@ -531,11 +544,6 @@ begin
readsymref; readsymref;
write (space,' Stored symbol: '); write (space,' Stored symbol: ');
readsymref; readsymref;
{
writeln(space,' Read Name: ',getstring);
writeln(space,' Write Name: ',getstring);
writeln(space,' Stored Name: ',getstring);
}
write (space,' Read Definition: '); write (space,' Read Definition: ');
readdefref; readdefref;
write (space,' Write Definition: '); write (space,' Write Definition: ');
@ -583,7 +591,8 @@ type
tbasetype = (uauto,uvoid,uchar, tbasetype = (uauto,uvoid,uchar,
u8bit,u16bit,u32bit, u8bit,u16bit,u32bit,
s8bit,s16bit,s32bit, s8bit,s16bit,s32bit,
bool8bit,bool16bit,bool32bit); bool8bit,bool16bit,bool32bit,
u64bit,s64bit);
var var
b : byte; b : byte;
oldread_member : boolean; oldread_member : boolean;
@ -638,6 +647,8 @@ begin
bool8bit : writeln('bool8bit'); bool8bit : writeln('bool8bit');
bool16bit : writeln('bool16bit'); bool16bit : writeln('bool16bit');
bool32bit : writeln('bool32bit'); bool32bit : writeln('bool32bit');
u64bit : writeln('u64bit');
s64bit : writeln('s64bit');
else writeln('!! Warning: Invalid base type ',b); else writeln('!! Warning: Invalid base type ',b);
end; end;
writeln(space,' Range : ',getlongint,' to ',getlongint); writeln(space,' Range : ',getlongint,' to ',getlongint);
@ -1233,7 +1244,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.5 1999-07-05 12:32:40 florian Revision 1.6 1999-07-27 23:45:29 peter
* updated for typesym writing
Revision 1.5 1999/07/05 12:32:40 florian
* new property ppu writing implemented * new property ppu writing implemented
Revision 1.4 1999/07/03 00:25:44 peter Revision 1.4 1999/07/03 00:25:44 peter