paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:59:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix to allow go32v2 compliation

Browse Source 
git-svn-id: trunk@17670 -
This commit is contained in:
pierre 2011-06-06 13:48:27 +00:00
parent 449c20ce63
commit 068b373015
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
utils/instantfpc/instantfptools.pas
View File

@ -2,10 +2,21 @@ unit InstantFPTools;
{$mode objfpc}{$H+}
{$define UseFpExecV}
{$ifdef MSWINDOWS}
{$undef UseFpExecV}
{$define HASEXEEXT}
{$endif MSWINDOWS}
{$ifdef go32v2}
{$undef UseFpExecV}
{$define HASEXEEXT}
{$endif go32v2}
interface
uses
{$IFNDEF MSWINDOWS}
{$IFDEF UseFpExecV}
Unix,
{$ENDIF}
Classes, SysUtils, Process;
@ -200,7 +211,7 @@ begin
if (p<>'') and (p[1]='-') then
Result:=p; // copy compile params from the script
end;
AddParam('-o'+OutputFilename {$IFDEF MSWINDOWS} + '.exe' {$ENDIF},Result);
AddParam('-o'+OutputFilename {$IFDEF HASEXEEXT} + '.exe' {$ENDIF},Result);
AddParam(SrcFilename,Result);
end;
@ -216,7 +227,7 @@ begin
end;
inc(p);
end;
{$IFDEF MSWINDOWS}
{$IFNDEF UseFpExecV}
Inc(p); //lose the first command-line argument with the the script filename
Halt(ExecuteProcess(Filename,[p^]));
{$ELSE}