paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 20:09:20 +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; procedure TStubCreator.Execute;
begin begin
FLastErrorClass:=''; FLastErrorClass:='';
FLastError:=''; FLastError:='';
if Defines.IndexOf('MakeStub')=-1 then
Try Try
DoExecute; DoExecute;
except except
@ -307,6 +310,8 @@ begin
SCanner.OnLog:=SE.Onlog; SCanner.OnLog:=SE.Onlog;
For S in FDefines do For S in FDefines do
Scanner.AddDefine(S); Scanner.AddDefine(S);
if FDefines.IndexOf('MAKESTUB')=-1 then
Scanner.AddDefine('MAKESTUB');
Scanner.OpenFile(InputFilename); Scanner.OpenFile(InputFilename);
// Parser // Parser
Parser:=TPasParser.Create(Scanner, FileResolver, SE); Parser:=TPasParser.Create(Scanner, FileResolver, SE);