mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-13 05:40:20 +02:00
* new property ppu writing implemented
This commit is contained in:
parent
72e21acee1
commit
dbb520fd67
@ -525,14 +525,22 @@ begin
|
||||
writeln(space,' Options: ',getlongint);
|
||||
writeln(space,' Index: ',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,' Write Name: ',getstring);
|
||||
writeln(space,' Stored Name: ',getstring);
|
||||
write(space,' Read Definition: ');
|
||||
}
|
||||
write(space,' Read Definition: ');
|
||||
readdefref;
|
||||
write(space,' Write Definition: ');
|
||||
write(space,' Write Definition: ');
|
||||
readdefref;
|
||||
write(space,'Stored Definition: ');
|
||||
write(space,' Stored Definition: ');
|
||||
readdefref;
|
||||
end;
|
||||
|
||||
@ -1225,7 +1233,10 @@ begin
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* new link support
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user