paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 17:39:20 +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 uses
JS, NodeJSApp, JS, NodeJSApp,
Classes, SysUtils, Classes, SysUtils,
Pas2jsFileUtils, Pas2jsLogger, Pas2jsCompiler; Pas2jsFileUtils, Pas2jsLogger, pas2jscompiler, Pas2jsfscompiler;
type type
@ -14,13 +14,13 @@ type
TPas2jsCLI = class(TNodeJSApplication) TPas2jsCLI = class(TNodeJSApplication)
private private
FCompiler: TPas2jsCompiler; FCompiler: TPas2jsFSCompiler;
protected protected
procedure DoRun; override; procedure DoRun; override;
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
property Compiler: TPas2jsCompiler read FCompiler; property Compiler: TPas2jsFsCompiler read FCompiler;
end; end;
procedure TPas2jsCLI.DoRun; procedure TPas2jsCLI.DoRun;
@ -65,7 +65,7 @@ constructor TPas2jsCLI.Create(TheOwner: TComponent);
begin begin
inherited Create(TheOwner); inherited Create(TheOwner);
StopOnException:=True; StopOnException:=True;
FCompiler:=TPas2jsCompiler.Create; FCompiler:=TPas2jsFSCompiler.Create;
end; end;
destructor TPas2jsCLI.Destroy; destructor TPas2jsCLI.Destroy;