mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-12-27 00:40:26 +00:00
Code Issues 1 Releases Wiki Activity

Add length method ffi/jitfn abstract values.

Browse Source
This commit is contained in:
Calvin Rose 2022-12-04 10:27:28 -06:00
parent aa60c1f36a
commit 12286e4246
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
examples/jitfn/jitfn.janet
View File

@ -10,3 +10,4 @@
(def signature (ffi/signature :default :void)) (def signature (ffi/signature :default :void))
(ffi/call f signature) (ffi/call f signature)
(print "called a jitted function with FFI!") (print "called a jitted function with FFI!")
(print "machine code: " (describe (string/slice f)))

9
src/core/ffi.c
View File

@ -244,10 +244,17 @@ static JanetByteView janet_ffijit_getbytes(void *p, size_t s) {
return bytes; return bytes;
} }
static size_t janet_ffijit_length(void *p, size_t s) {
(void) s;
JanetFFIJittedFn *fn = p;
return fn->size;
}
const JanetAbstractType janet_type_ffijit = { const JanetAbstractType janet_type_ffijit = {
.name = "ffi/jitfn", .name = "ffi/jitfn",
.gc = janet_ffijit_gc, .gc = janet_ffijit_gc,
.bytes = janet_ffijit_getbytes .bytes = janet_ffijit_getbytes,
.length = janet_ffijit_length
}; };
typedef struct { typedef struct {