X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/d0705a212a4b27b3cf9a3aaf007db8b6db443092..refs/heads/delphi2010:/dnscore.pas

diff --git a/dnscore.pas b/dnscore.pas
index 86cad69..d0dbbf0 100644
--- a/dnscore.pas
+++ b/dnscore.pas
@@ -28,7 +28,7 @@
   when a packet is received the application should put the packet in
   recvbuf/recvbuflen , set state.parsepacket and call state_process again
 
-  once the app gets action_done it can determine sucess or failure in the
+  once the app gets action_done it can determine success or failure in the
   following ways.
 
   on failure state.resultstr will be an empty string and state.resultbin will
@@ -367,7 +367,7 @@ begin
           failurereason := 'decoding name: got out of range2';
           exit;
         end;
-        result := result + char(arr[a]);
+        result := result + ansichar(arr[a]);
       end;
       inc(numread,b+1);
 
@@ -626,18 +626,18 @@ end;
   type
     tip_addr_string=packed record
       Next :pointer;
-      IpAddress : array[0..15] of char;
-      ipmask    : array[0..15] of char;
+      IpAddress : array[0..15] of ansichar;
+      ipmask    : array[0..15] of ansichar;
       context   : dword;
     end;
     pip_addr_string=^tip_addr_string;
     tFIXED_INFO=packed record
-       HostName         : array[0..MAX_HOSTNAME_LEN-1] of char;
-       DomainName       : array[0..MAX_DOMAIN_NAME_LEN-1] of char;
+       HostName         : array[0..MAX_HOSTNAME_LEN-1] of ansichar;
+       DomainName       : array[0..MAX_DOMAIN_NAME_LEN-1] of ansichar;
        currentdnsserver : pip_addr_string;
        dnsserverlist    : tip_addr_string;
        nodetype         : longint;
-       ScopeId          : array[0..MAX_SCOPE_ID_LEN + 4] of char;
+       ScopeId          : array[0..MAX_SCOPE_ID_LEN + 4] of ansichar;
        enablerouting    : longbool;
        enableproxy      : longbool;
        enabledns        : longbool;