mirror of
https://gitlab.alpinelinux.org/alpine/aports.git
synced 2025-07-16 04:35:13 +03:00
24 lines
620 B
Diff
24 lines
620 B
Diff
--- a/pocaml_c.c
|
|
+++ b/pocaml_c.c
|
|
@@ -183,12 +183,12 @@
|
|
CAMLparam1 (svv);
|
|
SV *sv = Sv_val (svv);
|
|
|
|
+ if (SvROK(sv)) CAMLreturn (Val_int (4));
|
|
switch (SvTYPE (sv))
|
|
{
|
|
case SVt_IV: CAMLreturn (Val_int (1));
|
|
case SVt_NV: CAMLreturn (Val_int (2));
|
|
case SVt_PV: CAMLreturn (Val_int (3));
|
|
- case SVt_RV: CAMLreturn (Val_int (4));
|
|
case SVt_PVAV: CAMLreturn (Val_int (5));
|
|
case SVt_PVHV: CAMLreturn (Val_int (6));
|
|
case SVt_PVCV: CAMLreturn (Val_int (7));
|
|
@@ -266,7 +266,6 @@
|
|
case SVt_IV:
|
|
case SVt_NV:
|
|
case SVt_PV:
|
|
- case SVt_RV:
|
|
case SVt_PVMG:
|
|
break;
|
|
default:
|