paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 22:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ use IsExe var to know if we need to call ppas

Browse Source
This commit is contained in:
pierre 1999-11-18 13:49:56 +00:00
parent fd1e583ead
commit 77729d0118
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/text/fpcompil.pas
View File

@ -93,7 +93,7 @@ uses
{$endif} {$endif}
Dos,Video, Dos,Video,
App,Commands,tokens, App,Commands,tokens,
CompHook, systems, browcol, CompHook, Compiler, systems, browcol,
WUtils,WEditor, WUtils,WEditor,
FPRedir, FPRedir,
FPIde,FPConst,FPVars,FPUtils,FPIntf,FPSwitch; FPIde,FPConst,FPVars,FPUtils,FPIntf,FPSwitch;
@ -585,10 +585,10 @@ begin
FileName:='-B '+FileName; FileName:='-B '+FileName;
{ tokens are created and distroed by compiler.compile !! PM } { tokens are created and distroed by compiler.compile !! PM }
DoneTokens; DoneTokens;
Compile(FileName); Compiler.Compile(FileName);
{ tokens are created and distroed by compiler.compile !! PM } { tokens are created and distroed by compiler.compile !! PM }
InitTokens; InitTokens;
if LinkAfter and if LinkAfter and IsExe and
(CompilationPhase<>cpAborted) and (CompilationPhase<>cpAborted) and
(status.errorCount=0) then (status.errorCount=0) then
begin begin
@ -745,7 +745,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.42 1999-11-10 17:20:41 pierre Revision 1.43 1999-11-18 13:49:56 pierre
+ use IsExe var to know if we need to call ppas
Revision 1.42 1999/11/10 17:20:41 pierre
* Use fpredir.dosexecute * Use fpredir.dosexecute
Revision 1.41 1999/10/25 16:34:19 pierre Revision 1.41 1999/10/25 16:34:19 pierre