diff options
author | William S Fulton <wsf@fultondesigns.co.uk> | 2019-02-15 19:14:45 +0000 |
---|---|---|
committer | GitHub <noreply@github.com> | 2019-02-15 19:14:45 +0000 |
commit | 6522afe90a475d38e9b47583fad7b40904098aea (patch) | |
tree | 44598bf5bf4350c1d8f96105c48c7e6b351c0e68 /Examples/ocaml | |
parent | 1f4b3a455376d224bb7b719b74385ad9a34b5b13 (diff) | |
parent | 071803f0009dae51ecc07c6b0b80a0bcea70c2aa (diff) | |
download | swig-6522afe90a475d38e9b47583fad7b40904098aea.tar.gz |
Merge pull request #1471 from ZackerySpytz/OCaml-segfaults-list-args
[OCaml] Fix segfaults when too few arguments are passed to a function
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" |