paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 11:39: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:11 +01:00
parent 7688f50c90
commit 1db4136337
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
utils/pas2jni/ppuparser.pas
View File

@ -41,7 +41,7 @@ type
function ReadUnit(const AName: string): string;
function InternalParse(const AUnitName: string): TUnitDef;
procedure AddSearchPath(const ASearchPath: string);
function ReadProcessOutput(const AExeName, AParams: string; var AOutput, AError: string): integer;
function ReadProcessOutput(const AExeName, AParams: string; var AOutput, AError: ansistring): integer;
procedure AddDefaultSearchPath(const ACPU, AOS: string);
public
SearchPath: TStringList;
@ -702,9 +702,9 @@ begin
end;
end;
function TPPUParser.ReadProcessOutput(const AExeName, AParams: string; var AOutput, AError: string): integer;
function TPPUParser.ReadProcessOutput(const AExeName, AParams: string; var AOutput, AError: ansistring): integer;
procedure _ReadOutput(o: TInputPipeStream; var s: string; var idx: integer);
procedure _ReadOutput(o: TInputPipeStream; var s: ansistring; var idx: integer);
var
i: integer;
begin
@ -754,7 +754,8 @@ end;
procedure TPPUParser.AddDefaultSearchPath(const ACPU, AOS: string);
var
fpc, s, e: string;
fpc : string;
s, e: ansistring;
sl: TStringList;
i, j: integer;
begin