1 files changed, 55 insertions, 0 deletions
diff --git a/contrib/ntp/util/testrs6000.c b/contrib/ntp/util/testrs6000.c
new file mode 100644
index 0000000..e4d939a
--- /dev/null
+++ b/contrib/ntp/util/testrs6000.c
@@ -0,0 +1,55 @@
+/* Checks for the RS/6000 AIX adjtime() bug, in which if a negative
+ * offset is given, the system gets messed up and never completes the
+ * adjustment.  If the problem is fixed, this program will print the
+ * time, sit there for 10 seconds, and exit.  If the problem isn't fixed,
+ * the program will print an occasional "result=nnnnnn" (the residual
+ * slew from adjtime()).
+ *
+ * Compile this with bsdcc and run it as root!
+ */
+#include <signal.h>
+#include <sys/time.h>
+#include <time.h>
+#include <stdio.h>
+
+int timeout();
+struct timeval adjustment, result;
+
+int
+main (
+	int argc,
+	char *argv[]
+	)
+{
+	struct itimerval value, oldvalue;
+	int i;
+	time_t curtime;
+
+	curtime = time(0);
+	printf("Starting: %s", ctime(&curtime));
+	value.it_interval.tv_sec = value.it_value.tv_sec = 1;
+	value.it_interval.tv_usec = value.it_value.tv_usec = 0;
+	adjustment.tv_sec = 0;
+	adjustment.tv_usec = -2000;
+	signal(SIGALRM, timeout);
+	setitimer(ITIMER_REAL, &value, &oldvalue);
+	for (i=0; i<10; i++) {
+		pause();
+	}
+}
+
+int
+timeout(
+	int sig,
+	int code,
+	struct sigcontext *scp
+	)
+{
+	signal (SIGALRM, timeout);
+	if (adjtime(&adjustment, &result)) 
+	    printf("adjtime call failed\n");
+	if (result.tv_sec != 0 || result.tv_usec != 0) {
+		printf("result.u = %d.%06.6d  ", (int) result.tv_sec,
+		       (int) result.tv_usec);
+	}
+}