diff options
| -rw-r--r-- | UEngines.pas | 3 | ||||
| -rw-r--r-- | ULibc.pas | 12 |
2 files changed, 12 insertions, 3 deletions
diff --git a/UEngines.pas b/UEngines.pas index 8649a05..7a0ccad 100644 --- a/UEngines.pas +++ b/UEngines.pas @@ -556,7 +556,8 @@ end; function TLocalTreeEngine.CopyFileOut(const SourceFile, DestFile: string; Append: boolean; ProgressFunc: TEngineProgressFunc; Sender: Pointer; Error: PPGError): boolean; var fsrc, fdest: Longint; Buffer: Pointer; - BytesDone, BytesRead, BytesWritten, BytesRemaining: ssize_t; + BytesDone: Int64; + BytesRead, BytesWritten, BytesRemaining: ssize_t; begin Result := False; BytesDone := 0; @@ -51,9 +51,17 @@ type {$ENDIF} +{$IFDEF CPU64} + size_t = QWORD; + ssize_t = Int64; + clock_t = QWORD; +{$ELSE} + size_t = Cardinal; + ssize_t = LongInt; + clock_t = Cardinal; +{$ENDIF} + sig_atomic_t = Longint; - size_t = Cardinal; - ssize_t = Longint; error_t = Integer; __mode_t = DWORD; __dev_t = QWORD; |