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

pas2js: fixed crash on class function

Browse Source
This commit is contained in:
mattias 2020-07-23 11:05:23 +00:00
parent 041243f477
commit 0542edda2a
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/packages/pastojs/src/fppas2js.pp
View File

@ -2960,6 +2960,7 @@ begin
exit(false); // there is no overload
if (El.ClassType=TPasClassFunction)
and (El.Parent.ClassType=TPasClassType)
and (TPas2JSClassScope(TPasClassType(El.Parent).CustomData).NewInstanceFunction=El) then
begin
Duplicate:=GetDuplicate;
@ -3165,6 +3166,8 @@ var
Scope: TPasIdentifierScope;
begin
i:=FOverloadScopes.Count-1;
if i<0 then
RaiseInternalError(20200723125456);
Scope:=TPasIdentifierScope(FOverloadScopes[i]);
if Scope.ClassType=TPas2JSOverloadSkipScope then
Scope.Free;