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

* Always define makestub

Browse Source 
git-svn-id: trunk@46363 -
This commit is contained in:
michael 2020-08-11 13:32:29 +00:00
parent 6dac888ae5
commit 58816b3bc6
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
utils/pas2js/stubcreator.pp
View File

@ -204,9 +204,12 @@ end;
procedure TStubCreator.Execute;
begin
FLastErrorClass:='';
FLastError:='';
if Defines.IndexOf('MakeStub')=-1 then
Try
DoExecute;
except
@ -307,6 +310,8 @@ begin
SCanner.OnLog:=SE.Onlog;
For S in FDefines do
Scanner.AddDefine(S);
if FDefines.IndexOf('MAKESTUB')=-1 then
Scanner.AddDefine('MAKESTUB');
Scanner.OpenFile(InputFilename);
// Parser
Parser:=TPasParser.Create(Scanner, FileResolver, SE);