diff options
author | Zackery Spytz <zspytz@gmail.com> | 2019-02-15 01:17:15 -0700 |
---|---|---|
committer | Zackery Spytz <zspytz@gmail.com> | 2019-02-15 01:17:15 -0700 |
commit | 071803f0009dae51ecc07c6b0b80a0bcea70c2aa (patch) | |
tree | 7095ebdcde34ac5a39bfd2760164bb7161acff0c /Examples/ocaml | |
parent | 7b0402f89bb034a60041c1330dcc62ff6b5cc95a (diff) | |
download | swig-071803f0009dae51ecc07c6b0b80a0bcea70c2aa.tar.gz |
[OCaml] Fix segfaults when too few arguments are passed to a function
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.
Diffstat (limited to 'Examples/ocaml')
-rw-r--r-- | Examples/ocaml/callback/runme.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Examples/ocaml/callback/runme.ml b/Examples/ocaml/callback/runme.ml index a7d705241..ddc974984 100644 --- a/Examples/ocaml/callback/runme.ml +++ b/Examples/ocaml/callback/runme.ml @@ -18,7 +18,7 @@ let _ = print_endline "----------------------------------------" let callback = new_Callback '() let _ = caller -> "setCallback" (callback) let _ = caller -> "call" () -let _ = caller -> "delCallback" (0) +let _ = caller -> "delCallback" () let _ = print_endline "\nAdding and calling an OCaml callback" let _ = print_endline "------------------------------------" @@ -26,5 +26,5 @@ let _ = print_endline "------------------------------------" let callback = new_derived_object new_Callback (new_OCamlCallback) '() let _ = caller -> "setCallback" (callback) let _ = caller -> "call" () -let _ = caller -> "delCallback" (0) +let _ = caller -> "delCallback" () let _ = print_endline "\nOCaml exit" |