git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7704 8c9fc860-2736-0410-a75d-ab315db34111
@@ -733,8 +733,8 @@ VAR
PROCEDURE ThrSleep*(ms: LONGINT);
VAR
sltime,rem: RECORD
- tv_sec: WORD; (* seconds *)
- tv_nsec: WORD; (* nanoseconds *)
+ tv_sec: LONGWORD; (* seconds *)
+ tv_nsec: LONGWORD; (* nanoseconds *)
END;
BEGIN
sltime.tv_sec := ms DIV 1000;
@@ -722,8 +722,8 @@ VAR
@@ -721,8 +721,8 @@ VAR
@@ -739,8 +739,8 @@ VAR
PROCEDURE ThrSleep*( ms: LONGINT );
sltime, rem: RECORD