[Hugs] #32: Compile of hugs98-plus-May2006.tar.gz fails on SPARC Solaris 8

[Hugs]

#32: Compile of hugs98-plus-May2006.tar.gz fails on SPARC Solaris 8
--------------------+-------------------------------------------------------
 Reporter:  guest   |       Owner:  nobody
     Type:  defect  |      Status:  new   
 Priority:  major   |   Milestone:        
Component:  hugs    |     Version:  200605
 Keywords:          |  
--------------------+-------------------------------------------------------
My machine:
 {{{
  straumli> uname -a
  SunOS straumli 5.8 Generic_117350-28 sun4u sparc SUNW,Sun-Blade-100
  straumli>
 }}}

 After configuring (WTF is up with that "ultra-evil" comment anyway?), I
 compile, and get:
 {{{
  straumli> make
  cd src; make all
  make[1]: Entering directory `/users/stremler/Work/Haskell/hugs98-plus-
 May2006/src'
  gcc -c -DNDEBUG=1 -g  -O2 hugs.c
  gcc -c -DNDEBUG=1 -g  -O2 edit.c
  gcc -c -DNDEBUG=1 -g  -O2 observe.c
  gcc -c -DNDEBUG=1 -g  -O2 builtin.c
  builtin.c: In function `mkThunk':
  builtin.c:2151: error: `pc' undeclared (first use in this function)
  builtin.c:2151: error: (Each undeclared identifier is reported only once
  builtin.c:2151: error: for each function it appears in.)
  make[1]: *** [builtin.o] Error 1
  make[1]: Leaving directory `/users/stremler/Work/Haskell/hugs98-plus-
 May2006/src'
  make: *** [all] Error 2
  straumli>
 }}}

 I eventually got it to compile:
 {{{
  straumli> diff hugs98-plus-May2006/src/builtin.c hugs98-plus-May2006-
 modified/src/builtin.c
 2151c2151,2152
  <       unsigned long *adj_code = (unsigned long *)pc;
  ---
  >       /*unsigned long *adj_code = (unsigned long *)pc;*/
  >       unsigned long *adj_code = (unsigned long *)thunk->code;
  straumli>
 }}}

 Dunno if that's the _right_ fix.  But it seems to work enough for
 HelloWorld.hs...

 hugs98-May06-bugreport (at) stremler (dot) net

-- 
Ticket URL: <http://hackage.haskell.org/trac/hugs/ticket/32>
Hugs <http://www.haskell.org/hugs/>
Hugs 98, an interpreter for Haskell