071803f000
Prevent segfaults when too few arguments are passed to a function. Length checks are not needed for the wrappers of overloaded functions -- the generated dispatch function already checks. Add default_args_runme.ml. Fix minor errors in some runtime tests. Extra args were being passed in some cases.
17 lines
410 B
OCaml
17 lines
410 B
OCaml
open Swig
|
|
open Cpp_nodefault
|
|
|
|
let foo1 = new_Foo '(1, 2)
|
|
let _ = foo1 -> "[a]" (5)
|
|
let _ = assert ((foo1 -> "[a]" () as int) = 5)
|
|
|
|
let foo2 = _create '(1, 2)
|
|
let _ = _consume '(foo1,foo2)
|
|
|
|
let bar1 = new_Bar '()
|
|
let gvar = _gvar '()
|
|
let args = (C_list [ gvar ; foo2 ])
|
|
let _ = bar1 -> "consume" (args)
|
|
let foo3 = bar1 -> "create" (1, 2)
|
|
let _ = foo3 -> "[a]" (6)
|
|
let _ = assert ((foo3 -> "[a]" () as int) = 6)
|