paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 03:10:42 +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

6
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}
{$inline on}
{$define SYSTEMINLINE}
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}

15
rtl/inc/socketsh.inc
View File

@ -12,7 +12,6 @@
**********************************************************************}
{$INLINE ON}
{$define HASINLINE}
Type
{$ifdef SOCK_HAS_SINLEN}
@ -91,7 +90,7 @@ Type
sin_port: cushort;
sin_addr: in_addr;
sin_zero: packed array[0..7] of Byte);
end;
end;
PSockAddr = ^TSockAddr;
Sockaddr = TSockAddr; // Kylix compat
@ -143,7 +142,7 @@ Type
end;
sockaddr_in6 = TInetSockAddr6;
psockaddr_in6 = ^sockaddr_in6;
TSockPairArray = Array[0..1] of Longint;
@ -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;
@ -225,7 +224,7 @@ function StrToHostAddr6(IP : String) : Tin6_addr; // not implemented?!?
function NetAddrToStr6 (Entry: Tin6_addr) : AnsiString;
function StrToNetAddr6 (IP : AnsiString) : TIn6_Addr;
CONST
CONST
NoAddress : in_addr = (s_addr:0);
NoNet : in_addr = (s_addr:0);
NoAddress6: Tin6_addr = (u6_addr16:(0,0,0,0,0,0,0,0));

6
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}
{$inline on}
{$define SYSUTILSINLINE}
{ Read date & Time function declarations }
{$i osutilsh.inc}