+ introduce TOSTimestamp

git-svn-id: trunk@44033 -
2025-04-05 15:47:54 +02:00 · 2020-01-25 14:14:41 +00:00 · 2020-01-25 14:14:41 +00:00 · 3cd4168ab3
commit 3cd4168ab3
parent 17c4834a4a
26 changed files with 47 additions and 19 deletions
--- a/rtl/aix/sysosh.inc
+++ b/rtl/aix/sysosh.inc
@ -18,6 +18,7 @@
 type
  THandle = Longint;
  TThreadID = Cardinal;
+  TOSTimestamp = Int64;
  
  PRTLCriticalSection = ^TRTLCriticalSection;
  TRTLCriticalSection = record
--- a/rtl/amicommon/sysosh.inc
+++ b/rtl/amicommon/sysosh.inc
@ -19,6 +19,7 @@
 type
  THandle = PtrInt;
  TThreadID = THandle;
+  TOSTimestamp = Longint;

  PRTLCriticalSection = ^TRTLCriticalSection;
  TRTLCriticalSection = record
--- a/rtl/atari/sysosh.inc
+++ b/rtl/atari/sysosh.inc
@ -23,7 +23,8 @@ type
  THandle = Longint;
 {$endif CPU64}
  TThreadID = THandle;
-  
+  TOSTimestamp = Longint;
+
  PRTLCriticalSection = ^TRTLCriticalSection;
  TRTLCriticalSection = record
   Locked: boolean
--- a/rtl/beos/sysosh.inc
+++ b/rtl/beos/sysosh.inc
@ -20,7 +20,8 @@ type
  { fd are int in C also for 64bit targets (x86_64) }
  THandle = Longint;
  TThreadID = THandle;
-  
+  TOSTimestamp = Int64;
+
  { pthread_mutex_t }
  PRTLCriticalSection = ^TRTLCriticalSection;
  TRTLCriticalSection = record
--- a/rtl/bsd/sysosh.inc
+++ b/rtl/bsd/sysosh.inc
@ -21,7 +21,8 @@ type
  THandle = Longint;
  TThreadRec = record end;
  TThreadID  = ^TThreadRec;
-  
+  TOSTimestamp = Int64;
+
  { pthread_mutex_t }
  PRTLCriticalSection = ^TRTLCriticalSection;
  TRTLCriticalSection = {$i pmutext.inc}
--- a/rtl/embedded/sysosh.inc
+++ b/rtl/embedded/sysosh.inc
@ -25,6 +25,7 @@ type
  {$else}
  TThreadID = THandle;
  {$endif}
+  TOSTimestamp = Int64;

  { pthread_mutex_t }
  PRTLCriticalSection = ^TRTLCriticalSection;
--- a/rtl/emx/sysosh.inc
+++ b/rtl/emx/sysosh.inc
@ -18,9 +18,9 @@
 {Platform specific information}
 type
  THandle = Longint;
-  
  TThreadID = cardinal;
-  
+  TOSTimestamp = Longint;
+
  { the fields of this record are os dependent  }
  { and they shouldn't be used in a program     }
  { only the type TCriticalSection is important }
--- a/rtl/gba/sysosh.inc
+++ b/rtl/gba/sysosh.inc
@ -19,7 +19,8 @@
 type
  THandle = Longint;
  TThreadID = THandle;
-  
+  TOSTimestamp = Longint;
+
  PRTLCriticalSection = ^TRTLCriticalSection;
  TRTLCriticalSection = record
   Locked: boolean
--- a/rtl/go32v2/sysosh.inc
+++ b/rtl/go32v2/sysosh.inc
@ -19,6 +19,7 @@
 type
  THandle = Longint;
  TThreadID = THandle;
+  TOSTimestamp = Longint;
  
   PRTLCriticalSection = ^TRTLCriticalSection;
   TRTLCriticalSection = record
--- a/rtl/haiku/sysosh.inc
+++ b/rtl/haiku/sysosh.inc
@ -20,7 +20,8 @@ type
  { fd are int in C also for 64bit targets (x86_64) }
  THandle = Longint;
  TThreadID = THandle;
-  
+  TOSTimestamp = Int64;
+
  { pthread_mutex_t }
  PRTLCriticalSection = ^TRTLCriticalSection;
  TRTLCriticalSection = record
--- a/rtl/java/sysosh.inc
+++ b/rtl/java/sysosh.inc
@ -16,6 +16,8 @@
 }

 type
+  TOSTimestamp = Longint;
+
  FpcRunTimeError = class(JLException)
    errornr: longint;
    constructor create(l: longint);
--- a/rtl/linux/sysosh.inc
+++ b/rtl/linux/sysosh.inc
@ -23,6 +23,8 @@ type
  { pthread_t is defined as an "unsigned long" }
  TThreadID = PtrUInt;

+  TOSTimestamp = Int64;
+
  PRTLCriticalSection = ^TRTLCriticalSection;
 {$macro on}
 {$define MUTEXTYPENAME := TRTLCriticalSection}
--- a/rtl/macos/sysosh.inc
+++ b/rtl/macos/sysosh.inc
@ -21,11 +21,12 @@ type
  THandle = Longint;
 {$endif CPU64}
  TThreadID = THandle;
