diff options
Diffstat (limited to 'bytecomp/translcore.ml')
| -rw-r--r-- | bytecomp/translcore.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/bytecomp/translcore.ml b/bytecomp/translcore.ml index fd633e1191..733740e3a2 100644 --- a/bytecomp/translcore.ml +++ b/bytecomp/translcore.ml @@ -642,7 +642,8 @@ let primitive_is_ccall = function (* Determine if a primitive is a Pccall or will be turned later into a C function call that may raise an exception *) | Pccall _ | Pstringrefs | Pstringsets | Parrayrefs _ | Parraysets _ | - Pbigarrayref _ | Pbigarrayset _ | Pduprecord _ -> true + Pbigarrayref _ | Pbigarrayset _ | Pduprecord _ | Pdirapply _ | + Prevapply _ -> true | _ -> false (* Assertions *) |