paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 16:29:19 +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; PackageVariant.IsInheritable := True;
end; end;
PackageVariant.Name := PackageVariantName; PackageVariant.Name := PackageVariantName;
PackageVariant.Options := Copy(PackageVariantStr, pos(':', PackageVariantStr) +1).Split(','); PackageVariant.Options := Copy(PackageVariantStr, pos(':', PackageVariantStr) +1).Split(RTLString(','));
end; end;
inc(i); inc(i);
until PackageVariantStr=''; until PackageVariantStr='';

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

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

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

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

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

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

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

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