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

fcl-passrc: parser: fixed forbid type t=ansistring[]

Browse Source 
git-svn-id: trunk@36125 -
This commit is contained in:
Mattias Gaertner 2017-05-05 17:42:26 +00:00
parent c28d533bb0
commit a60f3b26e6
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1184,8 +1184,7 @@ begin
K:=stkAlias K:=stkAlias
else if (CurToken=tkSquaredBraceOpen) then else if (CurToken=tkSquaredBraceOpen) then
begin begin
// Todo: check via resolver if LowerCase(Name)='string' then // Type A = String[12];
if ((LowerCase(Name)='string') or (LowerCase(Name)='ansistring')) then // Type A = String[12];
K:=stkString K:=stkString
else else
ParseExcSyntaxError; ParseExcSyntaxError;