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 @@
+