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

« back to all changes in this revision

Viewing changes to packages/extra/palmunits/palmos.pp

  • 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
[ 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:
1
 
unit palmos;
2
 
 
3
 
interface
4
 
 
5
 
(************************************************************
6
 
 * Common constants
7
 
 *************************************************************)
8
 
type
9
 
  Int8 = ShortInt;
10
 
  Int16 = Integer;
11
 
  Int32 = LongInt;
12
 
 
13
 
  UInt8 = Byte;
14
 
  UInt16 = Word;
15
 
  UInt32 = LongWord;
16
 
 
17
 
// Logical data types
18
 
 
19
 
  WChar = UInt16;      // 'wide' int'l character type.
20
 
  Err = UInt16;
21
 
  LocalID = UInt32;    // local (card relative) chunk ID
22
 
  Coord = Int16;       // screen/window coordinate
23
 
  MemPtr = Pointer;    // global pointer
24
 
  MemHandle = Pointer; // global handle
25
 
 
26
 
  ProcPtr = function: Int32;
27
 
 
28
 
const
29
 
  NULL = 0;
30
 
  bitsInByte = 8;
31
 
 
32
 
(************************************************************
33
 
 * Palm specific TRAP instruction numbers
34
 
 *************************************************************)
35
 
 
36
 
const
37
 
  sysDbgBreakpointTrapNum = 0;  // For soft breakpoints
38
 
  sysDbgTrapNum           = 8;  // For compiled breakpoints
39
 
  sysDispatchTrapNum      = 15; // Trap dispatcher
40
 
 
41
 
type
42
 
  Enum = Byte;
43
 
  WordEnum = Word;
44
 
  LongEnum = LongWord;
45
 
 
46
 
  Int8Ptr = ^Int8;
47
 
  Int16Ptr = ^Int16;
48
 
  Int32Ptr = ^Int32;
49
 
 
50
 
  UInt8Ptr = ^UInt8;
51
 
  UInt16Ptr = ^UInt16;
52
 
  UInt32Ptr = ^UInt32;
53
 
  PointerPtr = ^Pointer;
54
 
 
55
 
  PCharPtr = ^PChar;
56
 
  MemPtrPtr = ^MemPtr;
57
 
  WCharPtr = ^WChar;
58
 
  Smallint = Integer;
59
 
 
60
 
implementation
61
 
 
62
 
end.
 
 
b'\\ No newline at end of file'