* Char -> AnsiChar

rtl/arm/arm.inc

@@ -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

rtl/arm/cpu.pp

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

rtl/arm/strings.inc

@@ -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
 

rtl/arm/thumb2.inc

@@ -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