diff options
| author | Gregory Malecha | 2015-11-09 16:22:18 -0800 |
|---|---|---|
| committer | Maxime Dénès | 2015-12-09 14:25:56 +0100 |
| commit | 8e7803224eeb32e83600905c2c855e32e7bf8ffb (patch) | |
| tree | 39090b309bc28f3bd2d9b59b62c43c9b656510a0 /kernel/cbytegen.ml | |
| parent | 11eedd379d4b27e73a1999c0aacc2056311e8ba9 (diff) | |
bug fixes to vm computation + test cases.
Diffstat (limited to 'kernel/cbytegen.ml')
| -rw-r--r-- | kernel/cbytegen.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/cbytegen.ml b/kernel/cbytegen.ml index 1f7cc3c7a6..67745d887b 100644 --- a/kernel/cbytegen.ml +++ b/kernel/cbytegen.ml @@ -175,7 +175,7 @@ let comp_env_cofix ndef arity rfv = let push_param n sz r = { r with nb_stack = r.nb_stack + n; - in_stack = add_param n (sz - r.nb_uni_stack) r.in_stack } + in_stack = add_param n sz r.in_stack } (* [push_local sz r] add a new variable on the stack at position [sz] *) let push_local sz r = |