* Remove unused procedure.

git-svn-id: trunk@5976 -

tests/tbs/tb0524.pp

@@ -1,14 +1,9 @@
-program tb0523;
+program tb0524;
 
-uses sockets,baseunix;
+uses sockets;
 
 const port=6667;
 
- function rawport_to_netport(const raw_port:word):word;
- begin
-  rawport_to_netport := swap(raw_port);
- end;
-
 procedure do_server;
 
 var s,t:string;