view lab4/share.mli @ 0:bfdcc3820b32

author Mike Spivey <>
date Thu, 05 Oct 2017 08:04:15 +0100
line wrap: on
line source
(* lab4/share.mli *)
(* Copyright (c) 2017 J. M. Spivey *)

(* The function |traverse| transforms a list of optrees by finding 
   common subexpressions; for each of them, it allocates a temp with
   an initializing assignment, then replaces all occurrences of the
   subexpression with a use of the temp.  Procedure calls are also moved
   to the top level by a similar mechanism. *)

(* |traverse| -- find common subexpressions in a procedure body *)
val traverse : Optree.optree list -> Optree.optree list