paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +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
****************************************************************************}
{$ifndef RTLLITE}
function Hi(b : byte): byte;
begin
Hi := b shr 4
@ -241,6 +243,8 @@ Begin
End;
{$endif RTLLITE}
{$R-}
Function Random : real;
@ -258,9 +262,11 @@ End;
{$I math.inc}
{****************************************************************************
Memory Management
Memory Management
****************************************************************************}
{$ifndef RTLLITE}
Function Ptr(sel,off : Longint) : pointer;
Begin
sel:=0;
@ -287,8 +293,10 @@ Begin
Sseg:=0;
End;
{$endif RTLLITE}
{*****************************************************************************
Miscellaneous
Miscellaneous
*****************************************************************************}
@ -416,7 +424,11 @@ End;
{
$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
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 FillChar(Var x;count:Longint;Value:Char);
Procedure FillChar(Var x;count:Longint;Value:byte);
{$ifndef RTLLITE}
Procedure FillWord(Var x;count:Longint;Value:Word);
{$endif RTLLITE}
{****************************************************************************
Math Routines
Math Routines
****************************************************************************}
{$ifndef RTLLITE}
Function lo(w:Word):byte;
Function lo(l:Longint):Word;
Function lo(i:Integer):byte;
@ -114,6 +117,8 @@ Function hi(i:Integer):byte;
Function hi(l:Longint):Word;
Function Hi(B : Byte): byte;
{$endif RTLLITE}
Procedure Inc(Var i:cardinal);
Procedure Inc(Var i:Longint);
Procedure Inc(Var i:Integer);
@ -133,6 +138,8 @@ Procedure Dec(Var p:PChar);
Function Chr(b:byte):Char;
Function Length(s:string):byte;
{$ifndef RTLLITE}
Procedure Dec(Var i:cardinal;a:Longint);
Procedure Inc(Var i:cardinal;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:Longint):Longint;
{$endif RTLLITE}
Function Random(l:Longint):Longint;
Function Random:real;
Procedure Randomize;
@ -166,21 +175,24 @@ Function odd(l:Longint):Boolean;
{****************************************************************************
Memory management
Memory management
****************************************************************************}
Procedure getmem(Var p:pointer;Size:Longint);
Procedure freemem(Var p:pointer;Size:Longint);
Function memavail:Longint;
Function maxavail:Longint;
{$ifndef RTLLITE}
Function ptr(sel,off:Longint):pointer;
Function Addr (Var X):pointer;
Function Cseg:Word;
Function Dseg:Word;
Function Sseg:Word;
{$endif RTLLITE}
{****************************************************************************
PChar Handling
PChar Handling
****************************************************************************}
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 C : Cardinal; 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 L : Longint; 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 B : Byte; Var Code : Integer);
Procedure Val (Const S : AnsiString; var SI : ShortInt; Var Code : Integer);
@ -371,7 +383,11 @@ Procedure AddExitProc(Proc:TProcedure);
{
$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
Revision 1.10 1998/06/04 23:46:02 peter