소스 검색

* inline problems fixed

marco 21 년 전
부모
커밋
0624b9fa92
2개의 변경된 파일12개의 추가작업 그리고 3개의 파일을 삭제
  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
 {$ifdef FPC_BIG_ENDIAN}
-  htonl:=host;
+  htons:=host;
 {$else}
   htons:=swap(host);
 {$endif}
@@ -221,7 +221,10 @@ end;
 
 {
   $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
 
   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}
 {$DEFINE SOCK_HAS_SINLEN}		// BSD definition of scoketaddr
@@ -191,7 +194,10 @@ Function NToHs (Net : word):word;         {$ifndef ver1_0} inline; {$endif}
 
 {
   $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
 
   Revision 1.14  2004/03/16 19:15:57  marco