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

* PChar -> PAnsiChar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-30 14:45:06 +01:00
parent 28569057be
commit 7688f50c90
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
utils/instantfpc/instantfptools.pas
View File

@ -399,12 +399,16 @@ end;
procedure Run(const Filename: string);
var
p : PPChar;
FN : AnsiString {$IF SIZEOF(CHAR)=1} absolute FileName{$endif};
p : PPAnsiChar;
{$IFNDEF UseFpExecV}
i : integer;
args : array of string;
args : array of ansistring;
{$ENDIF}
begin
{$if SIZEOF(CHAR)=2}
FN:=UTF8Encode(FileName);
{$ENDIF}
p:=argv;
inc(p);
while (p<>nil) do begin
@ -414,7 +418,7 @@ begin
inc(p);
end;
{$IFDEF UseFpExecV}
Halt(FpExecV(Filename,p));
Halt(FpExecV(FN,p));
{$ELSE}
if paramcount>1 then
begin
@ -422,7 +426,7 @@ begin
for i:=2 to paramcount do
args[i-2]:=paramstr(i);
end;
Halt(ExecuteProcess(Filename,args));
Halt(ExecuteProcess(FN,args));
{$ENDIF}
end;