David Barton <[EMAIL PROTECTED]> writes:

> Having added the caddr_t definition to the two files, things chugged
> along famously for a bit.  However, down around absCSyn way, another
> glitch occurred:
> 
>   ghc -DOMIT_NATIVE_CODEGEN -cpp -fglasgow-exts -Rghc-timing -I. -IcodeGen 
>-InativeGen -Iparser 
>-iutils:basicTypes:types:hsSyn:prelude:rename:typecheck:deSugar:coreSyn:specialise:simplCore:stranal:stgSyn:simplStg:codeGen:absCSyn:main:reader:profiling:parser
> -recomp     -c absCSyn/CLabel.lhs -o absCSyn/CLabel.o -osuf o
> 
>   absCSyn/CLabel.lhs:315: Value not in scope: `fmtAsmLbl'
> 
>   absCSyn/CLabel.lhs:319: Value not in scope: `underscorePrefix'

It really is an error, one we fixed after 3.00 was released.  Patch
follows.

*** CLabel.lhs  1998/01/08 18:03:24     1.16
--- CLabel.lhs  1998/01/29 11:42:57     1.17
***************
*** 311,324 ****

  pprCLabel :: CLabel -> SDoc

  pprCLabel (AsmTempLabel u)
    = text (fmtAsmLbl (showUnique u))

! pprCLabel lbl
!   = getPprStyle $ \ sty ->
      if asmStyle sty && underscorePrefix then
         pp_cSEP <> pprCLbl lbl
      else
         pprCLbl lbl


--- 311,328 ----

  pprCLabel :: CLabel -> SDoc

+ #if ! OMIT_NATIVE_CODEGEN
  pprCLabel (AsmTempLabel u)
    = text (fmtAsmLbl (showUnique u))
+ #endif

! pprCLabel lbl =
! #if ! OMIT_NATIVE_CODEGEN
!     getPprStyle $ \ sty ->
      if asmStyle sty && underscorePrefix then
         pp_cSEP <> pprCLbl lbl
      else
+ #endif
         pprCLbl lbl

-- 
Simon Marlow                                             [EMAIL PROTECTED]
University of Glasgow                       http://www.dcs.gla.ac.uk/~simonm/
finger for PGP public key

Reply via email to