paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 06:30:26 +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); procedure Run(const Filename: string);
var var
p : PPChar; FN : AnsiString {$IF SIZEOF(CHAR)=1} absolute FileName{$endif};
p : PPAnsiChar;
{$IFNDEF UseFpExecV} {$IFNDEF UseFpExecV}
i : integer; i : integer;
args : array of string; args : array of ansistring;
{$ENDIF} {$ENDIF}
begin begin
{$if SIZEOF(CHAR)=2}
FN:=UTF8Encode(FileName);
{$ENDIF}
p:=argv; p:=argv;
inc(p); inc(p);
while (p<>nil) do begin while (p<>nil) do begin
@ -414,7 +418,7 @@ begin
inc(p); inc(p);
end; end;
{$IFDEF UseFpExecV} {$IFDEF UseFpExecV}
Halt(FpExecV(Filename,p)); Halt(FpExecV(FN,p));
{$ELSE} {$ELSE}
if paramcount>1 then if paramcount>1 then
begin begin
@ -422,7 +426,7 @@ begin
for i:=2 to paramcount do for i:=2 to paramcount do
args[i-2]:=paramstr(i); args[i-2]:=paramstr(i);
end; end;
Halt(ExecuteProcess(Filename,args)); Halt(ExecuteProcess(FN,args));
{$ENDIF} {$ENDIF}
end; end;