fix regression tests
This commit is contained in:
16
H/rheap.h
16
H/rheap.h
@@ -724,7 +724,7 @@ RestoreSWIAtoms__( USES_REGS1 )
|
||||
for (i=0; i < AtomTranslations; i++) {
|
||||
SWI_Atoms[i] = AtomAdjust(SWI_Atoms[i]);
|
||||
}
|
||||
for (j=0; j < N_SWI_FUNCTORS; j++) {
|
||||
for (j=0; j < FunctorTranslations; j++) {
|
||||
SWI_Functors[j] = FuncAdjust(SWI_Functors[j]);
|
||||
}
|
||||
RestoreSWIHash();
|
||||
@@ -1462,6 +1462,13 @@ RestoreEntries(PropEntry *pp, int int_key USES_REGS)
|
||||
PropAdjust(he->NextOfPE);
|
||||
}
|
||||
break;
|
||||
case MutexProperty:
|
||||
{
|
||||
HoldEntry *he = (HoldEntry *)pp;
|
||||
he->NextOfPE =
|
||||
PropAdjust(he->NextOfPE);
|
||||
}
|
||||
break;
|
||||
case TranslationProperty:
|
||||
{
|
||||
TranslationEntry *he = (TranslationEntry *)pp;
|
||||
@@ -1469,6 +1476,13 @@ RestoreEntries(PropEntry *pp, int int_key USES_REGS)
|
||||
PropAdjust(he->NextOfPE);
|
||||
}
|
||||
break;
|
||||
case FlagProperty:
|
||||
{
|
||||
FlagEntry *he = (FlagEntry *)pp;
|
||||
he->NextOfPE =
|
||||
PropAdjust(he->NextOfPE);
|
||||
}
|
||||
break;
|
||||
case ArrayProperty:
|
||||
{
|
||||
ArrayEntry *ae = (ArrayEntry *)pp;
|
||||
|
Reference in New Issue
Block a user