paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-24 23:21:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed and removed some missing HASINLINE directives, needs more work

Browse Source 
git-svn-id: trunk@637 -
This commit is contained in:
florian 2005-07-17 08:21:17 +00:00
parent 1cecfcc09f
commit e686da2026
4 changed files with 15 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/macpas.pp
View File

@ -21,10 +21,8 @@ unit MacPas;
interface
{ Using inlining for small system functions/wrappers }
{$ifdef HASINLINE}
{$inline on}
{$define SYSTEMINLINE}
{$endif}
type
LongDouble = ValReal;

8
rtl/inc/sockets.inc
View File

@ -172,7 +172,7 @@ end;
type thostaddr= packed array[1..4] of byte;
function htonl( host : longint):longint; {$ifdef HASINLINE} inline; {$ENDIF}
function htonl( host : longint):longint; inline;
begin
{$ifdef FPC_BIG_ENDIAN}
@ -185,7 +185,7 @@ begin
{$endif}
end;
Function NToHl (Net : Longint) : Longint; {$ifdef HASINLINE} inline; {$ENDIF}
Function NToHl (Net : Longint) : Longint; inline;
begin
{$ifdef FPC_BIG_ENDIAN}
@ -198,7 +198,7 @@ begin
{$endif}
end;
function htons( host : word):word; {$ifdef HASINLINE} inline; {$ENDIF}
function htons( host : word):word; inline;
begin
{$ifdef FPC_BIG_ENDIAN}
@ -208,7 +208,7 @@ begin
{$endif}
end;
Function NToHs (Net : word):word;{$ifdef HASINLINE} inline; {$ENDIF}
Function NToHs (Net : word):word; inline;
begin
{$ifdef FPC_BIG_ENDIAN}

9
rtl/inc/socketsh.inc
View File

@ -12,7 +12,6 @@
**********************************************************************}
{$INLINE ON}
{$define HASINLINE}
Type
{$ifdef SOCK_HAS_SINLEN}
@ -201,10 +200,10 @@ Function Connect(Sock:longint;const addr:TInetSockAddr;var SockIn,SockOut:file):
{ Utility routines}
function htonl( host : longint):longint; {$ifdef HASINLINE} inline; {$endif}
Function NToHl( Net : Longint) : Longint; {$ifdef HASINLINE} inline; {$endif}
function htons( host : word):word; {$ifdef HASINLINE} inline; {$endif}
Function NToHs( Net : word):word; {$ifdef HASINLINE} inline; {$endif}
function htonl( host : longint):longint; inline;
Function NToHl( Net : Longint) : Longint; inline;
function htons( host : word):word; inline;
Function NToHs( Net : word):word; inline;
function NetAddrToStr (Entry : in_addr) : AnsiString;
function HostAddrToStr(Entry : in_addr) : AnsiString;

2
rtl/objpas/sysutils/sysutilh.inc
View File

@ -12,10 +12,8 @@
**********************************************************************}
{ Using inlining for small system functions/wrappers }
{$ifdef HASINLINE}
{$inline on}
{$define SYSUTILSINLINE}
{$endif}
{ Read date & Time function declarations }
{$i osutilsh.inc}