fixed bug that would mnake GC and stack shifting loop.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1563 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2006-03-07 22:14:20 +00:00
parent 16eb3a70fc
commit 1f5f6c7f12

View File

@ -545,13 +545,13 @@ CreateStaticArray(AtomEntry *ae, Int dim, static_array_types type, CODEADDR star
p->KindOfPE = ArrayProperty;
p->NextOfPE = ae->PropsOfAE;
INIT_RWLOCK(p->ArRWLock);
p->NextAE = StaticArrays;
StaticArrays = p;
}
WRITE_LOCK(p->ArRWLock);
p->ArrayEArity = -dim;
p->ArrayType = type;
ae->PropsOfAE = AbsArrayProp((ArrayEntry *)p);
p->NextAE = StaticArrays;
StaticArrays = p;
if (start_addr == NULL) {
int i;