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

* Instantiate FS compiler

Browse Source 
git-svn-id: trunk@40452 -
This commit is contained in:
michael 2018-12-02 18:44:34 +00:00
parent 2c7f401bf7
commit b9905f6a2c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utils/pas2js/nodepas2js.pp
View File

@ -6,7 +6,7 @@ program nodepas2js;
uses
JS, NodeJSApp,
Classes, SysUtils,
Pas2jsFileUtils, Pas2jsLogger, Pas2jsCompiler;
Pas2jsFileUtils, Pas2jsLogger, pas2jscompiler, Pas2jsfscompiler;
type
@ -14,13 +14,13 @@ type
TPas2jsCLI = class(TNodeJSApplication)
private
FCompiler: TPas2jsCompiler;
FCompiler: TPas2jsFSCompiler;
protected
procedure DoRun; override;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
property Compiler: TPas2jsCompiler read FCompiler;
property Compiler: TPas2jsFsCompiler read FCompiler;
end;
procedure TPas2jsCLI.DoRun;
@ -65,7 +65,7 @@ constructor TPas2jsCLI.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
StopOnException:=True;
FCompiler:=TPas2jsCompiler.Create;
FCompiler:=TPas2jsFSCompiler.Create;
end;
destructor TPas2jsCLI.Destroy;