--- init.c~1 2006-02-22 17:56:04.000000000 +0000
+++ init.c 2006-02-22 18:34:26.000000000 +0000
@@ -1831,6 +1831,37 @@
__gnat_handler_installed = 1;
}
+#elif defined (__DJGPP__)
+
+/***************************************/
+/* FIXME: this is only a draft version */
+/***************************************/
+
+struct timestruc_t
+{
+ time_t tv_sec;
+ long tv_nsec;
+};
+
+
+int
+nanosleep (struct timestruc_t *Rqtp, struct timestruc_t *Rmtp);
+
+int
+nanosleep (struct timestruc_t *Rqtp, struct timestruc_t *Rmtp)
+{
+ usleep (1000000*Rqtp->tv_sec+Rqtp->tv_nsec/1000);
+ if (Rmtp) { Rmtp->tv_sec = Rmtp->tv_nsec=0; }
+ return 0;
+}
+
+
+void
+__gnat_install_handler ()
+{
+ __gnat_handler_installed = 1;
+}
+
#else
/* For all other versions of GNAT, the handler does nothing */
syntax highlighted by Code2HTML, v. 0.9.1