[Oberon] AosDNS.HostByName

[Dan Parnete]

Hi,

The last version of BB (20.07.05) have me a very strange error in 
HostByName, if the host name is an Utilities.String. This didn't 
happened until 03.06.05 version.

VAR host: Utilities.String;
       serverIP: AosIP.Adr;
       res: LONGINT;
BEGIN
       host := Utilities.NewString("192.168.1.120");
       AosDNS.HostByName(host^, serverIP, res)

If I use host like ARRAY OF CHAR, or write directly the string:
        AosDNS.HostByName("192.168.1.120", serverIP, res)
it works fine. But using the Utilities.String gave this trap:

[1] TRAP 5 PL 3 implicit type guard failed Aos 20.07.05
 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 
FPU=00000000
 EIP=014E42E8 ESI=03EFB815 EDI=9025FCF9 ESP=9025FCE8 CR2=900BCFFC 
PID=00000000
 EAX=00000000 EBX=03EFB7F8 ECX=00000000 EDX=03EFB808 CR3=0FFEE000 
LCK=00000000
 EBP=9025FF88 FS:=00000000 GS:=00000000 ERR=00000000 CR4=00000240 
TMR=002EB1FF
 EFLAGS: cPazstIdo iopl3 {1..2, 9, 12..13}
Process: 2092 run 0 3 03EFB250:AosCommands.Runner 
AosCommands.Runner. at Body pc=529 {0, 28}
AosDNS.HostByName pc=6192
  hostname=""!  adr=Rec.00000014H  res=0  buf=""...  name=""...  timeout=0
  c=00000000H  dummy=""
State AosDNS:
  @Self=014E2790H  domain="residential.fw"...  id=0  cache=014E5760H
  lastCleanup=6764  serverlist=014E5630H  NDNSReceived=0  NDNSSent=0
  NDNSMismatchID=0  NDNSError=0
Test.Run pc=68
  ptr=03ED9680H  buf=""  i=0  l=0  res=0  text=00000000H  serverIP=0
  host=03EFB7F8H
AosCommands.Runner. at Body pc=1076
  @Self=03EFB250H

Thanks,
Dan Parnete