paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 06:10:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* removed old integer versions of localtoepoch and epochtolocal, you

Browse Source 
need to use the word versions instead else you got an overloaded bug
This commit is contained in:
peter 1999-08-11 22:02:25 +00:00
parent edd62da064
commit ec88b5888d
1 changed files with 7 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/linux/linux.pp
View File

@ -486,9 +486,6 @@ Procedure EpochToLocal(epoch:longint;var year,month,day,hour,minute,second:Word)
Function LocalToEpoch(year,month,day,hour,minute,second:Word):Longint;
Procedure GetTime(Var Hour,Minute,Second:Word);
Procedure GetDate(Var Year,Month,Day:Word);
{ For compatibility with earlier versions }
Procedure EpochToLocal(epoch:longint;var year,month,day,hour,minute,second:Integer);
Function LocalToEpoch(year,month,day,hour,minute,second:Integer):Longint;
Procedure GetTime(Var Hour,Minute,Second:Integer);
Procedure GetDate(Var Year,Month,Day:Integer);
@ -750,7 +747,7 @@ begin
getmem(pp,4*4);
temp:='/bin/sh'#0'-c'#0+prog+#0;
GetMem(PP[0],Length(Temp));
Move(@Temp[1],PP[0]^,Length(Temp));
Move(@Temp[1],PP[0]^,Length(Temp));
p:=pp+SizeOf(Pointer);
p^:=@pp[0][8];
p:=p+SizeOf(Pointer);
@ -1358,25 +1355,12 @@ Begin
End;
{ The now following are for compatibility with earlier versions
of the linux unit... }
Procedure EpochToLocal(epoch:longint;var year,month,day,hour,minute,second:Integer);
begin
EpochToLocal(epoch,word(year),word(month),word(day),word(hour),word(minute),word(second));
end;
Function LocalToEpoch(year,month,day,hour,minute,second:Integer):Longint;
begin
LocalToEpoch:=LocalToEpoch(word(year),word(month),word(day),word(hour),word(minute),word(second));
end;
Procedure GetTime(Var Hour,Minute,Second:Integer);
begin
GetTime(Word(Hour),Word(Minute),Word(Second));
end;
Procedure GetDate(Var Year,Month,Day:Integer);
begin
GetDate(Word(Year),Word(Month),Word(Day));
@ -3753,7 +3737,11 @@ End.
{
$Log$
Revision 1.44 1999-07-31 23:55:04 michael
Revision 1.45 1999-08-11 22:02:25 peter
* removed old integer versions of localtoepoch and epochtolocal, you
need to use the word versions instead else you got an overloaded bug
Revision 1.44 1999/07/31 23:55:04 michael
+ FCNTL patch from Sebastian Guenther
Revision 1.43 1999/07/29 16:33:24 michael