[Tinyos-commits] CVS: tinyos-1.x/tos/lib/VM/languages/motlle/mate/runtime FNlistM.nc, 1.7, 1.8

[David Gay]

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

Modified Files:
	FNlistM.nc 
Log Message:
compile fix
update docs for telosb status


Index: FNlistM.nc
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/tos/lib/VM/languages/motlle/mate/runtime/FNlistM.nc,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** FNlistM.nc	1 Nov 2005 02:28:11 -0000	1.7
--- FNlistM.nc	1 Nov 2005 02:37:11 -0000	1.8
***************
*** 1,2 ****
--- 1,11 ----
+ /*
+  * Copyright (c) 2004-2005 Intel Corporation
+  * All rights reserved.
+  *
+  * This file is distributed under the terms in the attached INTEL-LICENSE     
+  * file. If you do not find these files, copies can be found by writing to
+  * Intel Research Berkeley, 2150 Shattuck Avenue, Suite 1300, Berkeley, CA, 
+  * 94704.  Attention:  Intel License Inquiry.
+  */
  module FNlistM {
    provides {
***************
*** 225,238 ****
  #define CAR(l) if (!call T.pairp(l)) goto bad; l = call V.read(&(call T.pair(l))->car)
  #define CDR(l) if (!call T.pairp(l)) goto bad; l = call V.read(&(call T.pair(l))->cdr)
! #define PUSH(l) call S.qpush(context, /*
!  * Copyright (c) 2004-2005 Intel Corporation
!  * All rights reserved.
!  *
!  * This file is distributed under the terms in the attached INTEL-LICENSE     
!  * file. If you do not find these files, copies can be found by writing to
!  * Intel Research Berkeley, 2150 Shattuck Avenue, Suite 1300, Berkeley, CA, 
!  * 94704.  Attention:  Intel License Inquiry.
!  */
! l); return SUCCESS; bad: call E.error(context, MOTLLE_ERROR_BAD_TYPE); return SUCCESS
  
    //FN car: l -> x. Returns first element of pair l
--- 234,238 ----
  #define CAR(l) if (!call T.pairp(l)) goto bad; l = call V.read(&(call T.pair(l))->car)
  #define CDR(l) if (!call T.pairp(l)) goto bad; l = call V.read(&(call T.pair(l))->cdr)
! #define PUSH(l) call S.qpush(context, l); return SUCCESS; bad: call E.error(context, MOTLLE_ERROR_BAD_TYPE); return SUCCESS
  
    //FN car: l -> x. Returns first element of pair l