diff --git a/packages/pastojs/src/pas2jscompiler.pp b/packages/pastojs/src/pas2jscompiler.pp index f674dd5979..d5fa756173 100644 --- a/packages/pastojs/src/pas2jscompiler.pp +++ b/packages/pastojs/src/pas2jscompiler.pp @@ -1084,8 +1084,8 @@ procedure TPas2jsCompilerFile.CreateConverter; begin if FConverter<>nil then exit; FConverter:=TPasToJSConverter.Create; - FConverter.Options:=GetInitialConverterOptions; FConverter.Globals:=Compiler.ConverterGlobals; + FConverter.Options:=GetInitialConverterOptions; end; procedure TPas2jsCompilerFile.OnResolverCheckSrcName(const Element: TPasElement); diff --git a/packages/pastojs/tests/tcconverter.pp b/packages/pastojs/tests/tcconverter.pp index 7d49833e55..5f346cbf33 100644 --- a/packages/pastojs/tests/tcconverter.pp +++ b/packages/pastojs/tests/tcconverter.pp @@ -1259,6 +1259,7 @@ end; procedure TTestConverter.SetUp; begin FConverter:=TPasToJSConverter.Create; + FConverter.Globals:=TPasToJSConverterGlobals.Create(FConverter); end; procedure TTestConverter.TearDown; diff --git a/packages/pastojs/tests/tcfiler.pas b/packages/pastojs/tests/tcfiler.pas index db1699a51b..14c91cac73 100644 --- a/packages/pastojs/tests/tcfiler.pas +++ b/packages/pastojs/tests/tcfiler.pas @@ -444,8 +444,8 @@ begin FInitialFlags.ModeSwitches:=Scanner.CurrentModeSwitches; FInitialFlags.BoolSwitches:=Scanner.CurrentBoolSwitches; FInitialFlags.ConverterOptions:=Converter.Options; - FInitialFlags.TargetPlatform:=Converter.TargetPlatform; - FInitialFlags.TargetProcessor:=Converter.TargetProcessor; + FInitialFlags.TargetPlatform:=Converter.Globals.TargetPlatform; + FInitialFlags.TargetProcessor:=Converter.Globals.TargetProcessor; // ToDo: defines end; diff --git a/packages/pastojs/tests/tcmodules.pas b/packages/pastojs/tests/tcmodules.pas index 637216883d..a49d59335f 100644 --- a/packages/pastojs/tests/tcmodules.pas +++ b/packages/pastojs/tests/tcmodules.pas @@ -1197,6 +1197,7 @@ function TCustomTestModule.CreateConverter: TPasToJSConverter; begin Result:=TPasToJSConverter.Create; Result.Options:=co_tcmodules; + Result.Globals:=TPasToJSConverterGlobals.Create(Result); end; procedure TCustomTestModule.InitScanner(aScanner: TPas2jsPasScanner); diff --git a/packages/pastojs/tests/tcprecompile.pas b/packages/pastojs/tests/tcprecompile.pas index 8692a43297..d7ace6ffc5 100644 --- a/packages/pastojs/tests/tcprecompile.pas +++ b/packages/pastojs/tests/tcprecompile.pas @@ -552,7 +552,7 @@ begin ExpectedSrc:=LinesToStr([ UTF8BOM+'rtl.module("system",[],function () {', ' "use strict";', - ' rtl.checkVersion(10101);', + ' rtl.checkVersion(10301);', ' var $mod = this;', '});']); if not CheckSrcDiff(ExpectedSrc,aFile.Source,s) then diff --git a/packages/pastojs/tests/tcunitsearch.pas b/packages/pastojs/tests/tcunitsearch.pas index 0177859b19..0591fceac9 100644 --- a/packages/pastojs/tests/tcunitsearch.pas +++ b/packages/pastojs/tests/tcunitsearch.pas @@ -209,7 +209,7 @@ procedure TCustomTestCLI.SetWorkDir(const AValue: string); var NewValue: String; begin - NewValue:=IncludeTrailingPathDelimiter(ResolveDots(AValue)); + NewValue:=IncludeTrailingPathDelimiter(ExpandFileNamePJ(ResolveDots(AValue))); if FWorkDir=NewValue then Exit; FWorkDir:=NewValue; end; @@ -228,6 +228,7 @@ begin CompilerExe:='/usr/bin/pas2js'; {$ENDIF} FCompiler:=TTestCompiler.Create; + //FCompiler.ConfigSupport:=TPas2JSFileConfigSupport.Create(FCompiler); Compiler.Log.OnLog:=@DoLog; Compiler.FileCache.OnReadDirectory:=@OnReadDirectory; Compiler.FileCache.OnReadFile:=@OnReadFile; diff --git a/packages/pastojs/tests/testpas2js.lpi b/packages/pastojs/tests/testpas2js.lpi index 12867f015b..41361a557e 100644 --- a/packages/pastojs/tests/testpas2js.lpi +++ b/packages/pastojs/tests/testpas2js.lpi @@ -76,6 +76,7 @@ +