|
@@ -739,8 +739,8 @@ VAR
|
|
PROCEDURE ThrSleep*( ms: LONGINT );
|
|
PROCEDURE ThrSleep*( ms: LONGINT );
|
|
VAR
|
|
VAR
|
|
sltime, rem: RECORD
|
|
sltime, rem: RECORD
|
|
- tv_sec: WORD; (* seconds *)
|
|
|
|
- tv_nsec: WORD; (* nanoseconds *)
|
|
|
|
|
|
+ tv_sec: LONGWORD; (* seconds *)
|
|
|
|
+ tv_nsec: LONGWORD; (* nanoseconds *)
|
|
END;
|
|
END;
|
|
BEGIN
|
|
BEGIN
|
|
sltime.tv_sec := ms DIV 1000;
|
|
sltime.tv_sec := ms DIV 1000;
|