paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-09 21:41:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed several range errors

Browse Source 
git-svn-id: trunk@6857 -
This commit is contained in:
Jonas Maebe 2007-03-14 19:47:53 +00:00
parent 18e0b6e98b
commit d3736f563f
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/objpas/sysutils/sysstr.inc
View File

@ -2641,7 +2641,7 @@ function sscanf(const s: string; const fmt : string;const Pointers : array of Po
function GetInt(unsigned : boolean=false) : Integer;
begin
s1 := '';
while (s[n] = ' ') and (Length(s) > n) do
while (Length(s) > n) and (s[n] = ' ') do
inc(n);
{ read sign }
if (Length(s)>= n) and (s[n] in ['+', '-']) then
@ -2659,8 +2659,8 @@ function sscanf(const s: string; const fmt : string;const Pointers : array of Po
end;
end;
{ read numbers }
while (s[n] in ['0'..'9'])
and (Length(s) >= n) do
while (Length(s) >= n) and
(s[n] in ['0'..'9']) do
begin
s1 := s1+s[n];
inc(n);
@ -2672,10 +2672,10 @@ function sscanf(const s: string; const fmt : string;const Pointers : array of Po
function GetFloat : Integer;
begin
s1 := '';
while (s[n] = ' ') and (Length(s) > n) do
while (Length(s) > n) and (s[n] = ' ') do
inc(n);
while (s[n] in ['0'..'9', '+', '-', '.', 'e', 'E'])
and (Length(s) >= n) do
while (Length(s) >= n) and
(s[n] in ['0'..'9', '+', '-', '.', 'e', 'E']) do
begin
s1 := s1+s[n];
inc(n);
@ -2687,9 +2687,9 @@ function sscanf(const s: string; const fmt : string;const Pointers : array of Po
function GetString : Integer;
begin
s1 := '';
while (s[n] = ' ') and (Length(s) > n) do
while (Length(s) > n) and (s[n] = ' ') do
inc(n);
while (s[n] <> ' ') and (Length(s) >= n) do
while (Length(s) >= n) and (s[n] <> ' ')do
begin
s1 := s1+s[n];
inc(n);
@ -2700,7 +2700,7 @@ function sscanf(const s: string; const fmt : string;const Pointers : array of Po
function ScanStr(c : Char) : Boolean;
begin
while (s[n] <> c) and (Length(s) > n) do
while (Length(s) > n) and (s[n] <> c) do
inc(n);
inc(n);
If (n <= Length(s)) then
@ -2716,7 +2716,7 @@ function sscanf(const s: string; const fmt : string;const Pointers : array of Po
while true do
begin
while (fmt[m] = ' ') and (Length(fmt) > m) do
while (Length(fmt) > m) and (fmt[m] = ' ') do
inc(m);
if (m >= Length(fmt)) then