+  TOSTimestamp = Longint;

-     PRTLCriticalSection = ^TRTLCriticalSection;
-     TRTLCriticalSection = record
-       Locked: boolean
-     end;
+  PRTLCriticalSection = ^TRTLCriticalSection;
+  TRTLCriticalSection = record
+    Locked: boolean
+  end;



--- a/rtl/msdos/sysosh.inc
+++ b/rtl/msdos/sysosh.inc
@ -19,8 +19,10 @@
 type
  THandle = Word;
  TThreadID = THandle;
+  TOSTimestamp = Longint;
+
+  PRTLCriticalSection = ^TRTLCriticalSection;
+  TRTLCriticalSection = record
+    Locked: boolean
+  end;

-   PRTLCriticalSection = ^TRTLCriticalSection;
-   TRTLCriticalSection = record
-     Locked: boolean
-   end;
--- a/rtl/nativent/sysosh.inc
+++ b/rtl/nativent/sysosh.inc
@ -17,6 +17,7 @@
 type
  THandle = PtrUInt;
  TThreadID = THandle;
+  TOSTimestamp = Longint;

  { the fields of this record are os dependent  }
  { and they shouldn't be used in a program     }
--- a/rtl/nds/sysosh.inc
+++ b/rtl/nds/sysosh.inc
@ -19,7 +19,8 @@
 type
  THandle = Longint;
  TThreadID = THandle;
-  
+  TOSTimestamp = Longint;
+
  PRTLCriticalSection = ^TRTLCriticalSection;
  TRTLCriticalSection = record
   Locked: boolean
--- a/rtl/netware/sysosh.inc
+++ b/rtl/netware/sysosh.inc
@ -19,6 +19,7 @@
 type
  THandle = DWord;
  TThreadID = THandle;
+  TOSTimestamp = Longint;
  
   { the fields of this record are os dependent  }
   { and they shouldn't be used in a program     }
--- a/rtl/netwlibc/sysosh.inc
+++ b/rtl/netwlibc/sysosh.inc
@ -18,7 +18,8 @@
 type
  THandle = DWord;
  TThreadID = THandle;
-  
+  TOSTimestamp = Longint;
+
  PRTLCriticalSection = ^TRTLCriticalSection;
  TRTLCriticalSection = packed record
      mutex : pointer;
--- a/rtl/os2/sysosh.inc
+++ b/rtl/os2/sysosh.inc
@ -19,7 +19,8 @@
 type
  THandle = Longint;
  TThreadID = cardinal;
-  
+  TOSTimestamp = Longint;
+
  { the fields of this record are os dependent  }
  { and they shouldn't be used in a program     }
  { only the type TCriticalSection is important }
--- a/rtl/palmos/sysosh.inc
+++ b/rtl/palmos/sysosh.inc
@ -21,6 +21,7 @@ type
  THandle = Longint;
 {$endif CPU64}
  TThreadID = THandle;
+  TOSTimestamp = Longint;

  PRTLCriticalSection = ^TRTLCriticalSection;
  TRTLCriticalSection = record
--- a/rtl/solaris/sysosh.inc
+++ b/rtl/solaris/sysosh.inc
@ -18,6 +18,7 @@
 type
  THandle = Longint;
  TThreadID = Cardinal;
+  TOSTimestamp = Int64;
  
  PRTLCriticalSection = ^TRTLCriticalSection;
  TRTLCriticalSection = record
--- a/rtl/symbian/sysosh.inc
+++ b/rtl/symbian/sysosh.inc
@ -19,6 +19,7 @@
 type
  THandle = Longint;
  TThreadID = THandle;
+  TOSTimestamp = Longint;

  { pthread_mutex_t }
  PRTLCriticalSection = ^TRTLCriticalSection;
--- a/rtl/watcom/sysosh.inc
+++ b/rtl/watcom/sysosh.inc
@ -19,6 +19,7 @@
 type
  THandle = Longint;
  TThreadID = THandle;
+  TOSTimestamp = Longint;

   PRTLCriticalSection = ^TRTLCriticalSection;
   TRTLCriticalSection = record
--- a/rtl/wii/sysosh.inc
+++ b/rtl/wii/sysosh.inc
@ -19,7 +19,8 @@
 type
  THandle = Longint;
  TThreadID = THandle;
-  
+  TOSTimestamp = Longint;
+
  PRTLCriticalSection = ^TRTLCriticalSection;
  TRTLCriticalSection = record
   Locked: boolean
--- a/rtl/win/sysosh.inc
+++ b/rtl/win/sysosh.inc
@ -24,6 +24,7 @@ type
 {$endif CPU64}
  TThreadID = DWord;
  SIZE_T = ULONG_PTR;
+  TOSTimestamp = Int64;

  { the fields of this record are os dependent  }
  { and they shouldn't be used in a program     }
--- a/rtl/win16/sysosh.inc
+++ b/rtl/win16/sysosh.inc
@ -19,6 +19,7 @@
 type
  THandle = Word;
  TThreadID = THandle;
+  TOSTimestamp = Longint;

   PRTLCriticalSection = ^TRTLCriticalSection;
   TRTLCriticalSection = record