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

* new property ppu writing implemented

Browse Source
This commit is contained in:
florian 1999-07-05 12:32:40 +00:00
parent 72e21acee1
commit dbb520fd67
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
utils/ppudump.pp
View File

@ -525,14 +525,22 @@ begin
writeln(space,' Options: ',getlongint); writeln(space,' Options: ',getlongint);
writeln(space,' Index: ',getlongint); writeln(space,' Index: ',getlongint);
writeln(space,' Default: ',getlongint); writeln(space,' Default: ',getlongint);
write(space,' Read symbol: ');
readsymref;
write(space,' Write symbol: ');
readsymref;
write(space,' Stored symbol: ');
readsymref;
{
writeln(space,' Read Name: ',getstring); writeln(space,' Read Name: ',getstring);
writeln(space,' Write Name: ',getstring); writeln(space,' Write Name: ',getstring);
writeln(space,' Stored 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: ');
readdefref; readdefref;
write(space,'Stored Definition: '); write(space,' Stored Definition: ');
readdefref; readdefref;
end; end;
@ -1225,7 +1233,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.4 1999-07-03 00:25:44 peter Revision 1.5 1999-07-05 12:32:40 florian
* new property ppu writing implemented
Revision 1.4 1999/07/03 00:25:44 peter
* 0.99.13 * 0.99.13
* new link support * new link support