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

* RTLLITE conditional added to produce smaller RTL

Browse Source
This commit is contained in:
daniel 1998-06-15 15:16:26 +00:00
parent a07500f360
commit c48b67d0b3
2 changed files with 38 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/inc/system.inc
View File

@ -130,6 +130,8 @@ Procedure incr_ansi_ref (P : pointer);[Alias : 'INCR_ANSI_REF'];
Math Routines Math Routines
****************************************************************************} ****************************************************************************}
{$ifndef RTLLITE}
function Hi(b : byte): byte; function Hi(b : byte): byte;
begin begin
Hi := b shr 4 Hi := b shr 4
@ -241,6 +243,8 @@ Begin
End; End;
{$endif RTLLITE}
{$R-} {$R-}
Function Random : real; Function Random : real;
@ -261,6 +265,8 @@ End;
Memory Management Memory Management
****************************************************************************} ****************************************************************************}
{$ifndef RTLLITE}
Function Ptr(sel,off : Longint) : pointer; Function Ptr(sel,off : Longint) : pointer;
Begin Begin
sel:=0; sel:=0;
@ -287,6 +293,8 @@ Begin
Sseg:=0; Sseg:=0;
End; End;
{$endif RTLLITE}
{***************************************************************************** {*****************************************************************************
Miscellaneous Miscellaneous
*****************************************************************************} *****************************************************************************}
@ -416,7 +424,11 @@ End;
{ {
$Log$ $Log$
Revision 1.9 1998-06-10 07:46:45 michael Revision 1.10 1998-06-15 15:16:26 daniel
* RTLLITE conditional added to produce smaller RTL
Revision 1.9 1998/06/10 07:46:45 michael
+ Forgot to commit some changes + Forgot to commit some changes
Revision 1.8 1998/06/08 12:38:24 michael Revision 1.8 1998/06/08 12:38:24 michael

18
rtl/inc/systemh.inc
View File

@ -99,12 +99,15 @@ var
Procedure Move(Var source,dest;count:Longint); Procedure Move(Var source,dest;count:Longint);
Procedure FillChar(Var x;count:Longint;Value:Char); Procedure FillChar(Var x;count:Longint;Value:Char);
Procedure FillChar(Var x;count:Longint;Value:byte); Procedure FillChar(Var x;count:Longint;Value:byte);
{$ifndef RTLLITE}
Procedure FillWord(Var x;count:Longint;Value:Word); Procedure FillWord(Var x;count:Longint;Value:Word);
{$endif RTLLITE}
{**************************************************************************** {****************************************************************************
Math Routines Math Routines
****************************************************************************} ****************************************************************************}
{$ifndef RTLLITE}
Function lo(w:Word):byte; Function lo(w:Word):byte;
Function lo(l:Longint):Word; Function lo(l:Longint):Word;
Function lo(i:Integer):byte; Function lo(i:Integer):byte;
@ -114,6 +117,8 @@ 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;
{$endif RTLLITE}
Procedure Inc(Var i:cardinal); Procedure Inc(Var i:cardinal);
Procedure Inc(Var i:Longint); Procedure Inc(Var i:Longint);
Procedure Inc(Var i:Integer); Procedure Inc(Var i:Integer);
@ -133,6 +138,8 @@ Procedure Dec(Var p:PChar);
Function Chr(b:byte):Char; Function Chr(b:byte):Char;
Function Length(s:string):byte; Function Length(s:string):byte;
{$ifndef RTLLITE}
Procedure Dec(Var i:cardinal;a:Longint); Procedure Dec(Var i:cardinal;a:Longint);
Procedure Inc(Var i:cardinal;a:Longint); Procedure Inc(Var i:cardinal;a:Longint);
Procedure Dec(Var i:Longint;a:Longint); Procedure Dec(Var i:Longint;a:Longint);
@ -154,6 +161,8 @@ Function Swap (X:Integer):Integer;
Function Swap (X:Cardinal):Cardinal; Function Swap (X:Cardinal):Cardinal;
Function Swap (X:Longint):Longint; Function Swap (X:Longint):Longint;
{$endif RTLLITE}
Function Random(l:Longint):Longint; Function Random(l:Longint):Longint;
Function Random:real; Function Random:real;
Procedure Randomize; Procedure Randomize;
@ -173,11 +182,14 @@ Procedure getmem(Var p:pointer;Size:Longint);
Procedure freemem(Var p:pointer;Size:Longint); Procedure freemem(Var p:pointer;Size:Longint);
Function memavail:Longint; Function memavail:Longint;
Function maxavail:Longint; Function maxavail:Longint;
{$ifndef RTLLITE}
Function ptr(sel,off:Longint):pointer; Function ptr(sel,off:Longint):pointer;
Function Addr (Var X):pointer; Function Addr (Var X):pointer;
Function Cseg:Word; Function Cseg:Word;
Function Dseg:Word; Function Dseg:Word;
Function Sseg:Word; Function Sseg:Word;
{$endif RTLLITE}
{**************************************************************************** {****************************************************************************
PChar Handling PChar Handling
@ -371,7 +383,11 @@ Procedure AddExitProc(Proc:TProcedure);
{ {
$Log$ $Log$
Revision 1.11 1998-06-08 12:38:23 michael Revision 1.12 1998-06-15 15:16:27 daniel
* RTLLITE conditional added to produce smaller RTL
Revision 1.11 1998/06/08 12:38:23 michael
Implemented rtti, inserted ansistrings again Implemented rtti, inserted ansistrings again
Revision 1.10 1998/06/04 23:46:02 peter Revision 1.10 1998/06/04 23:46:02 peter