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

fcl-passrc: resolver: check resourcestring expression

Browse Source 
git-svn-id: trunk@37397 -
This commit is contained in:
Mattias Gaertner 2017-10-04 19:42:56 +00:00
parent a70a1989e5
commit fe27ec2a26
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-passrc/src/pasresolver.pp
View File

@ -9968,6 +9968,7 @@ begin
stTypeSection: FinishTypeSection(El as TPasDeclarations); stTypeSection: FinishTypeSection(El as TPasDeclarations);
stTypeDef: FinishTypeDef(El as TPasType); stTypeDef: FinishTypeDef(El as TPasType);
stConstDef: FinishConstDef(El as TPasConst); stConstDef: FinishConstDef(El as TPasConst);
stResourceString: FinishResourcestring(El as TPasResString);
stProcedure: FinishProcedure(El as TPasProcedure); stProcedure: FinishProcedure(El as TPasProcedure);
stProcedureHeader: FinishProcedureType(El as TPasProcedureType); stProcedureHeader: FinishProcedureType(El as TPasProcedureType);
stExceptOnExpr: FinishExceptOnExpr; stExceptOnExpr: FinishExceptOnExpr;

2
packages/fcl-passrc/src/pparser.pp
View File

@ -144,6 +144,7 @@ type
stTypeSection, stTypeSection,
stTypeDef, // e.g. a TPasType stTypeDef, // e.g. a TPasType
stConstDef, // e.g. a TPasConst stConstDef, // e.g. a TPasConst
stResourceString, // e.g. TPasResString
stProcedure, // also method, procedure, constructor, destructor, ... stProcedure, // also method, procedure, constructor, destructor, ...
stProcedureHeader, stProcedureHeader,
stExceptOnExpr, stExceptOnExpr,
@ -3053,6 +3054,7 @@ begin
ResStrEl := ParseResourcestringDecl(Declarations); ResStrEl := ParseResourcestringDecl(Declarations);
Declarations.Declarations.Add(ResStrEl); Declarations.Declarations.Add(ResStrEl);
Declarations.ResStrings.Add(ResStrEl); Declarations.ResStrings.Add(ResStrEl);
Engine.FinishScope(stResourceString,ResStrEl);
end; end;
declType: declType:
begin begin