diff --git a/cig/cig.scm b/cig/cig.scm index 31ad5dd..b12aff6 100644 --- a/cig/cig.scm +++ b/cig/cig.scm @@ -167,6 +167,8 @@ ;; extensions by JMG for the new FFI (time_t #("time_t ~a" integer? "s48_extract_integer" #f)) + (clock_t #("clock_t ~a" integer? "s48_extract_fixnum" #f)) + (ssize_t #("ssize_t ~a" integer? "s48_extract_fixnum" #f)) (desc #("s48_value ~a" #f "" #f)) (string-desc #("s48_value ~a" string? "" #f)) @@ -218,6 +220,9 @@ ; Extension by JMG with the new FFI (time_t #("time_t ~a" "s48_enter_integer" #f #f #f)) + (clock_t #("clock_t ~a" "s48_enter_fixnum" #f #f #f)) + (ssize_t #("ssize_t ~a" "s48_enter_fixnum" #f #f #f)) + (desc #("s48_value ~a" "" #f #f #f)) (string-desc #("s48_value ~a" "" #f #f #f))