paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 06:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix leap second reading

Browse Source 
git-svn-id: trunk@49006 -
(cherry picked from commit 3575369989)
This commit is contained in:
michael 2021-03-19 09:22:13 +00:00 committed by marcoonthegit
parent ab9be15686
commit cd5dc1585f
1 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/unix/timezone.inc
View File

@ -29,7 +29,7 @@ type
pleap=^tleap;
tleap=record
transition : int64;
change : int64;
change : longint;
end;
var
@ -277,17 +277,31 @@ const
var
buf : array[0..bufsize-1] of byte;
bufptr : pbyte;
bufbytes : tsSize;
f : longint;
tzhead : ttzhead;
procedure readfilebuf;
function readfilebuf : TsSize;
begin
bufptr := @buf[0];
fpread(f, buf, bufsize);
bufbytes:=fpread(f, buf, bufsize);
readfilebuf:=bufbytes;
end;
Procedure checkbufptr;
var
a : tssize;
begin
a:=bufptr-@buf;
if (a>bufbytes) then
Writeln('Reading past end of file : ',a);
end;
function readbufbyte: byte;
begin
// checkbufptr;
if bufptr > @buf[bufsize-1] then
readfilebuf;
readbufbyte := bufptr^;
@ -311,6 +325,7 @@ var
dec(count, numbytes);
inc(readbuf, numbytes);
inc(dest, numbytes);
// checkbufptr;
end;
if count > 0 then
readfilebuf
@ -403,13 +418,12 @@ var
end;
readbuf(zone_names,tzhead.tzh_charcnt);
if version=2 then
begin // read 64bit values
for i:=0 to num_leaps-1 do
begin
readbuf(@leaps[i].transition,sizeof(int64));
readbuf(@leaps[i].change,sizeof(int64));
readbuf(@leaps[i].change,sizeof(longint));
leaps[i].transition:=decode(leaps[i].transition);
leaps[i].change:=decode(leaps[i].change);
end;