paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 01:09:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ functions lo/hi for DWord type implemented

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/system.inc
View File

@ -51,9 +51,11 @@ const
Function lo(i : Integer) : byte; [INTERNPROC: In_lo_Word]; Function lo(i : Integer) : byte; [INTERNPROC: In_lo_Word];
Function lo(w : Word) : 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 : 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(i : Integer) : byte; [INTERNPROC: In_hi_Word];
Function hi(w : Word) : 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 : 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 chr(b : byte) : Char; [INTERNPROC: In_chr_byte];
Function Length(s : string) : byte; [INTERNPROC: In_Length_string]; Function Length(s : string) : byte; [INTERNPROC: In_Length_string];
@ -478,7 +480,10 @@ end;
{ {
$Log$ $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 * Fillchar(..,..,boolean) added
Revision 1.52 1999/01/22 12:39:23 pierre Revision 1.52 1999/01/22 12:39:23 pierre

9
rtl/inc/systemh.inc
View File

@ -143,12 +143,14 @@ Procedure FillWord(Var x;count:Longint;Value:Word);
{$ifndef RTLLITE} {$ifndef RTLLITE}
Function lo(w:Word):byte; Function lo(w:Word):byte;
Function lo(l:Longint):Word; Function lo(l:Longint):Word;
Function lo(l:DWord):Word;
Function lo(i:Integer):byte; Function lo(i:Integer):byte;
Function lo(B: Byte):Byte; Function lo(B: Byte):Byte;
Function hi(w:Word):byte; Function hi(w:Word):byte;
Function hi(i:Integer):byte; Function hi(i:Integer):byte;
Function hi(l:Longint):Word; 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:Word):Word;
Function Swap (X:Integer):Integer; Function Swap (X:Integer):Integer;
Function Swap (X:Cardinal):Cardinal; Function Swap (X:Cardinal):Cardinal;
@ -432,7 +434,10 @@ const
{ {
$Log$ $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 * Fillchar(..,..,boolean) added
Revision 1.48 1999/01/22 12:39:24 pierre Revision 1.48 1999/01/22 12:39:24 pierre