paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 05:31:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Added types UnsignedByte,UnsignedWord,UnsignedLong, suggestion by

Browse Source 
Adriaan van Os, (Mantis #9030)

git-svn-id: trunk@7601 -
This commit is contained in:
daniel 2007-06-09 07:37:03 +00:00
parent 5a8679131f
commit bce3ea4373
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/macpas.pp
View File

@ -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}