paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 12:07:58 +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:20 +01:00 committed by Michaël Van Canneyt
parent 5ce739135b
commit 46ca9f437a
3 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/i386/i386.inc
View File

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

24
rtl/i386/strings.inc
View File

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

2
rtl/i386/stringss.inc
View File

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