diff options
| author | Pierre-Marie Pédrot | 2019-04-08 10:14:03 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-04-08 10:14:03 +0200 |
| commit | 81df7850d40273814fcf78cf6df9057f19fa9a8e (patch) | |
| tree | 9ef3b6559cd052152cd2896463795c66b7b8d146 /kernel | |
| parent | a4c4116207504b048863fb713699380326353fbf (diff) | |
| parent | 44a669e591ee00bcea65b229429dcb5d4d3515ec (diff) | |
Merge PR #9900: [native compiler] Fix critical bug with stuck primitive projections
Ack-by: SkySkimmer
Reviewed-by: Zimmi48
Ack-by: maximedenes
Reviewed-by: ppedrot
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/nativecode.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/nativecode.ml b/kernel/nativecode.ml index 2dab14e732..94ed288d2d 100644 --- a/kernel/nativecode.ml +++ b/kernel/nativecode.ml @@ -1958,7 +1958,7 @@ let compile_mind mb mind stack = let cargs = Array.init arity (fun i -> if Int.equal i proj_arg then Some ci_uid else None) in - let i = push_symbol (SymbProj (ind, j)) in + let i = push_symbol (SymbProj (ind, proj_arg)) in let accu = MLapp (MLprimitive Cast_accu, [|MLlocal cf_uid|]) in let accu_br = MLapp (MLprimitive Mk_proj, [|get_proj_code i;accu|]) in let code = MLmatch(asw,MLlocal cf_uid,accu_br,[|[((ind,1),cargs)],MLlocal ci_uid|]) in |