Added time measurement library.

diff --git a/misc/timelib.h b/misc/timelib.h
new file mode 100644 (file)
index 0000000..ab37ec5
--- /dev/null
+++ b/misc/timelib.h
@@ -0,0 +1,5 @@
+#include <time.h>
+
+static inline int cpspc_time(void) {
+  return clock() * 1000 / CLOCKS_PER_SEC;
+}

diff --git a/misc/timelib.pas b/misc/timelib.pas
new file mode 100644 (file)
index 0000000..3e1dfcf
--- /dev/null
+++ b/misc/timelib.pas
@@ -0,0 +1,8 @@
+unit timelib;
+interface
+function cpspc_time:longint;cdecl;external;
+{$L timepas.o}
+{$LinkLib c}
+implementation
+begin
+end.

diff --git a/misc/timepas.c b/misc/timepas.c
new file mode 100644 (file)
index 0000000..000d22e
--- /dev/null
+++ b/misc/timepas.c
@@ -0,0 +1,6 @@
+#include <time.h>
+
+int cpspc_time(void)
+{
+  return clock() * 1000 / CLOCKS_PER_SEC;
+}

diff --git a/misc/timetest.c b/misc/timetest.c
new file mode 100644 (file)
index 0000000..36a0009
--- /dev/null
+++ b/misc/timetest.c
@@ -0,0 +1,9 @@
+#include <stdio.h>
+#include "timelib.h"
+
+int main(void)
+{
+  int i;
+  for (i = 0; i <100000000; i++);
+  printf("%d\n", cpspc_time());
+}

diff --git a/misc/timetest.pas b/misc/timetest.pas
new file mode 100644 (file)
index 0000000..0d996e5
--- /dev/null
+++ b/misc/timetest.pas
@@ -0,0 +1,6 @@
+uses timelib;
+var i:longint;
+begin
+for i:=1 to 100000000 do i := i;
+writeln(cpspc_time);
+end.