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

* fixed range errors

Browse Source 
git-svn-id: trunk@5315 -
This commit is contained in:
Jonas Maebe 2006-11-10 20:45:59 +00:00
parent 865a4573cf
commit eb411035eb
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/unix/timezone.inc
View File

@ -154,7 +154,7 @@ var
function readbufbyte: byte;
begin
if bufptr >= @buf[bufsize] then
if bufptr > @buf[bufsize-1] then
readfilebuf;
readbufbyte := bufptr^;
inc(bufptr);
@ -166,7 +166,7 @@ var
begin
readbuf := 0;
repeat
numbytes := @buf[bufsize] - bufptr;
numbytes := @buf[bufsize-1] - bufptr + 1;
if numbytes > count then
numbytes := count;
if numbytes > 0 then
@ -203,7 +203,7 @@ begin
f:=fpopen(fn,Open_RdOnly);
if f<0 then
exit;
bufptr := @buf[bufsize];
bufptr := @buf[bufsize-1]+1;
i:=readbuf(tzhead,sizeof(tzhead));
if i<>sizeof(tzhead) then
exit;