paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 09:34:12 +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;', ' function Foo(w: word = 1): word;',
' end;', ' end;',
'procedure TObject.Run(w: word);', 'procedure TObject.Run(w: word);',
'var o: TObject;',
'begin', 'begin',
' Foo;', ' Foo;',
' Foo();', ' Foo();',
@ -20172,6 +20173,7 @@ begin
' Foo();', ' Foo();',
' Foo(4);', ' Foo(4);',
' end;', ' end;',
' with o do Foo(5);',
'end;', 'end;',
'function THelper.foo(w: word): word;', 'function THelper.foo(w: word): word;',
'begin', 'begin',
@ -20210,6 +20212,7 @@ begin
' this.$final = function () {', ' this.$final = function () {',
' };', ' };',
' this.Run = function (w) {', ' this.Run = function (w) {',
' var o = null;',
' $mod.THelper.Foo.call(this, 1);', ' $mod.THelper.Foo.call(this, 1);',
' $mod.THelper.Foo.call(this, 1);', ' $mod.THelper.Foo.call(this, 1);',
' $mod.THelper.Foo.call(this, 2);', ' $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, 1);', ' $mod.THelper.Foo.call(this, 1);',
' $mod.THelper.Foo.call(this, 4);', ' $mod.THelper.Foo.call(this, 4);',
' $mod.THelper.Foo.call(o, 5);',
' };', ' };',
'});', '});',
'rtl.createHelper($mod, "THelper", null, function () {', '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);', ' $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);', ' $mod.THelper.Foo.call(Self, 1);',
' $mod.THelper.Foo.call($Self, 1);', ' $mod.THelper.Foo.call(Self, 1);',
' };', ' };',
' return Result;', ' return Result;',
' };', ' };',