More deprecation warnings fixed.

This commit is contained in:
Dominik Picheta
2012-07-23 21:29:10 +01:00
parent 1be06ee2de
commit 3ffff9ec43
2 changed files with 10 additions and 4 deletions

View File

@@ -232,7 +232,9 @@ when isMainModule:
# check for new new connection & handle it
var list: seq[TSocket] = @[server.socket]
if select(list, 10) > 0:
var client = accept(server.socket)
var client: TSocket
new(client)
accept(server.socket, client)
try:
acceptRequest(server, client)
except:

View File

@@ -262,8 +262,9 @@ proc accept*(server: PAsyncSocket): PAsyncSocket {.deprecated.} =
## Equivalent to ``sockets.accept``.
##
## **Warning**: This is deprecated.
var (client, a) = server.acceptAddr()
return client
new(result)
var address = ""
server.acceptAddr(result, address)
proc newDispatcher*(): PDispatcher =
new(result)
@@ -435,7 +436,10 @@ when isMainModule:
proc testAccept(s: PAsyncSocket, arg: PObject) =
echo("Accepting client! " & $PMyArg(arg).val)
var (client, address) = s.acceptAddr()
var client: PAsyncSocket
new(client)
var address = ""
s.acceptAddr(client, address)
echo("Accepted ", address)
client.handleRead = testRead
var userArg: PIntType