@@ -482,7 +482,7 @@ varSection : (VAR<VarSectionNodeImpl>^ | THREADVAR<VarSectionN
482482varDeclaration : attributeList? nameDeclarationList ' :' varType portabilityDirective* varValueSpec? portabilityDirective* ' ;'
483483 -> ^ (TkVarDeclaration< VarDeclarationNodeImpl> nameDeclarationList varType varValueSpec? attributeList?)
484484 ;
485- varValueSpec : ABSOLUTE constExpression
485+ varValueSpec : ABSOLUTE expression
486486 | ' =' constExpression
487487 ;
488488exportsSection : EXPORTS ident exportItem (' ,' ident exportItem)* ' ;'
@@ -643,7 +643,7 @@ interfaceItem : routineInterface
643643 ;
644644objectType : OBJECT< ObjectTypeNodeImpl>^ classParent? visibilitySection* END // Obselete, kept for backwards compatibility with Turbo Pascal
645645 ; // See: https:// www.oreilly.com/ library/ view/ delphi-in- a/ 1565926595 / re192.html
646- recordType : RECORD< RecordTypeNodeImpl>^ visibilitySection* recordVariantSection? END (ALIGN constExpression )?
646+ recordType : RECORD< RecordTypeNodeImpl>^ visibilitySection* recordVariantSection? END (ALIGN expression )?
647647 ;
648648recordVariantSection : CASE< RecordVariantSectionNodeImpl>^ recordVariantTag OF recordVariant+
649649 ;
@@ -1105,8 +1105,8 @@ externalDirective : EXTERNAL^ dllName? externalSpecifier*
11051105 ;
11061106dllName : { !input.LT(1 ).getText().equals(" name" )} ? expression
11071107 ;
1108- externalSpecifier : NAME^ constExpression
1109- | INDEX^ constExpression // specific to a platform
1108+ externalSpecifier : NAME^ expression
1109+ | INDEX^ expression // specific to a platform
11101110 | DELAYED // Use delayed loading (See: http:// docwiki.embarcadero.com/ RADStudio/ en/ Libraries_and_Packages_(Delphi))
11111111 ;
11121112dispIDDirective : DISPID expression
0 commit comments