Commit d294b94c authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2004-03-15 14:39:40 by afrisch] Accessing globals during evaluation...

Original author: afrisch
Date: 2004-03-15 14:39:40+00:00
parent ebf672ce
...@@ -218,5 +218,5 @@ let () = ...@@ -218,5 +218,5 @@ let () =
Eval.from_comp_unit := Eval.from_comp_unit :=
(fun cu i -> (fun cu i ->
match (load cu).vals with match (load cu).vals with
| None -> assert false | None -> !Eval.stack.(i) (* TODO: check that cu is being evaluated *)
| Some a -> a.(i)) | Some a -> a.(i))
...@@ -340,3 +340,5 @@ let comp_unit init code = ...@@ -340,3 +340,5 @@ let comp_unit init code =
let r = Array.sub !stack 0 !sp in let r = Array.sub !stack 0 !sp in
restore (); r restore (); r
with exn -> restore (); raise exn with exn -> restore (); raise exn
...@@ -14,3 +14,4 @@ val expr: code_item -> t ...@@ -14,3 +14,4 @@ val expr: code_item -> t
val eval_apply: t -> t -> t val eval_apply: t -> t -> t
val comp_unit: t list -> code_item list -> t array val comp_unit: t list -> code_item list -> t array
val stack: t array ref
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment