From c5649c34571446b515ebf203882ff9270f4aba6d Mon Sep 17 00:00:00 2001 From: andy Date: Tue, 7 Mar 2000 07:27:11 +0000 Subject: [PATCH] [project @ 2000-03-07 07:27:11 by andy] Fixing a sprintf bug; it was clobering the symbol table. If you used a name for a class and module, the module was not recognised as read. --- ghc/interpreter/type.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/ghc/interpreter/type.c b/ghc/interpreter/type.c index 645ffb5..1958b04 100644 --- a/ghc/interpreter/type.c +++ b/ghc/interpreter/type.c @@ -9,8 +9,8 @@ * included in the distribution. * * $RCSfile: type.c,v $ - * $Revision: 1.25 $ - * $Date: 2000/03/06 10:12:57 $ + * $Revision: 1.26 $ + * $Date: 2000/03/07 07:27:11 $ * ------------------------------------------------------------------------*/ #include "prelude.h" @@ -1989,7 +1989,7 @@ Inst in; { /* member functions for instance in*/ switch (whatIs(qq)) { case TYCON: str = textToStr(tycon(qq).text); break; case TUPLE: str = textToStr(ghcTupleText(qq)); break; - case OFFSET: sprintf(str,"%d",offsetOf(qq)); break; + case OFFSET: sprintf(&str,"%d",offsetOf(qq)); break; default: internal("typeInstDefn: making GHC name"); break; } for (j = 0; i