From 9d92942027df18b86bdbee1533e5dc8596265d19 Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Thu, 19 Mar 2015 21:07:37 +0400
Subject: [PATCH] htons moved to types; -- noch

---
 src/test/server/s.Mod     | 9 +--------
 src/test/server/types.Mod | 6 ++++++
 2 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/src/test/server/s.Mod b/src/test/server/s.Mod
index 5232f50e..0c559600 100644
--- a/src/test/server/s.Mod
+++ b/src/test/server/s.Mod
@@ -26,13 +26,6 @@ BEGIN
       
 END DoSmth;
 
-PROCEDURE htons(in: Int16; VAR out : Int16);
-BEGIN
-   out[0] := in[1];
-   out[1] := in[0];
-END htons;
-
-
 PROCEDURE ZeroByteArr(VAR a : ARRAY OF S.BYTE);
 VAR i : LONGINT;
 BEGIN
@@ -61,7 +54,7 @@ BEGIN
    
    types.IntegerToInt16(sockets.AfInet, afinet);
    types.IntegerToInt16(Port, port);
-   htons(port, port0); (* only necessary on little endian computers *)
+   types.htons(port, port0); (* only necessary on little endian computers *)
    ServAddr.SinFamily := afinet;
    ServAddr.SinPort := port0;
    ZeroByteArr(ServAddr.SinZero);
diff --git a/src/test/server/types.Mod b/src/test/server/types.Mod
index 57e24f4a..633e6b26 100644
--- a/src/test/server/types.Mod
+++ b/src/test/server/types.Mod
@@ -29,4 +29,10 @@ TYPE
       int16[1] := intarr[1];*) (* this will work for little endian -- noch *)
    END IntegerToInt16;
 
+   PROCEDURE htons*(in: Int16; VAR out : Int16);
+   BEGIN
+      out[0] := in[1];
+      out[1] := in[0];
+   END htons;
+
 END types.