paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 12:47:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Additional options for latest pas2js version features

Browse Source 
git-svn-id: trunk@46230 -
This commit is contained in:
michael 2020-08-04 13:56:43 +00:00
parent 869ae0904c
commit 2faa9e06a1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils/pas2js/stubcreator.pp
View File

@ -302,7 +302,7 @@ begin
FileResolver.AddIncludePath(S);
// Scanner
Scanner := TPascalScanner.Create(FileResolver);
Scanner.Options:=[po_AsmWhole,po_KeepClassForward];
Scanner.Options:=[po_AsmWhole,po_KeepClassForward,po_ExtConstWithoutExpr];
SCanner.LogEvents:=SE.ScannerLogEvents;
SCanner.OnLog:=SE.Onlog;
For S in FDefines do
@ -312,7 +312,7 @@ begin
Parser:=TPasParser.Create(Scanner, FileResolver, SE);
Parser.LogEvents:=SE.ParserLogEvents;
Parser.OnLog:=SE.Onlog;
Parser.Options:=Parser.Options+[po_AsmWhole,po_delphi,po_KeepClassForward];
Parser.Options:=Parser.Options+[po_AsmWhole,po_delphi,po_KeepClassForward,po_ExtConstWithoutExpr,po_AsyncProcs];
Parser.ParseMain(Result);
finally
Parser.Free;