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

* Fixed parsing of set of range (bug 21642), removed some memory leaks

Browse Source 
git-svn-id: trunk@20862 -
This commit is contained in:
michael 2012-04-14 13:38:00 +00:00
parent 59040465d8
commit b1f7f84b41
1 changed files with 34 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -196,7 +196,7 @@ type
function ParseSpecializeType(Parent: TPasElement; Const TypeName: String): TPasClassType;
Function ParseClassDecl(Parent: TPasElement; const AClassName: String; AObjKind: TPasObjKind; PackMode : TPackMode= pmNone): TPasType;
Function ParseProperty(Parent : TPasElement; Const AName : String; AVisibility : TPasMemberVisibility; IsClass : Boolean) : TPasProperty;
function ParseRangeType(AParent: TPasElement; Const TypeName: String): TPasRangeType;
function ParseRangeType(AParent: TPasElement; Const TypeName: String; Full : Boolean = True): TPasRangeType;
// Constant declarations
function ParseConstDecl(Parent: TPasElement): TPasConst;
function ParseResourcestringDecl(Parent: TPasElement): TPasResString;
@ -920,7 +920,7 @@ begin
tkRecord: Result := ParseRecordDecl(Parent,TypeName,PM);
else
UngetToken;
Result:=ParseRangeType(Parent,TypeName);
Result:=ParseRangeType(Parent,TypeName,Full);
end;
if CH then
CheckHint(Result,True);
@ -1120,21 +1120,29 @@ begin
NextToken;
if (length(CurTokenText)>0) and (CurTokenText[1] in ['A'..'_']) then begin
b:=TBinaryExpr.Create(AParent,x, DoParseExpression(AParent), eopNone);
if not Assigned(b.right) then Exit; // error
if not Assigned(b.right) then
begin
B.Free;
Exit; // error
end;
x:=b;
UngetToken;
end
else UngetToken;
end;
tkself: begin
x:=TPrimitiveExpr.Create(AParent,pekString, CurTokenText); //function(self);
//x:=TPrimitiveExpr.Create(AParent,pekString, CurTokenText); //function(self);
x:=TSelfExpr.Create(AParent);
NextToken;
if CurToken = tkDot then begin // self.Write(EscapeText(AText));
optk:=CurToken;
NextToken;
b:=TBinaryExpr.Create(AParent,x, ParseExpIdent(AParent), TokenToExprOp(optk));
if not Assigned(b.right) then Exit; // error
if not Assigned(b.right) then
begin
B.Free;
Exit; // error
end;
x:=b;
end
else UngetToken;
@ -1190,7 +1198,11 @@ begin
optk:=CurToken;
NextToken;
b:=TBinaryExpr.Create(AParent,x, ParseExpIdent(AParent), TokenToExprOp(optk));
if not Assigned(b.right) then Exit; // error
if not Assigned(b.right) then
begin
b.free;
Exit; // error
end;
x:=b;
end;
end;
@ -1198,7 +1210,11 @@ begin
if CurToken = tkDotDot then begin
NextToken;
b:=TBinaryExpr.CreateRange(AParent,x, DoParseExpression(AParent));
if not Assigned(b.right) then Exit; // error
if not Assigned(b.right) then
begin
b.free;
Exit; // error
end;
x:=b;
end;
@ -1313,7 +1329,11 @@ begin
if CurToken = tkBraceOpen then begin
NextToken;
x:=DoParseExpression(AParent);
if CurToken<>tkBraceClose then Exit;
if CurToken<>tkBraceClose then
begin
x.free;
Exit;
end;
NextToken;
// for the expression like (TObject(m)).Free;
@ -2058,7 +2078,7 @@ begin
end;
// Starts after the type name
Function TPasParser.ParseRangeType(AParent : TPasElement; Const TypeName : String) : TPasRangeType;
Function TPasParser.ParseRangeType(AParent : TPasElement; Const TypeName : String; Full : Boolean = True) : TPasRangeType;
Var
PE : TPasExpr;
@ -2066,8 +2086,11 @@ Var
begin
Result := TPasRangeType(CreateElement(TPasRangeType, TypeName, AParent));
try
If not (CurToken=tkEqual) then
ParseExc(Format(SParserExpectTokenError,[TokenInfos[tkEqual]]));
if Full then
begin
If not (CurToken=tkEqual) then
ParseExc(Format(SParserExpectTokenError,[TokenInfos[tkEqual]]));
end;
NextToken;
PE:=DoParseExpression(Result,Nil);
if not ((PE is TBinaryExpr) and (TBinaryExpr(PE).Kind=pekRange)) then