+ functions lo/hi for DWord type implemented

rtl/inc/system.inc

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

rtl/inc/systemh.inc

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