diff --git a/src/generators/hl2c.ml b/src/generators/hl2c.ml index 8c863f5535d..4f7c458a7b5 100644 --- a/src/generators/hl2c.ml +++ b/src/generators/hl2c.ml @@ -1144,7 +1144,7 @@ let make_types_idents htypes = in let hashes = Hashtbl.create 0 in let make_sign d = - let dig = Digest.to_hex (Digest.bytes (Marshal.to_bytes d [Marshal.Compat_32])) in + let dig = Digest.to_hex (Digest.bytes (Marshal.to_bytes d [Marshal.Closures])) in let h = String.sub dig 0 7 in let h = if Hashtbl.mem hashes h then dig else h in Hashtbl.add hashes h (); diff --git a/tests/misc/hl/projects/Issue11689/Main.hx b/tests/misc/hl/projects/Issue11689/Main.hx new file mode 100644 index 00000000000..f641935105d --- /dev/null +++ b/tests/misc/hl/projects/Issue11689/Main.hx @@ -0,0 +1,2 @@ +function foo(val:hl.Ref) {} +function main() {} \ No newline at end of file diff --git a/tests/misc/hl/projects/Issue11689/compile.hxml b/tests/misc/hl/projects/Issue11689/compile.hxml new file mode 100644 index 00000000000..0af07fc89cf --- /dev/null +++ b/tests/misc/hl/projects/Issue11689/compile.hxml @@ -0,0 +1,2 @@ +-m Main +-hl out/main.c \ No newline at end of file