hyung-hwan/moo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

enhanced LONGLONG argument handling in mod/ffi.c

Browse Source
This commit is contained in:
hyunghwan.chung
2019-08-10 17:36:34 +00:00
parent 3f2e39cf44
commit 7c88b00952
2 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
moo/kernel/FFI.moo
View File

@ -35,7 +35,7 @@ class FFI(Object)
x := self.ffi open(name).
//(x isError) ifTrue: [^x].
if (x isError) { FFIException signal: ('Unable to open %s' strfmt(name)) }.
if (x isError) { FFIException signal: ('Unable to open %O' strfmt(name)) }.
^self.
}
@ -51,7 +51,7 @@ class FFI(Object)
/* f := self.funcs at: name ifAbsent: [
f := self.ffi getsym(name).
if (f isError) { FFIException signal: ('Unable to find %s' strfmt(name)) }.
if (f isError) { FFIException signal: ('Unable to find %O' strfmt(name)) }.
self.funcs at: name put: f.
f. // need this as at:put: returns an association
]. */
@ -60,12 +60,12 @@ class FFI(Object)
if (f isNil)
{
f := self.ffi getsym(name).
if (f isError) { FFIException signal: ('Unable to find %s' strfmt(name)) }.
if (f isError) { FFIException signal: ('Unable to find %O' strfmt(name)) }.
self.funcs at: name put: f.
}.
rc := self.ffi call(f, sig, args).
if (rc isError) { FFIException signal: ('Unable to call %s' strfmt(name)) }.
if (rc isError) { FFIException signal: ('Unable to call %O' strfmt(name)) }.
^rc.
}