paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +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;
tkObject:
begin
Result := ParseClassDecl(Parent, TypeName, okObject);
{ could be TPasClassOfType }
if result is TPasClassType then
Result := ParseClassDecl(Parent, TypeName, okObject);
TPasClassType(Result).IsPacked := HadPackedModifier;
end;
tkClass:
begin
Result := ParseClassDecl(Parent, TypeName, okClass);
TPasClassType(Result).IsPacked := HadPackedModifier;
Result := ParseClassDecl(Parent, TypeName, okClass);
{ could be TPasClassOfType }
if result is TPasClassType then
TPasClassType(Result).IsPacked := HadPackedModifier;
end;
tkInterface:
Result := ParseClassDecl(Parent, TypeName, okInterface);
@ -1843,7 +1843,10 @@ end.
{
$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
Revision 1.11 2004/12/06 19:16:38 michael