paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 13:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ routines for range checking added

Browse Source
This commit is contained in:
florian 1999-02-04 10:49:21 +00:00
parent 278d328c5c
commit 4d9e0a3b11
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/inc/astrings.inc
View File

@ -347,6 +347,20 @@ begin
AnsiCompare:=Temp;
end;
Procedure AnsiCheckZero(p : pointer);[Public,Alias : 'FPC_ANSISTR_CHECKZERO'];
begin
if p=nil then
HandleErrorFrame(201,get_frame);
end;
Procedure AnsiCheckRange(len,index : longint);[Public,Alias : 'FPC_ANSISTR_RANGECHECK'];
begin
if (index>len) or (Index<1) then
HandleErrorFrame(201,get_frame);
end;
Function AnsiCompare (Var S1 : Pointer; Var S2 : ShortString): Longint;
@ -487,7 +501,7 @@ begin
j := i;
e := false;
end;
DisposeAnsiString(S);
// DisposeAnsiString(S);
end;
pos := j;
end;
@ -727,7 +741,10 @@ end;
{
$Log$
Revision 1.9 1999-02-02 11:37:34 peter
Revision 1.10 1999-02-04 10:49:21 florian
+ routines for range checking added
Revision 1.9 1999/02/02 11:37:34 peter
* fixed ansi2short
Revision 1.8 1999/01/06 14:48:43 michael