CVS: sml/src/runtime/mach-dep unix-fault.c,1.8,1.9

Update of /cvsroot/smlnj/sml/src/runtime/mach-dep
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16461/mach-dep

Modified Files:
	unix-fault.c 
Log Message:
  Compile-time error fix for MacOS X on Intel.


Index: unix-fault.c
===================================================================
RCS file: /cvsroot/smlnj/sml/src/runtime/mach-dep/unix-fault.c,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** unix-fault.c	21 Feb 2006 21:33:24 -0000	1.8
--- unix-fault.c	23 Feb 2006 22:18:34 -0000	1.9
***************
*** 57,61 ****
      ml_state_t	    *msp = SELF_VPROC->vp_state;
      extern Word_t   request_fault[]; 
!     int		    code = SIG_GetCode(info, scp);
  
  #ifdef SIGNAL_DEBUG
--- 57,61 ----
      ml_state_t	    *msp = SELF_VPROC->vp_state;
      extern Word_t   request_fault[]; 
!     int		    code = SIG_GetCode(si, scp);
  
  #ifdef SIGNAL_DEBUG
***************
*** 66,70 ****
      if (! SELF_VPROC->vp_inMLFlag) 
  	Die ("bogus fault not in ML: sig = %d, code = %#x, pc = %#x)\n",
! 	    signal, SIG_GetCode(info, scp), SIG_GetPC(scp));
  
     /* Map the signal to the appropriate ML exception. */
--- 66,70 ----
      if (! SELF_VPROC->vp_inMLFlag) 
  	Die ("bogus fault not in ML: sig = %d, code = %#x, pc = %#x)\n",
! 	    signal, SIG_GetCode(si, scp), SIG_GetPC(scp));
  
     /* Map the signal to the appropriate ML exception. */



-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642