Changeset 166
- Timestamp:
- 10/14/07 05:55:29
- Files:
-
- guts_main/src/all_lock_alloc.upc (modified) (2 diffs)
- guts_main/src/global_lock_alloc.upc (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
guts_main/src/all_lock_alloc.upc
r132 r166 36 36 upc_lock_t *lock1; 37 37 upc_lock_t *lock2; 38 shared size_t addrfield[THREADS];38 upc_lock_t * shared all_locks[THREADS]; 39 39 shared int a; 40 40 … … 54 54 GULA_FAIL("failed to allocate a lock"); 55 55 56 a ddrfield[MYTHREAD] = (size_t)lock1;56 all_locks[MYTHREAD] = lock1; 57 57 upc_barrier; 58 58 59 59 if(MYTHREAD == 0) { 60 60 for(i=0;i<THREADS-1;i++) { 61 if(a ddrfield[i] != addrfield[i+1])61 if(all_locks[i] != all_locks[i+1]) 62 62 GULA_FAIL("failed to return same lock pointer"); 63 63 } guts_main/src/global_lock_alloc.upc
r132 r166 36 36 upc_lock_t *lock1; 37 37 upc_lock_t *lock2; 38 shared size_t addrfield[THREADS];38 upc_lock_t * shared all_locks[THREADS]; 39 39 40 40 int … … 63 63 lock2 = upc_global_lock_alloc(); 64 64 65 if(lock 1== NULL)65 if(lock2 == NULL) 66 66 GULA_FAIL("failed to allocate lock"); 67 67 68 a ddrfield[MYTHREAD] = (size_t)lock2;68 all_locks[MYTHREAD] = lock2; 69 69 70 70 upc_barrier; … … 74 74 for( j=0; j<THREADS; j++ ) { 75 75 if( i != j ) { 76 if( a ddrfield[i] == addrfield[j] )76 if( all_locks[i] == all_locks[j] ) 77 77 GULA_FAIL("failed to return different lock"); 78 78 }
