Jelajahi Sumber

Merged revisions 7601 via svnmerge from
svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
r7601 | daniel | 2007-06-09 09:37:03 +0200 (Sat, 09 Jun 2007) | 3 lines

+ Added types UnsignedByte,UnsignedWord,UnsignedLong, suggestion by
Adriaan van Os, (Mantis #9030)

........

git-svn-id: branches/fixes_2_2@7623 -

Jonas Maebe 18 tahun lalu
induk
melakukan
db5ff17b21
1 mengubah file dengan 4 tambahan dan 0 penghapusan
  1. 4 0
      rtl/inc/macpas.pp

+ 4 - 0
rtl/inc/macpas.pp

@@ -28,6 +28,10 @@ type
   LongDouble = ValReal;
   LongDouble = ValReal;
   FourCharArray = packed array[1..4] of char;
   FourCharArray = packed array[1..4] of char;
 
 
+  UnsignedByte = Byte;
+  UnsignedWord = Word;
+  UnsignedLong = Longword;
+
 {FourCharCode coercion
 {FourCharCode coercion
 This routine coreces string literals to a FourCharCode.}
 This routine coreces string literals to a FourCharCode.}
 function FCC(const literal: string): LongWord; {$ifdef systeminline}inline;{$endif}
 function FCC(const literal: string): LongWord; {$ifdef systeminline}inline;{$endif}