paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +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
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
i,j,k:longint;
x:double;
s1,s2:string;
s1,s2:ansistring;
code:integer;
procedure Error;

6
utils/ppdep.pp
View File

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