Merge branch 'ZackerySpytz-OCaml-dead-code-overloaded-funcs'

* ZackerySpytz-OCaml-dead-code-overloaded-funcs:
  [OCaml] Fix dead code generation in overloaded function wrappers
This commit is contained in:
William S Fulton 2019-01-19 23:03:07 +00:00
commit 65cab79071
4 changed files with 26 additions and 11 deletions

View file

@ -0,0 +1,11 @@
open Swig
open Overload_extend
let _ =
let f = new_Foo '() in
assert (f -> test () as int = 0);
assert (f -> test (3) as int = 1);
assert (f -> test ("hello") as int = 2);
assert (f -> test (3., 2.) as float = 5.);
assert (f -> test (3.) as float = 1003.)
;;

View file

@ -0,0 +1,7 @@
open Swig
open Overload_rename
let _ = new_Foo (C_float 1.)
let _ = new_Foo (C_list [ C_float 1. ; C_float 1. ])
let _ = new_Foo_int (C_list [ C_float 1. ; C_int 1 ])
let _ = new_Foo_int (C_list [ C_float 1. ; C_int 1 ; C_float 1. ])

View file

@ -0,0 +1,8 @@
open Swig
open Overload_subtype
let _ =
let f = new_Foo '() and b = new_Bar '() in
assert (_spam (f) as int = 1);
assert (_spam (b) as int = 2)
;;