Explorar o código

Unified definition of timespec

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7704 8c9fc860-2736-0410-a75d-ab315db34111
negelef %!s(int64=7) %!d(string=hai) anos
pai
achega
779b78bf99

+ 2 - 2
source/Generic.Darwin.I386.Unix.Mod

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

+ 2 - 2
source/Generic.Linux.AMD64.Unix.Mod

@@ -722,8 +722,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;

+ 2 - 2
source/Generic.Linux.I386.Unix.Mod

@@ -721,8 +721,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;

+ 2 - 2
source/Generic.Solaris.I386.Unix.Mod

@@ -739,8 +739,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;