فهرست منبع

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

peter 26 سال پیش
والد
کامیت
ec88b5888d
1فایلهای تغییر یافته به همراه7 افزوده شده و 19 حذف شده
  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