aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGraydon Hoare <[email protected]>2010-07-02 16:42:42 -0700
committerGraydon Hoare <[email protected]>2010-07-02 16:42:42 -0700
commit3070725cce3e9c3ed8cc11c172f94bf4e84c813a (patch)
tree80ae03c51a510b70cef338ffd7414ce07dd4410f /src
parentMerge branch 'master' of [email protected]:graydon/rust into exterior_and_mutabl... (diff)
downloadrust-3070725cce3e9c3ed8cc11c172f94bf4e84c813a.tar.xz
rust-3070725cce3e9c3ed8cc11c172f94bf4e84c813a.zip
Simplify type before deciding how to free it. Hint: calling free() on a running task is usually a bad idea.
Diffstat (limited to 'src')
-rw-r--r--src/boot/me/trans.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml
index abeff66e..7cefa5af 100644
--- a/src/boot/me/trans.ml
+++ b/src/boot/me/trans.ml
@@ -2616,7 +2616,7 @@ let trans_visitor
(cell:Il.cell)
(curr_iso:Ast.ty_iso option)
: unit =
- match ty with
+ match simplified_ty ty with
Ast.TY_port _ -> trans_del_port cell
| Ast.TY_chan _ -> trans_del_chan cell
| Ast.TY_task -> trans_kill_task cell