Explorar o código

* inline problems fixed

marco %!s(int64=21) %!d(string=hai) anos
pai
achega
0624b9fa92
Modificáronse 2 ficheiros con 12 adicións e 3 borrados
  1. 5 2
      rtl/inc/sockets.inc
  2. 7 1
      rtl/inc/socketsh.inc

+ 5 - 2
rtl/inc/sockets.inc

@@ -203,7 +203,7 @@ function htons( host : word):word; {$ifndef VER1_0} inline; {$ENDIF}
 
 
 begin
 begin
 {$ifdef FPC_BIG_ENDIAN}
 {$ifdef FPC_BIG_ENDIAN}
-  htonl:=host;
+  htons:=host;
 {$else}
 {$else}
   htons:=swap(host);
   htons:=swap(host);
 {$endif}
 {$endif}
@@ -221,7 +221,10 @@ end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.12  2004-11-01 16:23:15  marco
+  Revision 1.13  2004-11-01 17:29:47  marco
+   * inline problems fixed
+
+  Revision 1.12  2004/11/01 16:23:15  marco
    * htons etc
    * htons etc
 
 
   Revision 1.11  2003/11/23 10:57:15  michael
   Revision 1.11  2003/11/23 10:57:15  michael

+ 7 - 1
rtl/inc/socketsh.inc

@@ -12,6 +12,9 @@
 
 
  **********************************************************************}
  **********************************************************************}
 
 
+{$IFNDEF ver1_0}
+  {$INLINE ON}
+[$ENDIF}
 
 
 {$ifdef FreeBSD}
 {$ifdef FreeBSD}
 {$DEFINE SOCK_HAS_SINLEN}		// BSD definition of scoketaddr
 {$DEFINE SOCK_HAS_SINLEN}		// BSD definition of scoketaddr
@@ -191,7 +194,10 @@ Function NToHs (Net : word):word;         {$ifndef ver1_0} inline; {$endif}
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.15  2004-11-01 16:23:15  marco
+  Revision 1.16  2004-11-01 17:29:47  marco
+   * inline problems fixed
+
+  Revision 1.15  2004/11/01 16:23:15  marco
    * htons etc
    * htons etc
 
 
   Revision 1.14  2004/03/16 19:15:57  marco
   Revision 1.14  2004/03/16 19:15:57  marco