Browse Source

* fixed endianess ugliness (3636)

marco 20 years ago
parent
commit
01e26c39c6
1 changed files with 5 additions and 2 deletions
  1. 5 2
      packages/base/netdb/netdb.pp

+ 5 - 2
packages/base/netdb/netdb.pp

@@ -477,7 +477,7 @@ begin
     ID[1]:=Random(256);
     ID[1]:=Random(256);
     Flags1:=QF_RD;
     Flags1:=QF_RD;
     Flags2:=0;
     Flags2:=0;
-    qdcount:=1 shl 8;
+    qdcount:=htons(1); // was 1 shl 8;
     ancount:=0;
     ancount:=0;
     nscount:=0;
     nscount:=0;
     arcount:=0;
     arcount:=0;
@@ -1153,7 +1153,10 @@ end.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.11  2004-02-20 21:35:00  peter
+  Revision 1.12  2005-02-07 14:12:31  marco
+   * fixed endianess ugliness (3636)
+
+  Revision 1.11  2004/02/20 21:35:00  peter
     * 1.0.x fix
     * 1.0.x fix
 
 
   Revision 1.10  2004/01/24 12:23:10  michael
   Revision 1.10  2004/01/24 12:23:10  michael