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

* per default a property is stored, fixed

Browse Source
This commit is contained in:
florian 1999-09-14 11:09:08 +00:00
parent 78977be752
commit e73862f10d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pdecl.pas
View File

@ -1206,6 +1206,7 @@ unit pdecl;
addpropsymlist(p^.writeaccesssym,sym);
end;
end;
include(p^.propoptions,ppo_stored);
if (idtoken=_STORED) then
begin
consume(_STORED);
@ -1213,7 +1214,6 @@ unit pdecl;
deletepropsymlist(p^.storedsym);
p^.storedsym:=nil;
p^.storeddef:=nil;
include(p^.propoptions,ppo_stored);
case token of
_ID:
{ in the case that idtoken=_DEFAULT }
@ -2532,7 +2532,10 @@ unit pdecl;
end.
{
$Log$
Revision 1.152 1999-09-12 14:50:50 florian
Revision 1.153 1999-09-14 11:09:08 florian
* per default a property is stored, fixed
Revision 1.152 1999/09/12 14:50:50 florian
+ implemented creation of methodname/address tables
Revision 1.151 1999/09/12 08:48:09 florian