Re: [fpc-devel]ipv6 resolving

[Johannes Berg]

Hi,

> Applied, thank you.

Thanks :)

> > And the test program needs my other patch with ipv6 structures to work.
> 
> I must have missed those. Can you please send them again ?
> (Unless someone else applied them already)

No, I don't think they're applied, see attached.
Could you also apply this:
--- rtl/inc/sockets.inc 22 Nov 2003 21:58:09 -0000      1.10
+++ rtl/inc/sockets.inc 23 Nov 2003 10:31:13 -0000
@@ -105,7 +105,7 @@
   FileRec(SockOut).Handle:=Sock;
   FileRec(SockOut).RecSize:=1;
   FileRec(SockOut).userdata[1]:=S_OUT;
-  FileRec(SockOut).Mode := fmAppend;
+  FileRec(SockOut).Mode := fmOutput;

I messed up with that before and Marco fixed sock2text but apparently
not sock2file. I thought fmAppend would be better, but apparently that
flag is not supposed to ever be set in such a structure.

Also, netdb needs cleaning up, I'll do that soon and send another patch
then. I also forgot to add CNAME records to the ipv4 functions (which
will be just a code copy).

johannes
-- 
http://www.sipsolutions.de/
GnuPG key: http://www.sipsolutions.de/keys/JohannesBerg.asc
  Key-ID: 9AB78CA5 Johannes Berg <[EMAIL PROTECTED]>
  Fingerprint = AD02 0176 4E29 C137 1DF6 08D2 FC44 CF86 9AB7 8CA5

Index: rtl/inc/socketsh.inc
===================================================================
RCS file: /FPC/CVS/fpc/rtl/inc/socketsh.inc,v
retrieving revision 1.11
diff -u -r1.11 socketsh.inc
--- rtl/inc/socketsh.inc	22 Nov 2003 16:28:56 -0000	1.11
+++ rtl/inc/socketsh.inc	23 Nov 2003 10:29:20 -0000
@@ -156,7 +156,33 @@
     port  :Word;
     addr  :Cardinal;
     pad   :array [1..8] of byte; { to get to the size of sockaddr... }
-    end;
+  end;
+
+  Tin6_addr = packed record
+  case byte of
+    0: (u6_addr8  : array[0..15] of byte);
+    1: (u6_addr16 : array[0..7] of Word);
+    2: (u6_addr32 : array[0..3] of Cardinal);
+    3: (s6_addr8  : array[0..15] of shortint);
+    4: (s6_addr   : array[0..15] of shortint);
+    5: (s6_addr16 : array[0..7] of smallint);
+    6: (s6_addr32 : array[0..3] of LongInt);
+  end;
+
+  TInetSockAddr6 = packed Record
+    {$ifdef BSD}  // as per RFC 2553
+      sin6_len   : byte;
+      sin6_family: byte;
+    {$ELSE}
+      sin6_family: word;
+    {$ENDIF}
+    sin6_port     : Word;
+    sin6_flowinfo : LongInt;
+    sin6_addr     : Tin6_addr;
+    sin6_scope_id : LongInt;
+  end;
+  sockaddr_in6 = TInetSockAddr6;
+  psockaddr_in6 = ^sockaddr_in6;
 
   TSockArray = Array[1..2] of Longint;
 

signature.asc
Description: This is a digitally signed message part