Skip to content
Browse files

[update] cps: repairing stack traces

  • Loading branch information...
1 parent 8b6760b commit 9b6db66504f8407fb1299710608be3c0b80a8aae Valentin Gatien-Baron committed Jun 15, 2011
Showing with 4 additions and 0 deletions.
  1. +4 −0 qmlcps/qmlCpsRewriter.ml
View
4 qmlcps/qmlCpsRewriter.ml
@@ -1817,6 +1817,10 @@ let instrument_expr e =
let env = ref None in
let e = aux tra (Some env) e in
Q.Lambda (label, args, QC.directive (`cps_stack_lambda env) [e] [])
+ | Q.Directive (label,`partial_apply info,[Q.Apply (label2,e,el)],tyl) ->
+ let e = aux tra env e in
+ let el = List.map (aux tra env) el in
+ Q.Directive (label,`partial_apply info,[Q.Apply (label2,e,el)],tyl)
| Q.Apply (_, Q.Directive (_, `restricted_bypass _, _, _), _)
| Q.Apply (_, Q.Directive (_, `may_cps, _, _), _)
| Q.Apply (_, Q.Bypass _,_) -> tra env e

0 comments on commit 9b6db66

Please sign in to comment.
Something went wrong with that request. Please try again.