Browse Source

* removed old integer versions of localtoepoch and epochtolocal, you
need to use the word versions instead else you got an overloaded bug

peter 26 years ago
parent
commit
ec88b5888d
1 changed files with 7 additions and 19 deletions
  1. 7 19
      rtl/linux/linux.pp

+ 7 - 19
rtl/linux/linux.pp

@@ -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