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

pastojs: fixed crash when parser error in inline specialize expression, issue 38111

Browse Source
This commit is contained in:
mattias 2020-11-28 10:42:37 +00:00
parent 40cd9a84c7
commit 5236a86500
3 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/packages/fcl-passrc/src/pasresolver.pp
View File

@ -21056,6 +21056,7 @@ end;
function TPasResolver.FindElementWithoutParams(const AName: String;
ErrorPosEl: TPasElement; NoProcsWithArgs, NoGenerics: boolean): TPasElement;
// ErrorPosEl=nil means to use scanner position as error position
var
Data: TPRFindData;
begin
@ -21070,6 +21071,7 @@ end;
function TPasResolver.FindElementWithoutParams(const AName: String; out
Data: TPRFindData; ErrorPosEl: TPasElement; NoProcsWithArgs,
NoGenerics: boolean): TPasElement;
// ErrorPosEl=nil means to use scanner position as error position
var
Abort: boolean;
begin

2
compiler/packages/fcl-passrc/src/pastree.pp
View File

@ -2152,7 +2152,7 @@ destructor TInlineSpecializeExpr.Destroy;
var
i: Integer;
begin
TPasElement(NameExpr).Release{$IFDEF CheckPasTreeRefCount}('CreateElement'){$ENDIF};
ReleaseAndNil(TPasElement(NameExpr){$IFDEF CheckPasTreeRefCount},'CreateElement'{$ENDIF});
for i:=0 to Params.Count-1 do
TPasElement(Params[i]).Release{$IFDEF CheckPasTreeRefCount}('TInlineSpecializeExpr.Params'){$ENDIF};
FreeAndNil(Params);

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

@ -1998,7 +1998,10 @@ begin
finally
if not ok then
if Result<>nil then
begin
Result.Release{$IFDEF CheckPasTreeRefCount}('CreateElement'){$ENDIF};
Result:=nil;
end;
end;
end;