From 0a8236066f945c6026337dd4ea9342a9034f7987 Mon Sep 17 00:00:00 2001
From: Jacques Garrigue <garrigue at math.nagoya-u.ac.jp>
Date: Thu, 18 Apr 2002 07:27:47 +0000
Subject: vive les methodes polymorphes!

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4694 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 tools/ocamlprof.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'tools/ocamlprof.ml')

diff --git a/tools/ocamlprof.ml b/tools/ocamlprof.ml
index 64d737c3d7..b9d80c3046 100644
--- a/tools/ocamlprof.ml
+++ b/tools/ocamlprof.ml
@@ -287,6 +287,8 @@ and rw_exp iflag sexp =
 
   | Pexp_lazy (expr) -> rewrite_exp iflag expr
 
+  | Pexp_poly (sexp, _) -> rewrite_exp iflag sexp
+
 and rewrite_ifbody iflag ghost sifbody =
   if !instr_if && not ghost then
     insert_profile rw_exp sifbody
-- 
cgit v1.2.1