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

* Char -> AnsiChar

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2022-12-22 14:47:57 +01:00 committed by Michaël Van Canneyt
parent 46ca9f437a
commit b849d92589
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/arm/arm.inc
View File

@ -641,7 +641,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_FPC_PCHAR_LENGTH}
{$define FPC_SYSTEM_HAS_FPC_PCHAR_LENGTH}
function fpc_Pchar_length(p:Pchar):sizeint;assembler;nostackframe;[public,alias:'FPC_PCHAR_LENGTH'];compilerproc;
function fpc_Pchar_length(p:PAnsiChar):sizeint;assembler;nostackframe;[public,alias:'FPC_PCHAR_LENGTH'];compilerproc;
asm
cmp r0,#0

2
rtl/arm/cpu.pp
View File

@ -57,7 +57,7 @@ unit cpu;
procedure InitHWCaps;
var
ep: PPChar;
ep: PPAnsiChar;
auxv: PElf32AuxiliaryVector;
begin
psysinfo := 0;

4
rtl/arm/strings.inc
View File

@ -18,7 +18,7 @@
{$ifndef CPUTHUMB}
{$ifndef FPC_UNIT_HAS_STRUPPER}
{$define FPC_UNIT_HAS_STRUPPER}
function strupper(p : pchar) : pchar;assembler;nostackframe;
function strupper(p : PAnsiChar) : PAnsiChar;assembler;nostackframe;
asm
mov ip, r0 // Don't change r0, because thats our return value
@ -48,7 +48,7 @@ end;
{$ifndef FPC_UNIT_HAS_STRLOWER}
{$define FPC_UNIT_HAS_STRLOWER}
function strlower(p : pchar) : pchar;assembler;nostackframe;
function strlower(p : PAnsiChar) : PAnsiChar;assembler;nostackframe;
asm
mov ip, r0 // Don't change r0, because thats our return value

2
rtl/arm/thumb2.inc
View File

@ -491,7 +491,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_FPC_PCHAR_LENGTH}
{$define FPC_SYSTEM_HAS_FPC_PCHAR_LENGTH}
function fpc_Pchar_length(p:Pchar):sizeint;assembler;nostackframe;[public,alias:'FPC_PCHAR_LENGTH'];compilerproc;
function fpc_Pchar_length(p:PAnsiChar):sizeint;assembler;nostackframe;[public,alias:'FPC_PCHAR_LENGTH'];compilerproc;
asm
cmp r0,#0