paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 05:27:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

* packed can be used in variable declarations

Browse Source 
git-svn-id: trunk@768 -
This commit is contained in:
florian 2005-07-30 19:34:57 +00:00
parent 9916f784ce
commit 58f6f93cfe
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fcl/passrc/pparser.pp
View File

@ -314,9 +314,19 @@ var
Name, s: String;
EnumValue: TPasEnumValue;
Ref: TPasElement;
HadPackedModifier : Boolean; // 12/04/04 - Dave - Added
begin
Result := nil; // !!!: Remove in the future
HadPackedModifier := False; { Assume not present }
NextToken;
if CurToken = tkPacked then { If PACKED modifier }
begin { Handle PACKED modifier for all situations }
NextToken; { Move to next token for rest of parse }
if CurToken in [tkArray, tkRecord, tkObject, tkClass] then { If allowed }
HadPackedModifier := True { rememeber for later }
else { otherwise, syntax error }
ParseExc(Format(SParserExpectTokenError,['ARRAY, RECORD, OBJECT or CLASS']))
end;
case CurToken of
tkIdentifier:
begin
@ -376,6 +386,7 @@ begin
tkArray:
begin
Result := TPasArrayType(CreateElement(TPasArrayType, '', Parent));
TPasArrayType(Result).IsPacked := HadPackedModifier;
ParseArrayType(TPasArrayType(Result));
end;
tkBraceOpen:
@ -417,6 +428,7 @@ begin
tkRecord:
begin
Result := TPasRecordType(CreateElement(TPasRecordType, '', Parent));
TPasArrayType(Result).IsPacked := HadPackedModifier;
try
ParseRecordDecl(TPasRecordType(Result), False);
except