Browse Source

rtl: reverted some accidental but harmless extra changes committed in r49036

git-svn-id: trunk@49037 -
Károly Balogh 4 years ago
parent
commit
1b1e1009c1
1 changed files with 1 additions and 4 deletions
  1. 1 4
      rtl/objpas/sysutils/dati.inc

+ 1 - 4
rtl/objpas/sysutils/dati.inc

@@ -1248,6 +1248,7 @@ begin
   result := StrPas(@ResultBuffer[0]);
   result := StrPas(@ResultBuffer[0]);
 end ;
 end ;
 
 
+
 Function DateTimeToFileDate(DateTime : TDateTime) : Int64;
 Function DateTimeToFileDate(DateTime : TDateTime) : Int64;
 
 
 Var YY,MM,DD,H,m,s,msec : Word;
 Var YY,MM,DD,H,m,s,msec : Word;
@@ -1256,7 +1257,6 @@ begin
   Decodedate (DateTime,YY,MM,DD);
   Decodedate (DateTime,YY,MM,DD);
   DecodeTime (DateTime,h,m,s,msec);
   DecodeTime (DateTime,h,m,s,msec);
 {$ifndef unix}
 {$ifndef unix}
-{.$ifndef hasamiga}
   If (YY<1980) or (YY>2099) then
   If (YY<1980) or (YY>2099) then
     Result:=0
     Result:=0
   else
   else
@@ -1264,9 +1264,6 @@ begin
     Result:=(s shr 1) or (m shl 5) or (h shl 11);
     Result:=(s shr 1) or (m shl 5) or (h shl 11);
     Result:=Result or longint(DD shl 16 or (MM shl 21) or (word(YY-1980) shl 25));
     Result:=Result or longint(DD shl 16 or (MM shl 21) or (word(YY-1980) shl 25));
     end;
     end;
-{.$else hasamiga}
-//  Result:=LocalToAmigaFileDate(yy,mm,dd,h,m,s);
-{.$endif}
 {$else unix}
 {$else unix}
   Result:=LocalToEpoch(yy,mm,dd,h,m,s);
   Result:=LocalToEpoch(yy,mm,dd,h,m,s);
 {$endif unix}
 {$endif unix}