diff --git a/rtl/i386/i386.inc b/rtl/i386/i386.inc
index cae1200543..56d1e93448 100644
--- a/rtl/i386/i386.inc
+++ b/rtl/i386/i386.inc
@@ -1300,7 +1300,7 @@ end;
 
 {$ifndef FPC_SYSTEM_HAS_INDEXCHAR0}
 {$define FPC_SYSTEM_HAS_INDEXCHAR0}
-function IndexChar0(Const buf;len:SizeInt;b:Char):SizeInt; assembler;
+function IndexChar0(Const buf;len:SizeInt;b:AnsiChar):SizeInt; assembler;
 var
   saveesi,saveebx : longint;
 asm
@@ -1518,7 +1518,7 @@ end;
 
 {$ifndef FPC_SYSTEM_HAS_FPC_PCHAR_TO_SHORTSTR}
 {$define FPC_SYSTEM_HAS_FPC_PCHAR_TO_SHORTSTR}
-procedure fpc_pchar_to_shortstr(out res : shortstring;p:pchar);assembler;[public,alias:'FPC_PCHAR_TO_SHORTSTR']; compilerproc;
+procedure fpc_pchar_to_shortstr(out res : shortstring;p:PAnsiChar);assembler;[public,alias:'FPC_PCHAR_TO_SHORTSTR']; compilerproc;
 var
   saveres,saveebx,saveesi,saveedi : longint;
 asm
@@ -1578,7 +1578,7 @@ asm
         jmp     .LStrPasAligned
 .LStrPasEndFound:
         subl    $4,%ecx
-        // this won't overwrite data since the result = 255 char string
+        // this won't overwrite data since the result = 255 AnsiChar string
         // and we never process more than the first 255 chars of p
         shrl    $8,%eax
         jc      .LStrPasDone
diff --git a/rtl/i386/strings.inc b/rtl/i386/strings.inc
index 5158e1fa9c..e7bc5de306 100644
--- a/rtl/i386/strings.inc
+++ b/rtl/i386/strings.inc
@@ -18,7 +18,7 @@
 
 {$ifndef FPC_UNIT_HAS_STRCOPY}
 {$define FPC_UNIT_HAS_STRCOPY}
-function strcopy(dest,source : pchar) : pchar;assembler;
+function strcopy(dest,source : PAnsiChar) : PAnsiChar;assembler;
 var
   saveeax,saveesi,saveedi : longint;
 asm
@@ -85,7 +85,7 @@ end;
 
 {$ifndef FPC_UNIT_HAS_STRECOPY}
 {$define FPC_UNIT_HAS_STRECOPY}
-function strecopy(dest,source : pchar) : pchar;assembler;
+function strecopy(dest,source : PAnsiChar) : PAnsiChar;assembler;
 var
   saveesi,saveedi : longint;
 asm
@@ -121,7 +121,7 @@ end;
 
 {$ifndef FPC_UNIT_HAS_STRLCOPY}
 {$define FPC_UNIT_HAS_STRLCOPY}
-function strlcopy(dest,source : pchar;maxlen : sizeint) : pchar;assembler;
+function strlcopy(dest,source : PAnsiChar;maxlen : sizeint) : PAnsiChar;assembler;
 var
   savedest,
   saveesi,saveedi : longint;
@@ -158,7 +158,7 @@ end;
 
 {$ifndef FPC_UNIT_HAS_STREND}
 {$define FPC_UNIT_HAS_STREND}
-function strend(p : pchar) : pchar;assembler;
+function strend(p : PAnsiChar) : PAnsiChar;assembler;
 var
   saveedi : longint;
 asm
@@ -184,7 +184,7 @@ end;
 
 {$ifndef FPC_UNIT_HAS_STRCOMP}
 {$define FPC_UNIT_HAS_STRCOMP}
-function strcomp(str1,str2 : pchar) : longint;assembler;
+function strcomp(str1,str2 : pansichar) : longint;assembler;
 var
   saveeax,saveedx,saveesi,saveedi : longint;
 asm
@@ -217,7 +217,7 @@ end;
 
 {$ifndef FPC_UNIT_HAS_STRLCOMP}
 {$define FPC_UNIT_HAS_STRLCOMP}
-function strlcomp(str1,str2 : pchar;l : sizeint) : longint;assembler;
+function strlcomp(str1,str2 : PAnsiChar;l : sizeint) : longint;assembler;
 var
   saveeax,saveedx,saveecx,saveesi,saveedi : longint;
 asm
@@ -255,7 +255,7 @@ end;
 
 {$ifndef FPC_UNIT_HAS_STRICOMP}
 {$define FPC_UNIT_HAS_STRICOMP}
-function stricomp(str1,str2 : pchar) : longint;assembler;
+function stricomp(str1,str2 : PAnsiChar) : longint;assembler;
 var
   saveeax,saveedx,saveesi,saveedi : longint;
 asm
@@ -304,7 +304,7 @@ end;
 
 {$ifndef FPC_UNIT_HAS_STRLICOMP}
 {$define FPC_UNIT_HAS_STRLICOMP}
-function strlicomp(str1,str2 : pchar;l : sizeint) : longint;assembler;
+function strlicomp(str1,str2 : PAnsiChar;l : sizeint) : longint;assembler;
 var
   saveeax,saveedx,saveecx,saveesi,saveedi : longint;
 asm
@@ -358,7 +358,7 @@ end;
 
 {$ifndef FPC_UNIT_HAS_STRSCAN}
 {$define FPC_UNIT_HAS_STRSCAN}
-function strscan(p : pchar;c : char) : pchar;assembler;
+function strscan(p : PAnsiChar;c : AnsiChar) : PAnsiChar;assembler;
 var
   saveesi,saveedi : longint;
 asm
@@ -484,7 +484,7 @@ end;
 
 {$ifndef FPC_UNIT_HAS_STRRSCAN}
 {$define FPC_UNIT_HAS_STRRSCAN}
-function strrscan(p : pchar;c : char) : pchar;assembler;
+function strrscan(p : PAnsiChar;c : AnsiChar) : PAnsiChar;assembler;
 var
   saveeax,
   saveedi : longint;
@@ -523,7 +523,7 @@ end;
 
 {$ifndef FPC_UNIT_HAS_STRUPPER}
 {$define FPC_UNIT_HAS_STRUPPER}
-function strupper(p : pchar) : pchar;assembler;
+function strupper(p : PAnsiChar) : PAnsiChar;assembler;
 var
   saveeax,saveesi,saveedi : longint;
 asm
@@ -558,7 +558,7 @@ end;
 
 {$ifndef FPC_UNIT_HAS_STRLOWER}
 {$define FPC_UNIT_HAS_STRLOWER}
-function strlower(p : pchar) : pchar;assembler;
+function strlower(p : PAnsiChar) : PAnsiChar;assembler;
 var
   saveeax,saveesi,saveedi : longint;
 asm
diff --git a/rtl/i386/stringss.inc b/rtl/i386/stringss.inc
index f0ae816223..ba5356105e 100644
--- a/rtl/i386/stringss.inc
+++ b/rtl/i386/stringss.inc
@@ -17,7 +17,7 @@
 
 {$ifndef FPC_UNIT_HAS_STRPCOPY}
 {$define FPC_UNIT_HAS_STRPCOPY}
-function strpcopy(d : pchar;const s : string) : pchar;assembler;
+function strpcopy(d : PAnsiChar;const s : string) : PAnsiChar;assembler;
 var
   saveesi,saveedi : longint;
 asm