فهرست منبع

amiga-likes: add headers for timer.device/GetSysTime()

git-svn-id: trunk@45712 -
Károly Balogh 5 سال پیش
والد
کامیت
cab80d1218
4فایلهای تغییر یافته به همراه59 افزوده شده و 0 حذف شده
  1. 3 0
      .gitattributes
  2. 23 0
      rtl/amiga/m68k/timerf.inc
  3. 16 0
      rtl/amiga/powerpc/timerf.inc
  4. 17 0
      rtl/aros/timerf.inc

+ 3 - 0
.gitattributes

@@ -10140,6 +10140,7 @@ rtl/amiga/m68k/legacyutilh.inc svneol=native#text/plain
 rtl/amiga/m68k/m68kamiga.inc svneol=native#text/plain
 rtl/amiga/m68k/prt0.as svneol=native#text/plain
 rtl/amiga/m68k/si_prc.pp svneol=native#text/plain
+rtl/amiga/m68k/timerf.inc svneol=native#text/plain
 rtl/amiga/m68k/utild1.inc svneol=native#text/plain
 rtl/amiga/m68k/utild2.inc svneol=native#text/plain
 rtl/amiga/m68k/utilf.inc svneol=native#text/plain
@@ -10148,6 +10149,7 @@ rtl/amiga/powerpc/execd.inc svneol=native#text/plain
 rtl/amiga/powerpc/execf.inc svneol=native#text/plain
 rtl/amiga/powerpc/prt0.as svneol=native#text/plain
 rtl/amiga/powerpc/si_prc.pp svneol=native#text/plain
+rtl/amiga/powerpc/timerf.inc svneol=native#text/plain
 rtl/amiga/powerpc/utild1.inc svneol=native#text/plain
 rtl/amiga/powerpc/utild2.inc svneol=native#text/plain
 rtl/amiga/powerpc/utilf.inc svneol=native#text/plain
@@ -10206,6 +10208,7 @@ rtl/aros/i386/utilf.inc svneol=native#text/plain
 rtl/aros/si_prc.pp svneol=native#text/plain
 rtl/aros/system.pp svneol=native#text/plain
 rtl/aros/timerd.inc svneol=native#text/plain
+rtl/aros/timerf.inc svneol=native#text/plain
 rtl/aros/x86_64/prt0.as svneol=native#text/plain
 rtl/atari/Makefile svneol=native#text/plain
 rtl/atari/Makefile.fpc svneol=native#text/plain

+ 23 - 0
rtl/amiga/m68k/timerf.inc

@@ -0,0 +1,23 @@
+{
+    This file is part of the Free Pascal run time library.
+
+    timer.device functions for AmigaOS/m68k
+    Copyright (c) 2020 Karoly Balogh
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+{ these functions are only available v36+ (OS Release 2.0+) }
+{$IFNDEF AMIGA_V1_0_ONLY}
+{$IFNDEF AMIGA_V1_2_ONLY}
+
+procedure GetSysTime( Dest : ptimeval location 'a0'); syscall TimerBase 066;
+
+{$ENDIF AMIGA_V1_2_ONLY}
+{$ENDIF AMIGA_V1_0_ONLY}

+ 16 - 0
rtl/amiga/powerpc/timerf.inc

@@ -0,0 +1,16 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2020 by Karoly Balogh
+
+    timer.device functions for AmigaOS 4.x/PowerPC
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+procedure GetSysTime(Dest: PTimeVal); syscall TimerBase 92;

+ 17 - 0
rtl/aros/timerf.inc

@@ -0,0 +1,17 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2020 by Karoly Balogh
+
+    timer.device functions for AROS
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+
+procedure GetSysTime(Dest: PTimeVal); syscall TimerBase 11;