===================================================================
RCS file: /cvs/djgpp/djgpp/src/libc/dos/dos/delay.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -p -u -r1.1 -r1.2
--- djgpp/src/libc/dos/dos/delay.c	1995/03/21 07:35:38	1.1
+++ /cvs/djgpp/djgpp/src/libc/dos/dos/delay.c	2002/12/14 12:55:43	1.2
@@ -1,10 +1,14 @@
+/* Copyright (C) 2002 DJ Delorie, see COPYING.DJ for details */
 /* Copyright (C) 1995 DJ Delorie, see COPYING.DJ for details */
 #include <dos.h>
 #include <dpmi.h>
 
+#define TICK_PER_DAY (24*60*60*10000/182)
+
 void delay(unsigned msec)
 {
   __dpmi_regs r;
+
   while (msec)
   {
     unsigned usec;
@@ -16,6 +20,45 @@ void delay(unsigned msec)
     r.x.cx = usec>>16;
     r.x.dx = usec & 0xffff;
     __dpmi_int(0x15, &r);
-    msec -= msec_this;
+    if ((r.x.flags & 1) || (r.h.ah == 0x83))
+    {
+      /* INT 15 FAILED, so fall back to the Time Of Day Tick */
+      unsigned long start_tick;
+      unsigned long end_tick;
+ 
+      r.h.ah = 0x00;
+      __dpmi_int(0x1A, &r);
+ 
+      start_tick = (r.x.cx << 16) + (r.x.dx & 0xffff);
+      end_tick = (msec*182)/10000 + start_tick;
+ 
+      if ((msec%10000/182) > (5000/182)) /* Manual round ticks */
+      {
+	end_tick++;
+      }
+      if (end_tick > TICK_PER_DAY)  /* Tick time past midnight */
+      {
+	/* check for midnight */
+	while (r.h.al == 0)
+	{
+	  r.h.ah = 0x00;
+	  __dpmi_int(0x1A, &r);
+	  __dpmi_yield();
+	}
+	end_tick = end_tick - TICK_PER_DAY;
+      }
+ 
+      while (((r.x.cx << 16) + (r.x.dx & 0xffffUL)) <= end_tick)
+      {
+	r.h.ah = 0x00;
+	__dpmi_int(0x1A, &r);
+	__dpmi_yield();
+      }
+      msec = 0;  /* waited the required time */
+    }
+    else
+    {
+      msec -= msec_this;
+    }
   }
 }