paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 12:39:09 +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

20
rtl/inc/system.inc
View File

@ -120,7 +120,7 @@ Procedure incr_ansi_ref (P : pointer);[Alias : 'INCR_ANSI_REF'];
{**************************************************************************** {****************************************************************************
Run-Time Type Information (RTTI) Run-Time Type Information (RTTI)
****************************************************************************} ****************************************************************************}
@ -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;
@ -258,9 +262,11 @@ End;
{$I math.inc} {$I math.inc}
{**************************************************************************** {****************************************************************************
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,8 +293,10 @@ 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

28
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;
@ -166,21 +175,24 @@ Function odd(l:Longint):Boolean;
{**************************************************************************** {****************************************************************************
Memory management Memory management
****************************************************************************} ****************************************************************************}
Procedure getmem(Var p:pointer;Size:Longint); 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
****************************************************************************} ****************************************************************************}
function strpas(p:pchar):string; function strpas(p:pchar):string;
@ -253,8 +265,8 @@ Procedure Val (Const S : AnsiString; var D : Double; Var Code : Integer);
} }
Procedure Val (Const S : AnsiString; var E : Extended; Code : Integer); Procedure Val (Const S : AnsiString; var E : Extended; Code : Integer);
Procedure Val (Const S : AnsiString; var C : Cardinal; Code : Integer); Procedure Val (Const S : AnsiString; var C : Cardinal; Code : Integer);
Procedure Val (Const S : AnsiString; var L : Longint; Var Code : Integer); Procedure Val (Const S : AnsiString; var L : Longint; Var Code : Integer);
Procedure Val (Const S : AnsiString; var W : Word; Var Code : Integer); Procedure Val (Const S : AnsiString; var W : Word; Var Code : Integer);
Procedure Val (Const S : AnsiString; var I : Integer; Var Code : Integer); Procedure Val (Const S : AnsiString; var I : Integer; Var Code : Integer);
Procedure Val (Const S : AnsiString; var B : Byte; Var Code : Integer); Procedure Val (Const S : AnsiString; var B : Byte; Var Code : Integer);
Procedure Val (Const S : AnsiString; var SI : ShortInt; Var Code : Integer); Procedure Val (Const S : AnsiString; var SI : ShortInt; Var Code : Integer);
@ -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