From 7c578c35411138c5a265aa67ec98f7795ce57028 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 6 Jan 2013 15:05:33 +0000
Subject: [PATCH] * made the pascal name of the string range checking helpers
match their assembler name
git-svn-id: trunk@23324 -
---
rtl/inc/astrings.inc | 8 ++++----
rtl/inc/compproc.inc | 6 +++---
rtl/inc/ustrings.inc | 2 +-
rtl/inc/wstrings.inc | 2 +-
rtl/java/jastrings.inc | 2 +-
rtl/java/jcompproc.inc | 3 ++-
6 files changed, 12 insertions(+), 11 deletions(-)
diff --git a/rtl/inc/astrings.inc b/rtl/inc/astrings.inc
index db0b506e72..beef6d4a84 100644
--- a/rtl/inc/astrings.inc
+++ b/rtl/inc/astrings.inc
@@ -724,14 +724,14 @@ begin
end;
{$endif FPC_HAS_ANSISTR_COMPARE_EQUAL}
-{$ifndef FPC_HAS_ANSISTR_CHECKRANGE}
-{$define FPC_HAS_ANSISTR_CHECKRANGE}
-Procedure fpc_AnsiStr_CheckRange(p: Pointer; index: SizeInt);[Public,Alias : 'FPC_ANSISTR_RANGECHECK']; compilerproc;
+{$ifndef FPC_HAS_ANSISTR_RANGECHECK}
+{$define FPC_HAS_ANSISTR_RANGECHECK}
+Procedure fpc_AnsiStr_RangeCheck(p: Pointer; index: SizeInt);[Public,Alias : 'FPC_ANSISTR_RANGECHECK']; compilerproc;
begin
if (p=nil) or (index>PAnsiRec(p-AnsiFirstOff)^.Len) or (Index<1) then
HandleErrorAddrFrameInd(201,get_pc_addr,get_frame);
end;
-{$endif FPC_HAS_ANSISTR_CHECKRANGE}
+{$endif FPC_HAS_ANSISTR_RANGECHECK}
{$ifndef FPC_HAS_ANSISTR_SETLENGTH}
{$define FPC_HAS_ANSISTR_SETLENGTH}
diff --git a/rtl/inc/compproc.inc b/rtl/inc/compproc.inc
index 0da229624b..4d6680c008 100644
--- a/rtl/inc/compproc.inc
+++ b/rtl/inc/compproc.inc
@@ -232,7 +232,7 @@ Function fpc_CharArray_To_AnsiStr(const arr: array of AnsiChar; {$ifdef FPC_HAS_
procedure fpc_ansistr_to_chararray(out res: array of AnsiChar; const src: RawByteString)compilerproc;
Function fpc_AnsiStr_Compare(const S1,S2 : RawByteString): SizeInt; compilerproc;
Function fpc_AnsiStr_Compare_equal(const S1,S2 : RawByteString): SizeInt; compilerproc;
-Procedure fpc_AnsiStr_CheckRange(p : Pointer; index : SizeInt); compilerproc;
+Procedure fpc_AnsiStr_RangeCheck(p : Pointer; index : SizeInt); compilerproc;
Procedure fpc_AnsiStr_SetLength (Var S : RawByteString; l : SizeInt{$ifdef FPC_HAS_CPSTRING};cp : TSystemCodePage{$endif FPC_HAS_CPSTRING}); compilerproc;
Function fpc_ansistr_Copy (Const S : RawByteString; Index,Size : SizeInt): RawByteString;compilerproc;
@@ -267,7 +267,7 @@ procedure fpc_widestr_to_chararray(out res: array of char; const src: WideString
procedure fpc_widestr_to_widechararray(out res: array of widechar; const src: WideString); compilerproc;
Function fpc_WideStr_Compare(const S1,S2 : WideString): SizeInt; compilerproc;
Function fpc_WideStr_Compare_equal(const S1,S2 : WideString): SizeInt; compilerproc;
-Procedure fpc_WideStr_CheckRange(p: Pointer; index : SizeInt); compilerproc;
+Procedure fpc_WideStr_RangeCheck(p: Pointer; index : SizeInt); compilerproc;
Procedure fpc_WideStr_SetLength (Var S : WideString; l : SizeInt); compilerproc;
Function fpc_widestr_Copy (Const S : WideString; Index,Size : SizeInt) : WideString;compilerproc;
@@ -311,7 +311,7 @@ procedure fpc_ansistr_to_widechararray(out res: array of widechar; const src: Ra
procedure fpc_unicodestr_to_widechararray(out res: array of widechar; const src: UnicodeString); compilerproc;
Function fpc_UnicodeStr_Compare(const S1,S2 : UnicodeString): SizeInt; compilerproc;
Function fpc_UnicodeStr_Compare_equal(const S1,S2 : UnicodeString): SizeInt; compilerproc;
-Procedure fpc_UnicodeStr_CheckRange(p: Pointer; index : SizeInt); compilerproc;
+Procedure fpc_UnicodeStr_RangeCheck(p: Pointer; index : SizeInt); compilerproc;
Procedure fpc_UnicodeStr_SetLength (Var S : UnicodeString; l : SizeInt); compilerproc;
Function fpc_unicodestr_Copy (Const S : UnicodeString; Index,Size : SizeInt) : UnicodeString;compilerproc;
diff --git a/rtl/inc/ustrings.inc b/rtl/inc/ustrings.inc
index 064bfd5f9f..6497ec0a04 100644
--- a/rtl/inc/ustrings.inc
+++ b/rtl/inc/ustrings.inc
@@ -924,7 +924,7 @@ end;
{$ifndef FPC_HAS_UNICODESTR_RANGECHECK}
{$define FPC_HAS_UNICODESTR_RANGECHECK}
-Procedure fpc_UnicodeStr_CheckRange(p: Pointer; index: SizeInt);[Public,Alias : 'FPC_UNICODESTR_RANGECHECK']; compilerproc;
+Procedure fpc_UnicodeStr_RangeCheck(p: Pointer; index: SizeInt);[Public,Alias : 'FPC_UNICODESTR_RANGECHECK']; compilerproc;
begin
if (p=nil) or (index>PUnicodeRec(p-UnicodeFirstOff)^.len) or (Index<1) then
HandleErrorAddrFrameInd(201,get_pc_addr,get_frame);
diff --git a/rtl/inc/wstrings.inc b/rtl/inc/wstrings.inc
index 7c785ddabc..2b4ef90be2 100644
--- a/rtl/inc/wstrings.inc
+++ b/rtl/inc/wstrings.inc
@@ -481,7 +481,7 @@ begin
exit(CompareWord(S1[1],S2[1],MaxI));
end;
-Procedure fpc_WideStr_CheckRange(p: Pointer; index: SizeInt);[Public,Alias : 'FPC_WIDESTR_RANGECHECK']; compilerproc;
+Procedure fpc_WideStr_RangeCheck(p: Pointer; index: SizeInt);[Public,Alias : 'FPC_WIDESTR_RANGECHECK']; compilerproc;
begin
if (p=nil) or (index>PWideRec(p-WideFirstOff)^.len div 2) or (Index<1) then
HandleErrorAddrFrameInd(201,get_pc_addr,get_frame);
diff --git a/rtl/java/jastrings.inc b/rtl/java/jastrings.inc
index 4c9b0cd6ce..e91e02779d 100644
--- a/rtl/java/jastrings.inc
+++ b/rtl/java/jastrings.inc
@@ -618,7 +618,7 @@ end;
{ not required, the JVM does the range checking for us }
-{$define FPC_HAS_ANSISTR_CHECKRANGE}
+{$define FPC_HAS_ANSISTR_RANGECHECK}
{$define FPC_HAS_ANSISTR_SETLENGTH}
diff --git a/rtl/java/jcompproc.inc b/rtl/java/jcompproc.inc
index c7dbbc75d2..6c45aaec9b 100644
--- a/rtl/java/jcompproc.inc
+++ b/rtl/java/jcompproc.inc
@@ -231,6 +231,7 @@ procedure fpc_ansistr_to_chararray(out res: array of AnsiChar; const src: RawByt
function fpc_ansistr_setchar(const s: RawByteString; const index: longint; const ch: ansichar): RawByteString; compilerproc;
Function fpc_AnsiStr_Compare(const S1,S2 : RawByteString): SizeInt; compilerproc;
Function fpc_AnsiStr_Compare_equal(const S1,S2 : RawByteString): SizeInt; compilerproc;
+//Procedure fpc_AnsiStr_RangeCheck(p : Pointer; index : SizeInt); compilerproc;
{ special declaration for the JVM }
Procedure fpc_AnsiStr_SetLength (Var S : RawByteString; l : SizeInt{$ifdef FPC_HAS_CPSTRING};cp : TSystemCodePage{$endif FPC_HAS_CPSTRING}); compilerproc;
@@ -275,7 +276,7 @@ procedure fpc_ansistr_to_widechararray(out res: array of widechar; const src: Ra
procedure fpc_unicodestr_to_widechararray(out res: array of widechar; const src: UnicodeString); compilerproc;
Function fpc_UnicodeStr_Compare(const S1,S2 : UnicodeString): SizeInt; compilerproc;
Function fpc_UnicodeStr_Compare_equal(const S1,S2 : UnicodeString): SizeInt; compilerproc;
-//Procedure fpc_UnicodeStr_CheckRange(p: Pointer; index : SizeInt); compilerproc;
+//Procedure fpc_UnicodeStr_RangeCheck(p: Pointer; index : SizeInt); compilerproc;
Procedure fpc_UnicodeStr_SetLength (Var S : UnicodeString; l : SizeInt); compilerproc;
Function fpc_unicodestr_Copy (Const S : UnicodeString; Index,Size : SizeInt) : UnicodeString;compilerproc;