paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 23:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed rtllite define

Browse Source
This commit is contained in:
peter 2001-04-13 18:06:28 +00:00
parent 5dbe3bba52
commit 22db4256ce
3 changed files with 12 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/generic.inc
View File

@ -66,8 +66,6 @@ end;
{$endif ndef FPC_SYSTEM_HAS_FILLCHAR}
{$ifndef RTLLITE}
{$ifndef FPC_SYSTEM_HAS_FILLBYTE}
procedure FillByte (var x;count : longint;value : byte );
begin
@ -314,8 +312,6 @@ begin
end;
{$endif ndef FPC_SYSTEM_HAS_COMPARECHAR0}
{$endif ndef RTLLITE}
{****************************************************************************
Object Helpers
@ -777,7 +773,10 @@ end;
{
$Log$
Revision 1.7 2001-03-05 17:10:40 jonas
Revision 1.8 2001-04-13 18:06:28 peter
* removed rtllite define
Revision 1.7 2001/03/05 17:10:40 jonas
* changed typecast in FPC_STR_TO_CHARARRAY so that no temp ansistring is
generated anymore (merged)

9
rtl/inc/sstrings.inc
View File

@ -208,8 +208,6 @@ begin
end;
{$ifndef RTLLITE}
function lowercase(c : char) : char;
{$IFDEF IBM_CHAR_SET}
var
@ -270,8 +268,6 @@ begin
end;
end;
{$endif RTLLITE}
function space (b : byte): shortstring;
begin
@ -550,7 +546,10 @@ end;
{
$Log$
Revision 1.9 2001-03-03 12:38:53 jonas
Revision 1.10 2001-04-13 18:06:28 peter
* removed rtllite define
Revision 1.9 2001/03/03 12:38:53 jonas
* made val for longints a bit faster
Revision 1.8 2000/12/09 20:52:41 florian

12
rtl/inc/system.inc
View File

@ -110,8 +110,6 @@ Procedure Rewrite(var f : TypedFile); [INTERNPROC: In_Rewrite_TypedFile];
Math Routines
****************************************************************************}
{$ifndef RTLLITE}
function Hi(b : byte): byte;
begin
Hi := b shr 4
@ -152,7 +150,6 @@ Begin
Swap:=(X and $ffffffff) shl 32 + (X shr 32);
End;
{$endif RTLLITE}
{ Include processor specific routines }
{$I math.inc}
@ -278,8 +275,6 @@ end;
Memory Management
****************************************************************************}
{$ifndef RTLLITE}
Function Ptr(sel,off : Longint) : farpointer;[internconst:in_const_ptr];
Begin
ptr:=farpointer((sel shl 4)+off);
@ -300,8 +295,6 @@ Begin
Sseg:=0;
End;
{$endif RTLLITE}
{*****************************************************************************
Directory support.
@ -643,7 +636,10 @@ end;
{
$Log$
Revision 1.11 2000-12-16 15:56:19 jonas
Revision 1.12 2001-04-13 18:06:28 peter
* removed rtllite define
Revision 1.11 2000/12/16 15:56:19 jonas
- removed all ifdef cardinalmulfix code
Revision 1.10 2000/11/13 14:47:46 jonas