paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 22:09:32 +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 ReadUnit(const AName: string): string;
function InternalParse(const AUnitName: string): TUnitDef; function InternalParse(const AUnitName: string): TUnitDef;
procedure AddSearchPath(const ASearchPath: string); 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); procedure AddDefaultSearchPath(const ACPU, AOS: string);
public public
SearchPath: TStringList; SearchPath: TStringList;
@ -702,9 +702,9 @@ begin
end; end;
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 var
i: integer; i: integer;
begin begin
@ -754,7 +754,8 @@ end;
procedure TPPUParser.AddDefaultSearchPath(const ACPU, AOS: string); procedure TPPUParser.AddDefaultSearchPath(const ACPU, AOS: string);
var var
fpc, s, e: string; fpc : string;
s, e: ansistring;
sl: TStringList; sl: TStringList;
i, j: integer; i, j: integer;
begin begin