paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 02:28:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* PChar -> PAnsiChar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-14 18:39:40 +01:00
parent d661e7288b
commit dcddd44cd9
6 changed files with 4775 additions and 3170 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7931
packages/fppkg/src/fpmkunitsrc.inc
View File

File diff suppressed because it is too large Load Diff

2
packages/fppkg/src/fprepos.pp
View File

@ -721,7 +721,7 @@ begin
PackageVariant.IsInheritable := True;
end;
PackageVariant.Name := PackageVariantName;
PackageVariant.Options := Copy(PackageVariantStr, pos(':', PackageVariantStr) +1).Split(',');
PackageVariant.Options := Copy(PackageVariantStr, pos(':', PackageVariantStr) +1).Split(RTLString(','));
end;
inc(i);
until PackageVariantStr='';

6
packages/fppkg/src/pkgfpmake.pp
View File

@ -121,14 +121,14 @@ procedure CreateFPMKUnitSource(const AFileName:string);
var
InStream,
OutStream : TStream;
pend : pchar;
pend : PChar;
begin
try
// Don't write trailing #0
pend:=pchar(@fpmkunitsrc)+sizeof(fpmkunitsrc)-1;
pend:=PChar(@fpmkunitsrc)+sizeof(fpmkunitsrc)-1;
while pend^=#0 do
dec(pend);
InStream:=TMyMemoryStream.Create(@fpmkunitsrc,pend-pchar(@fpmkunitsrc));
InStream:=TMyMemoryStream.Create(@fpmkunitsrc,pend-PChar(@fpmkunitsrc));
OutStream:=TFileStream.Create(AFileName,fmCreate);
OutStream.CopyFrom(InStream,InStream.Size);
finally

2
packages/fppkg/src/pkgglobals.pp
View File

@ -359,7 +359,7 @@ var
{$ELSE USE_SHELL}
S: TProcess;
{$ENDIF USE_SHELL}
Buf: array [0..BufSize - 1] of char;
Buf: array [0..BufSize - 1] of AnsiChar;
Count: longint;
begin
{$IFDEF USE_SHELL}

2
packages/fppkg/src/pkghandler.pp
View File

@ -172,7 +172,7 @@ var
n: longint;
BuffPos: longint;
sLine: string;
ch: char;
ch: AnsiChar;
begin
// make sure we have room
ConsoleOutput.SetSize(BytesRead + READ_BYTES);

2
packages/fppkg/src/pkgmkconv.pp
View File

@ -65,7 +65,7 @@ uses
pkgglobals,
pkgmessages;
Function GetWord(var S : String; Sep : Char) : String;
Function GetWord(var S : String; Sep : AnsiChar) : String;
Var
L : Integer;