← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to fpcsrc/rtl/morphos/timerf.inc

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/rtl/morphos/timerf.inc
 
1
{
 
2
    This file is part of the Free Pascal run time library.
 
3
 
 
4
    timer.device functions (V50) for MorphOS/PowerPC
 
5
    Copyright (c) 2002-3 The MorphOS Development Team, All Rights Reserved.
 
6
 
 
7
    Free Pascal conversion
 
8
    Copyright (c) 2004 Karoly Balogh for Genesi S.a.r.l. <www.genesi.lu>
 
9
 
 
10
    See the file COPYING.FPC, included in this distribution,
 
11
    for details about the copyright.
 
12
 
 
13
    This program is distributed in the hope that it will be useful,
 
14
    but WITHOUT ANY WARRANTY; without even the implied warranty of
 
15
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
16
 
 
17
 **********************************************************************}
 
18
 
 
19
 
 
20
procedure AddTime(Dest  : PTimeVal location 'a0';
 
21
                  Source: PTimeVal location 'a1');
 
22
SysCall TimerBase 42;
 
23
 
 
24
procedure SubTime(Dest  : PTimeVal location 'a0';
 
25
                  Source: PTimeVal location 'a1');
 
26
SysCall TimerBase 48;
 
27
 
 
28
function CmpTime(Dest  : PTimeVal location 'a0';
 
29
                 Source: PTimeVal location 'a1'): LongInt;
 
30
SysCall TimerBase 54;
 
31
 
 
32
function ReadEClock(Dest: PTimeVal location 'a0'): DWord;
 
33
SysCall TimerBase 60;
 
34
 
 
35
procedure GetSysTime(Dest: PTimeVal location 'a0');
 
36
SysCall TimerBase 66;
 
37
 
 
38