From mboxrd@z Thu Jan  1 00:00:00 1970
Received: (from weis@localhost) by pauillac.inria.fr (8.7.6/8.7.3) id SAA23051 for caml-redistribution; Mon, 22 Feb 1999 18:09:23 +0100 (MET)
Received: from concorde.inria.fr (concorde.inria.fr [192.93.2.39]) by pauillac.inria.fr (8.7.6/8.7.3) with ESMTP id QAA02160 for <caml-list@pauillac.inria.fr>; Mon, 22 Feb 1999 16:28:07 +0100 (MET)
Received: from pauillac.inria.fr (pauillac.inria.fr [128.93.11.35])
	by concorde.inria.fr (8.8.7/8.8.7) with ESMTP id QAA19131;
	Mon, 22 Feb 1999 16:28:04 +0100 (MET)
Received: (from vouillon@localhost) by pauillac.inria.fr (8.7.6/8.7.3) id QAA00195; Mon, 22 Feb 1999 16:28:04 +0100 (MET)
Message-ID: <19990222162804.26352@pauillac.inria.fr>
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?
References: <14032.63536.754773.125969@hadar.cse.Buffalo.EDU>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Mailer: Mutt 0.89.1
In-Reply-To: <14032.63536.754773.125969@hadar.cse.Buffalo.EDU>; from John Whitley on Mon, Feb 22, 1999 at 01:54:20AM -0500
Sender: weis


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)