/[lcore]/trunk/dnswin.pas
ViewVC logotype

Diff of /trunk/dnswin.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 125 by beware, Thu Jul 4 00:25:32 2013 UTC revision 146 by beware, Mon Feb 6 11:53:26 2017 UTC
# Line 110  Line 110 
110    
111        getmem(output,sizeof(taddrinfo));        getmem(output,sizeof(taddrinfo));
112        if assigned(prev) then prev.ai_next := output;        if assigned(prev) then prev.ai_next := output;
113        getmem(output.ai_addr,sizeof(tinetsockaddr));        getmem(output.ai_addr,sizeof(tlinetsockaddr4));
114        if servname <> nil then output.ai_addr.InAddr.port := htons(strtoint(servname)) else output.ai_addr.InAddr.port := 0;        if servname <> nil then output.ai_addr.InAddr.port := htons(strtoint(servname)) else output.ai_addr.InAddr.port := 0;
115        output.ai_addr.InAddr.addr := longint(addrlist^^);        output.ai_addr.InAddr.addr := longint(addrlist^^);
116        inc(integer(addrlist),4);        inc(integer(addrlist),4);
# Line 118  Line 118 
118        output.ai_family := af_inet;        output.ai_family := af_inet;
119        output.ai_socktype := 0;        output.ai_socktype := 0;
120        output.ai_protocol := 0;        output.ai_protocol := 0;
121        output.ai_addrlen := sizeof(tinetsockaddr);        output.ai_addrlen := sizeof(tlinetsockaddr4);
122        output.ai_canonname := nil;        output.ai_canonname := nil;
123        output.ai_next := nil;        output.ai_next := nil;
124        prev := output;        prev := output;

Legend:
Removed from v.125  
changed lines
  Added in v.146

No admin address has been configured">No admin address has been configured
ViewVC Help
Powered by ViewVC 1.1.22