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

pastojs: fixed with-do x, where x is in helper and class

Browse Source 
git-svn-id: trunk@44432 -
This commit is contained in:
Mattias Gaertner 2020-03-30 12:06:57 +00:00
parent b8bcccc1f1
commit f7ddf90bdd
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/pastojs/tests/tcmodules.pas
View File

@ -20160,6 +20160,7 @@ begin
' function Foo(w: word = 1): word;',
' end;',
'procedure TObject.Run(w: word);',
'var o: TObject;',
'begin',
' Foo;',
' Foo();',
@ -20172,6 +20173,7 @@ begin
' Foo();',
' Foo(4);',
' end;',
' with o do Foo(5);',
'end;',
'function THelper.foo(w: word): word;',
'begin',
@ -20210,6 +20212,7 @@ begin
' this.$final = function () {',
' };',
' this.Run = function (w) {',
' var o = null;',
' $mod.THelper.Foo.call(this, 1);',
' $mod.THelper.Foo.call(this, 1);',
' $mod.THelper.Foo.call(this, 2);',
@ -20219,6 +20222,7 @@ begin
' $mod.THelper.Foo.call(this, 1);',
' $mod.THelper.Foo.call(this, 1);',
' $mod.THelper.Foo.call(this, 4);',
' $mod.THelper.Foo.call(o, 5);',
' };',
'});',
'rtl.createHelper($mod, "THelper", null, function () {',
@ -20311,7 +20315,7 @@ begin
' $mod.THelper.Foo.call(Self, 1);',
' $mod.THelper.Foo.call(Self, 1);',
' $mod.THelper.Foo.call(Self, 1);',
' $mod.THelper.Foo.call($Self, 1);',
' $mod.THelper.Foo.call(Self, 1);',
' };',
' };',
'});',
@ -20327,7 +20331,7 @@ begin
' $mod.THelper.Foo.call(Self, 1);',
' $mod.THelper.Foo.call(Self, 1);',
' $mod.THelper.Foo.call(Self, 1);',
' $mod.THelper.Foo.call($Self, 1);',
' $mod.THelper.Foo.call(Self, 1);',
' };',
' return Result;',
' };',