diff options
| author | Alasdair Armstrong | 2020-01-16 19:14:22 +0000 |
|---|---|---|
| committer | Alasdair Armstrong | 2020-01-16 19:14:22 +0000 |
| commit | bc6b51d70a783df161f8fb43264ea1558ff37bac (patch) | |
| tree | 06cfe24052ab08f0268c116ce488be115c4e6af4 /src/jib | |
| parent | bc55a2c25d0f2f630acf457420d5b868d2855ebc (diff) | |
Allow effects on mappings
Diffstat (limited to 'src/jib')
| -rw-r--r-- | src/jib/jib_optimize.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/jib/jib_optimize.ml b/src/jib/jib_optimize.ml index 75ef8a19..874835b1 100644 --- a/src/jib/jib_optimize.ml +++ b/src/jib/jib_optimize.ml @@ -247,6 +247,7 @@ let ssa_name i = function | Name (id, _) -> Name (id, i) | Have_exception _ -> Have_exception i | Current_exception _ -> Current_exception i + | Throw_location _ -> Throw_location i | Return _ -> Return i let inline cdefs should_inline instrs = |