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

* fixed previous patch

Browse Source
This commit is contained in:
florian 2004-12-21 22:29:34 +00:00
parent 1c4718e15a
commit f2a74973d6
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fcl/passrc/pparser.pp
View File

@ -888,15 +888,15 @@ begin
end; end;
tkObject: tkObject:
begin begin
Result := ParseClassDecl(Parent, TypeName, okObject); Result := ParseClassDecl(Parent, TypeName, okObject);
{ could be TPasClassOfType }
if result is TPasClassType then
TPasClassType(Result).IsPacked := HadPackedModifier; TPasClassType(Result).IsPacked := HadPackedModifier;
end; end;
tkClass: tkClass:
begin begin
Result := ParseClassDecl(Parent, TypeName, okClass); Result := ParseClassDecl(Parent, TypeName, okClass);
TPasClassType(Result).IsPacked := HadPackedModifier; { could be TPasClassOfType }
if result is TPasClassType then
TPasClassType(Result).IsPacked := HadPackedModifier;
end; end;
tkInterface: tkInterface:
Result := ParseClassDecl(Parent, TypeName, okInterface); Result := ParseClassDecl(Parent, TypeName, okInterface);
@ -1843,7 +1843,10 @@ end.
{ {
$Log$ $Log$
Revision 1.12 2004-12-21 22:19:16 florian Revision 1.13 2004-12-21 22:29:34 florian
* fixed previous patch
Revision 1.12 2004/12/21 22:19:16 florian
* fixed memory corruption * fixed memory corruption
Revision 1.11 2004/12/06 19:16:38 michael Revision 1.11 2004/12/06 19:16:38 michael