Changeset 37 for trunk/UFileStreamEx.pas

Timestamp:

Dec 10, 2016, 10:36:38 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Wrong color in About form.
• Fixed: Range check error in registry HKEY assignment.
• Added: Windows 32-bit and 64-bit build profiles.

File:

• trunk/UFileStreamEx.pas (modified) (8 diffs)

trunk/UFileStreamEx.pas

@@ -44 +44 @@
 
 uses
-  RtlConsts, BaseUnix;
+  RtlConsts{$IFDEF Linux}, BaseUnix{$ENDIF};
 
 const
@@ -69 +69 @@
   LinuxFlags: Longint;
 begin
+  {$IFDEF Linux}
   LinuxFlags := 0;
   case (Mode and (fmOpenRead or fmOpenWrite or fmOpenReadWrite)) of
@@ -84 +85 @@
 
   //Result := DoFileLocking(Result, Mode);
+  {$ENDIF}
 end;
 
@@ -91 +93 @@
   LinuxFlags: Longint;
 begin
+  {$IFDEF Linux}
   LinuxFlags := O_RDWR or O_CREAT or O_TRUNC;
   if ffDirect in Flags then LinuxFlags := LinuxFlags or O_DIRECT;
@@ -98 +101 @@
     Result := fpOpen(pointer(SystemFileName), LinuxFlags);
   until (Result <> -1) or (fpgeterrno <> ESysEINTR);
+  {$ENDIF}
 end;
 
@@ -105 +109 @@
   LinuxFlags: Longint;
 begin
+  {$IFDEF Linux}
   LinuxFlags := O_RDWR or O_CREAT or O_TRUNC;
   if ffDirect in Flags then LinuxFlags := LinuxFlags or O_DIRECT;
@@ -112 +117 @@
     Result := fpOpen(pointer(SystemFileName), LinuxFlags, Rights);
   until (Result <> -1) or (fpgeterrno <> ESysEINTR);
+  {$ENDIF}
 end;
 
@@ -122 +128 @@
 function FileReadEx(Handle: Longint; out Buffer; Count: Longint): Longint;
 begin
+  {$IFDEF Linux}
   repeat
     Result := fpRead(Handle, Buffer, Count);
   until (Result <> -1) or (fpgeterrno <> ESysEINTR);
+  {$ENDIF}
 end;
 
 function FileWriteEx(Handle: Longint; const Buffer; Count: Longint): Longint;
 begin
+  {$IFDEF Linux}
   repeat
     Result := fpWrite(Handle, Buffer, Count);
   until (Result <> -1) or (fpgeterrno <> ESysEINTR);
+  {$ENDIF}
 end;