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 NAA06676 for caml-redistribution@pauillac.inria.fr; Fri, 17 Sep 1999 13:11:02 +0200 (MET DST)
Resent-Message-Id: <199909171111.NAA06676@pauillac.inria.fr>
Received: from nez-perce.inria.fr (nez-perce.inria.fr [192.93.2.78]) by pauillac.inria.fr (8.7.6/8.7.3) with ESMTP id VAA27509 for <caml-list@pauillac.inria.fr>; Fri, 10 Sep 1999 21:04:42 +0200 (MET DST)
Received: from igw3.watson.ibm.com (igw3.watson.ibm.com [198.81.209.18])
	by nez-perce.inria.fr (8.8.7/8.8.7) with ESMTP id VAA08445
	for <caml-list@inria.fr>; Fri, 10 Sep 1999 21:04:40 +0200 (MET DST)
From: chet@watson.ibm.com
Received: from mailhub.watson.ibm.com (mailhub.watson.ibm.com [9.2.250.97])
	by igw3.watson.ibm.com (8.9.3/8.9.3/05-14-1999) with ESMTP id PAA121286;
	Fri, 10 Sep 1999 15:04:11 -0400
Received: from bismarck.chet.org (nyc-46.nyc.ibm.com [9.38.112.46]) by mailhub.watson.ibm.com (8.8.7/Feb-20-98) with ESMTP id PAA34428; Fri, 10 Sep 1999 15:04:11 -0400
Received: from bismarck.chet.org (chet@localhost [127.0.0.1])
	by bismarck.chet.org (8.8.8/8.8.8/Debian/GNU) with ESMTP id PAA01514;
	Fri, 10 Sep 1999 15:03:41 -0400
Message-Id: <199909101903.PAA01514@bismarck.chet.org>
To: Hendrik Tews <tews@tcs.inf.tu-dresden.de>
cc: caml-list@inria.fr
Subject: Re: Efficency in OCaml 
In-reply-to: Your message of "Fri, 10 Sep 1999 17:19:39 +0200."
             <199909101519.RAA18663@ithif20.inf.tu-dresden.de> 
Date: Fri, 10 Sep 1999 15:03:41 -0400
Resent-From: weis@pauillac.inria.fr
Resent-Date: Fri, 17 Sep 1999 13:11:02 +0200
Resent-To: caml-redistribution@pauillac.inria.fr


Take a small program, e.g.

================================================================
class oa n =
  object
	val mutable a = n
	method get () = a
    method set a' = a <- a'
    method print_a () = (Printf.printf "A: %d\n" a; flush stdout)
  end
;;

print_string "foo\n";;
let ai = new oa 37;;

ai#print_a();;
================================================================

and run

% ocamlc -c -drawlambda o1.ml

on it.  Doing so on "oo.ml" (after having compiled "oo.mli" in the
same directory!) will also help illuminate the situation.

--chet--