paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 04:26:13 +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:39 +01:00 committed by Pierre Muller
parent edc6529cb6
commit 3619af67c3
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils/postw32.pp
View File

@ -264,11 +264,11 @@ end;
var var
fn,s:string; fn,s:string;
function GetSwitchValue(const key,shortkey,default:string;const PossibleValues:array of pchar):string; function GetSwitchValue(const key,shortkey,default:string;const PossibleValues:array of pansichar):ansistring;
var var
i,j,k:longint; i,j,k:longint;
x:double; x:double;
s1,s2:string; s1,s2:ansistring;
code:integer; code:integer;
procedure Error; procedure Error;

6
utils/ppdep.pp
View File

@ -67,7 +67,7 @@ var
begin begin
for i:=1to Length(Hstr) do for i:=1to Length(Hstr) do
UCase[i]:=Upcase(Hstr[i]); UCase[i]:=Upcase(Hstr[i]);
UCase[0]:=chr(Length(Hstr)); SetLength(UCase,Length(Hstr));
end; end;
@ -97,7 +97,7 @@ begin
FixFn[i]:=s[i]; FixFn[i]:=s[i];
end; end;
end; end;
FixFn[0]:=Chr(Length(s)); SetLength(FixFn,Length(s));
end; end;
@ -209,7 +209,7 @@ procedure ListDepend(const fn:string);
end; end;
if (i>0) and (s[i]=#13) then if (i>0) and (s[i]=#13) then
dec(i); dec(i);
s[0]:=chr(i); SetLength(s,i);
end; end;
{$endif} {$endif}