paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 21:29:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Instantiate PCU compiler

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

10
utils/pas2js/pas2js.pp
View File

@ -12,7 +12,7 @@ uses
cthreads, cwstring,
{$ENDIF}
Classes, SysUtils, CustApp,
Pas2jsFileUtils, Pas2jsLogger, Pas2jsCompiler;
Pas2jsFileUtils, Pas2jsLogger, Pas2jsCompiler, pas2jspcucompiler, pas2jscompilerpp, pas2JScompilercfg;
Type
@ -20,14 +20,14 @@ Type
TPas2jsCLI = class(TCustomApplication)
private
FCompiler: TPas2jsCompiler;
FCompiler: TPas2jsPCUCompiler;
FWriteOutputToStdErr: Boolean;
protected
procedure DoRun; override;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
property Compiler: TPas2jsCompiler read FCompiler;
property Compiler: TPas2jsPCUCompiler read FCompiler;
property WriteOutputToStdErr: Boolean read FWriteOutputToStdErr write FWriteOutputToStdErr;
end;
@ -66,7 +66,9 @@ constructor TPas2jsCLI.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
StopOnException:=True;
FCompiler:=TPas2jsCompiler.Create;
FCompiler:=TPas2jsPCUCompiler.Create;
FCompiler.ConfigSupport:=TPas2JSFileConfigSupport.Create(FCompiler);
FCompiler.PostProcessorSupport:=TPas2JSFSPostProcessorSupport.Create(FCompiler);
end;
destructor TPas2jsCLI.Destroy;