Changeset 21202 for v6/smop/src/smop_s1p_scalar.c
- Timestamp:
- 07/04/08 02:15:06 (5 months ago)
- Files:
-
- 1 modified
-
v6/smop/src/smop_s1p_scalar.c (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
v6/smop/src/smop_s1p_scalar.c
r20111 r21202 29 29 30 30 SMOP__Object* SMOP__S1P__Scalar_STORE(SMOP__Object* object, SMOP__Object* val) { 31 smop_lowlevel_ rdlock(object);31 smop_lowlevel_wrlock(object); 32 32 SMOP__Object* old = ((SMOP__S1P__Scalar_struct*)object)->cell; 33 33 ((SMOP__S1P__Scalar_struct*)object)->cell = val; … … 54 54 SMOP_RELEASE(interpreter,scalar); 55 55 SMOP_RELEASE(interpreter,capture); 56 56 57 } else if (SMOP__ID__DESTROYALL == identifier) { 57 58 SMOP__S1P__Scalar_struct* s = (SMOP__S1P__Scalar_struct*)capture; … … 62 63 63 64 SMOP_RELEASE(interpreter,cell); 65 64 66 } else { 65 67 fprintf(stderr,"Unknown identifier in lowlevel method object invocation.\n"); 66 68 SMOP_RELEASE(interpreter,capture); 69 67 70 } 68 71 return SMOP__NATIVE__bool_false;
