[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[tyndur-devel] [PATCH 4/5] Pascal-RTL: FileAge-Stub korrigiert

! Pascal-RTL: Wenn man schon einen Stub macht, dann sollte der
  wenigstens einen plausiblen Wert zurueckgeben, wo einem nicht gleich
  der FPC um die Ohren fliegt.

Signed-off-by: Kevin Wolf <kevin@xxxxxxxxxx>
---
 src/modules/pas/lib/rtl/sysutils.pp |    9 +++++++--
 1 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/modules/pas/lib/rtl/sysutils.pp b/src/modules/pas/lib/rtl/sysutils.pp
index 5075631..ac1e5dc 100644
--- a/src/modules/pas/lib/rtl/sysutils.pp
+++ b/src/modules/pas/lib/rtl/sysutils.pp
@@ -218,8 +218,13 @@ end;
 
 function FileAge(const filename: AnsiString):LongInt;
 begin
-    Result := 0; // FIXME
-end;    
+    if FileExists(filename) then begin
+        // FIXME
+        Result := DateTimeToFileDate(EncodeDate(1980, 1, 1));
+    end else begin
+        Result := -1;
+    end;
+end;
 
 function DirectoryExists(const directory: AnsiString):Boolean;
 var
-- 
1.6.0.2