vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 06:22:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

htons moved to types; -- noch

Browse source
This commit is contained in:
norayr 2015-03-19 21:07:37 +04:00
parent b080951180
commit 9d92942027
2 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/test/server/s.Mod
View file

@ -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);

6
src/test/server/types.Mod
View file

@ -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.