[Oberon] AosTCPServices on WinAos

Dan Parnete parnete at aladata.it
Wed Aug 13 18:37:19 CEST 2003


Felix Friedrich wrote:

> Nevertheless I have a patch for the reported problem.
>
> In Module Win32.AosTCP.Mod replace the method Connection.Accept by the 
> following (the first line had been misssing):
>
> PROCEDURE Accept*( VAR client: Connection;  VAR res: LONGINT );
> VAR resi: INTEGER;
> BEGIN
>         IF client=NIL THEN NEW(client) END;
>         AosWinsock.Accept( c, client.c, resi );
>         IF resi = 0 THEN res := Ok ELSE res := unknown END;
>         IF trace THEN
>         AosOut.Enter;  AosOut.String( "AosTCP.Accept :" );  
> AosOut.String( "(" );  AosOut.Int( res, 1 );
>         AosOut.String( ")" );  AosOut.Exit
>         END;
> END Accept;
>
> With the modified method, your module compiles and runs without the 
> TRAP. But I can't tell if the connections really run.
>
> Felix.
>
Thank you Felix.,
In fact, with the modified method it runs without TRAP, bat the 
connection doesn't work. I didn't found a solution so far, but I will 
turn back on it later.

Dan Parnete




More information about the Oberon mailing list