- fpc patch

- added units to project-file

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1640 b956fd51-792f-4845-bead-9b4dfca2ff2c

2 files changed, 16 insertions, 3 deletions

diff --git a/unicode/src/base/UFilename.pas b/unicode/src/base/UFilename.pas
index 0cf12cc0..c2ccaec8 100644
--- a/unicode/src/base/UFilename.pas
+++ b/unicode/src/base/UFilename.pas
@@ -29,6 +29,8 @@ unit UFilename;
   {$MODE Delphi}
 {$ENDIF}
 
+{$I switches.inc}
+
 interface
 
 uses
diff --git a/unicode/src/base/UFilesystem.pas b/unicode/src/base/UFilesystem.pas
index b9020391..e654f198 100644
--- a/unicode/src/base/UFilesystem.pas
+++ b/unicode/src/base/UFilesystem.pas
@@ -27,6 +27,12 @@ unit UFilesystem;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+{$I switches.inc}
+
 uses
   {$IFDEF MSWINDOWS}
   Windows,
@@ -306,8 +312,13 @@ begin
 end;
 
 function TFileSystemImpl.FileAge(const FileName: IPath; out FileDateTime: TDateTime): Boolean;
+var
+  FileDate: longint;
 begin
-  Result := SysUtils.FileAge(FileName.ToString(pencSystemANSI), FileDateTime);
+  FileDate := SysUtils.FileAge(FileName.ToString(pencSystemANSI));
+  if (FileDate > -1) then
+    FileDateTime := FileDateToDateTime(FileDate);
+  Result := (FileDate > -1);
 end;
 
 function TFileSystemImpl.DirectoryExists(const Name: IPath): Boolean;
@@ -337,7 +348,7 @@ end;
 
 function TFileSystemImpl.FileSetReadOnly(const FileName: IPath; ReadOnly: Boolean): Boolean;
 begin
-  Result := SysUtils.FileSetReadOnly(FileName.ToString(pencSystemANSI), ReadOnly);
+  Result := (SysUtils.FileSetAttr(FileName.ToString(pencSystemANSI), faReadOnly) = 0);
 end;
 
 function TFileSystemImpl.ForceDirectories(const Dir: IPath): Boolean;
@@ -479,7 +490,7 @@ begin
   {$IFDEF MSWINDOWS}
   Result.Name := Path(fSearchRec.Name);
   {$ELSE}
-  Result.Name := Path(fSearchRec.Name, pencSystem);
+  Result.Name := Path(fSearchRec.Name, pencSystemANSI);
   {$ENDIF}
   Result.ExcludeAttr := fSearchRec.ExcludeAttr;