Re: Olabldebug on classes?

From: Jerome Vouillon (Jerome.Vouillon@inria.fr)
Date: Mon Feb 22 1999 - 16:28:04 MET


Date: Mon, 22 Feb 1999 16:28:04 +0100
From: Jerome Vouillon <Jerome.Vouillon@inria.fr>
To: John Whitley <whitley@cse.buffalo.edu>, caml-list@inria.fr
Subject: Re: Olabldebug on classes?
In-Reply-To: <14032.63536.754773.125969@hadar.cse.Buffalo.EDU>; from John Whitley on Mon, Feb 22, 1999 at 01:54:20AM -0500

Hello,

> Perhaps I am simply being a bit slow today, but I cannot seem to get
> olabldebug to print/display class instance variables, mutable or
> otherwise.

This is a bug of the debugger (it has not been kept up to date with
respect to the compiler). The following patch fixes this problem.

-- Jérôme

Index: debugger/eval.ml
===================================================================
RCS file: /net/pauillac/caml/repository/csl/debugger/eval.ml,v
retrieving revision 1.20
diff -u -r1.20 eval.ml
--- eval.ml 1998/08/03 13:51:08 1.20
+++ eval.ml 1999/02/22 15:20:24
@@ -71,8 +71,10 @@
       begin try
         let (p, valdesc) = Env.lookup_value lid env in
         (begin match valdesc.val_kind with
- Val_ivar _ ->
- let (p0, _) = Env.lookup_value (Longident.Lident "*self*") env in
+ Val_ivar (_, cl_num) ->
+ let (p0, _) =
+ Env.lookup_value (Longident.Lident ("self-" ^ cl_num)) env
+ in
              let v = path event p0 in
              let i = path event p in
              Debugcom.Remote_value.field v (Debugcom.Remote_value.obj i)



This archive was generated by hypermail 2b29 : Sun Jan 02 2000 - 11:58:20 MET