+ functions lo/hi for DWord type implemented

This commit is contained in:
florian 1999-02-01 00:05:14 +00:00
parent 4ec3402851
commit e207d78d70
2 changed files with 13 additions and 3 deletions

View File

@ -51,9 +51,11 @@ const
Function lo(i : Integer) : byte; [INTERNPROC: In_lo_Word];
Function lo(w : Word) : byte; [INTERNPROC: In_lo_Word];
Function lo(l : Longint) : Word; [INTERNPROC: In_lo_long];
Function lo(l : DWord) : Word; [INTERNPROC: In_lo_long];
Function hi(i : Integer) : byte; [INTERNPROC: In_hi_Word];
Function hi(w : Word) : byte; [INTERNPROC: In_hi_Word];
Function hi(l : Longint) : Word; [INTERNPROC: In_hi_long];
Function hi(l : DWord) : Word; [INTERNPROC: In_hi_long];
Function chr(b : byte) : Char; [INTERNPROC: In_chr_byte];
Function Length(s : string) : byte; [INTERNPROC: In_Length_string];
@ -478,7 +480,10 @@ end;
{
$Log$
Revision 1.53 1999-01-29 09:23:09 pierre
Revision 1.54 1999-02-01 00:05:14 florian
+ functions lo/hi for DWord type implemented
Revision 1.53 1999/01/29 09:23:09 pierre
* Fillchar(..,..,boolean) added
Revision 1.52 1999/01/22 12:39:23 pierre

View File

@ -143,12 +143,14 @@ Procedure FillWord(Var x;count:Longint;Value:Word);
{$ifndef RTLLITE}
Function lo(w:Word):byte;
Function lo(l:Longint):Word;
Function lo(l:DWord):Word;
Function lo(i:Integer):byte;
Function lo(B: Byte):Byte;
Function hi(w:Word):byte;
Function hi(i:Integer):byte;
Function hi(l:Longint):Word;
Function Hi(B : Byte): byte;
Function hi(b : Byte) : Byte;
Function hi(l: DWord): Word;
Function Swap (X:Word):Word;
Function Swap (X:Integer):Integer;
Function Swap (X:Cardinal):Cardinal;
@ -432,7 +434,10 @@ const
{
$Log$
Revision 1.49 1999-01-29 09:23:10 pierre
Revision 1.50 1999-02-01 00:05:16 florian
+ functions lo/hi for DWord type implemented
Revision 1.49 1999/01/29 09:23:10 pierre
* Fillchar(..,..,boolean) added
Revision 1.48 1999/01/22 12:39:24 pierre