[Nice-commit] Nice/src/bossa/syntax constant.nice,1.17,1.18

[Arjan B. <ar...@us...>]

Update of /cvsroot/nice/Nice/src/bossa/syntax
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9994/F:/nice/src/bossa/syntax

Modified Files:
	constant.nice 
Log Message:
Fixed bug in pretty printing char constants.

Index: constant.nice
===================================================================
RCS file: /cvsroot/nice/Nice/src/bossa/syntax/constant.nice,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** constant.nice	12 Mar 2005 16:26:14 -0000	1.17
--- constant.nice	21 Mar 2005 17:37:41 -0000	1.18
***************
*** 320,327 ****
      User.error(value, "Invalid character constant: " + value);
  
!   return createCharConstant(s[0], value.location());
  }
  
! public ConstantExp createCharConstant(char value, Location loc)
  {
    let res = new CharConstantExp(tc: nice.tools.typing.PrimitiveType.charTC,
--- 320,332 ----
      User.error(value, "Invalid character constant: " + value);
  
!   let res = new CharConstantExp(tc: nice.tools.typing.PrimitiveType.charTC,
! 	value: s[0], representation: "'" + value + "'");
! 
!   res.type = nice.tools.typing.PrimitiveType.charPolytype;
!   res.setLocation(value.location());
!   return res;
  }
  
! ConstantExp createCharConstant(char value, Location loc)
  {
    let res = new CharConstantExp(tc: nice.tools.typing.PrimitiveType.charTC,