ソースを参照

SET -> SET32

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8634 8c9fc860-2736-0410-a75d-ab315db34111
eth.guenter 6 年 前
コミット
654f09b4bd
1 ファイル変更2 行追加2 行削除
  1. 2 2
      source/Unix.Sockets.Mod

+ 2 - 2
source/Unix.Sockets.Mod

@@ -309,7 +309,7 @@ VAR
 	PROCEDURE Requested*( s: LONGINT ): BOOLEAN;
 	CONST
 		SLen = Unix.FdSetLen;
-		SetBits = SIZEOF( SET ) * 8;
+		SetBits = SIZEOF( SET32 ) * 8;
 	VAR 
 		res, i: LONGINT;
 		readfds: Unix.FdSet;
@@ -326,7 +326,7 @@ VAR
 	PROCEDURE AwaitPacket*( s: LONGINT; ms: LONGINT ): BOOLEAN;
 	CONST
 		SLen = Unix.FdSetLen;
-		SetBits = SIZEOF( SET ) * 8;
+		SetBits = SIZEOF( SET32 ) * 8;
 	VAR 
 		res, err, i: LONGINT;
 		readfds: Unix.FdSet;