浏览代码

Use proper file descriptor

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8478 8c9fc860-2736-0410-a75d-ab315db34111
negelef 6 年之前
父节点
当前提交
847ee274eb
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      source/Unix.StdIO.Mod

+ 2 - 2
source/Unix.StdIO.Mod

@@ -65,7 +65,7 @@ END Args;
 			BEGIN {EXCLUSIVE}
 				Counters.Inc (Activities.awaiting);
 				AWAIT (~read.ready);
-				read.result := Unix.read( 0, read.buffer, read.size );
+				read.result := Unix.read( Unix.stdin, read.buffer, read.size );
 				read.ready := TRUE;
 				Counters.Dec (Activities.awaiting);
 			END;
@@ -88,7 +88,7 @@ END Args;
 #ELSE
 
 	PROCEDURE Read (buffer: ADDRESS; size: SIZE): SIZE;
-	BEGIN RETURN Unix.read( 0, buffer, size );
+	BEGIN RETURN Unix.read( Unix.stdin, buffer, size );
 	END Read;
 
 #END