pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

instantfpc: windows support

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1544 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
mgaertner
2011-03-31 17:49:51 +00:00
parent 9ba91cef51
commit a2cbf3ca53
1 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
applications/instantfpc/instantfptools.pas
View File

@ -5,7 +5,10 @@ unit InstantFPTools;
interface
uses
Classes, SysUtils, Process, unix;
{$IFNDEF MSWINDOWS}
Unix,
{$ENDIF}
Classes, SysUtils, Process;
procedure CheckSourceName(const Filename: string);
procedure CommentShebang(Src: TStringList);
@ -179,7 +182,7 @@ begin
if (p<>'') and (p[1]='-') then
Result:=p; // copy compile params from the script
end;
AddParam('-o'+OutputFilename,Result);
AddParam('-o'+OutputFilename {$IFDEF MSWINDOWS} + '.exe' {$ENDIF},Result);
AddParam(SrcFilename,Result);
end;
@ -195,7 +198,12 @@ begin
end;
inc(p);
end;
Halt(FpExecV(Filename,p));
{$IFDEF MSWINDOWS}
Inc(p); //lose the first command-line argument with the the script filename
Halt(ExecuteProcess(Filename,[p^]));
{$ELSE}
Halt(FpExecV(Filename,p));
{$ENDIF}
end;
end.