fix retval

[m6w6/ext-psi] / psis / time.psi

diff --git a/psis/time.psi b/psis/time.psi
index e49118545a9fae248e10e3b15d54b1729cfa884a..1281c51d988867b3eb624fdb3266e83ce4ae2423 100644 (file)
--- a/psis/time.psi
+++ b/psis/time.psi
@@ -1,3 +1,9 @@
+extern time_t time(time_t *t);
+function psi\time() : int {
+       let t = NULL;
+       return to_int(time);
+}
+

 extern int gettimeofday(struct timeval *tv, struct timezone *tz);
 function psi\gettimeofday(array &$tv = NULL, array &$tz = NULL) : int {
        let tv = calloc(1, struct timeval);
 extern int gettimeofday(struct timeval *tv, struct timezone *tz);
 function psi\gettimeofday(array &$tv = NULL, array &$tz = NULL) : int {
        let tv = calloc(1, struct timeval);