[Tinyos-commits] CVS: tinyos-1.x/tos/lib/VM/languages/motlle/standalone tree.c, 1.4, 1.5

[David Gay]

Update of /cvsroot/tinyos/tinyos-1.x/tos/lib/VM/languages/motlle/standalone
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4273/standalone

Modified Files:
	tree.c 
Log Message:
location in cst fix


Index: tree.c
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/tos/lib/VM/languages/motlle/standalone/tree.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** tree.c	19 Nov 2005 00:42:09 -0000	1.4
--- tree.c	22 Nov 2005 23:24:59 -0000	1.5
***************
*** 892,896 ****
      return build_binop(b_eq, e,
  		       new_component(build_heap, c_constant, 
! 				     new_constant(build_heap, cst_list, NULL)));
    case stype_none:
      return component_false;
--- 892,896 ----
      return build_binop(b_eq, e,
  		       new_component(build_heap, c_constant, 
! 				     new_constant(build_heap, cst_list, get_location(), NULL)));
    case stype_none:
      return component_false;
***************
*** 999,1003 ****
      if (pat->u.l.patlist == NULL)
        return build_const_comparison
! 	(new_constant(build_heap, cst_list, NULL), e);
      else
        {
--- 999,1003 ----
      if (pat->u.l.patlist == NULL)
        return build_const_comparison
! 	(new_constant(build_heap, cst_list, get_location(), NULL), e);
      else
        {
***************
*** 1037,1041 ****
  	if (apl->pat == NULL)
  	  check = build_const_comparison
! 	    (new_constant(build_heap, cst_list, NULL), getcdr);
  	else
  	  check = build_match_block(apl->pat, getcdr, level + 1);
--- 1037,1041 ----
  	if (apl->pat == NULL)
  	  check = build_const_comparison
! 	    (new_constant(build_heap, cst_list, get_location(), NULL), getcdr);
  	else
  	  check = build_match_block(apl->pat, getcdr, level + 1);