source: branches/multi-width/Int24.pas

Last change on this file was 54, checked in by chronos, 6 months ago
  • Added: Experimental multi-width CPU.
File size: 393 bytes
Line 
1unit Int24;
2
3interface
4
5uses
6 Classes, SysUtils;
7
8type
9 Int24 = packed record
10 case Byte of
11 0: (b0, b1, b2: UInt8);
12 1: (b: packed array [0..2] of UInt8);
13 2: (w1: UInt16; w2: UInt8);
14 end;
15
16 UInt24 = packed record
17 case Byte of
18 0: (b0, b1, b2: UInt8);
19 1: (b: packed array [0..2] of UInt8);
20 2: (w1: UInt16; w2: UInt8);
21 end;
22
23implementation
24
25end.
26
Note: See TracBrowser for help on using the repository browser.