diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix atom gc to actually recover first atom in the chain.

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-10-26 10:04:36 +01:00
parent ecd2fab52e
commit d0cd5f3fa3
3 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
C/agc.c
View File

@ -126,6 +126,7 @@ AtomAdjust(Atom a)
#define REINIT_LOCK(P) #define REINIT_LOCK(P)
#define REINIT_RWLOCK(P) #define REINIT_RWLOCK(P)
#define NoAGCAtomAdjust(P) (P)
#define OrArgAdjust(P) #define OrArgAdjust(P)
#define TabEntryAdjust(P) #define TabEntryAdjust(P)
#define IntegerAdjust(D) (D) #define IntegerAdjust(D) (D)

2
H/rheap.h
View File

@ -391,7 +391,7 @@ RestoreAtoms(void)
PtoAtomHashEntryAdjust(Yap_heap_regs->hash_chain); PtoAtomHashEntryAdjust(Yap_heap_regs->hash_chain);
HashPtr = HashChain; HashPtr = HashChain;
for (i = 0; i < AtomHashTableSize; ++i) { for (i = 0; i < AtomHashTableSize; ++i) {
HashPtr->Entry = AtomAdjust(HashPtr->Entry); HashPtr->Entry = NoAGCAtomAdjust(HashPtr->Entry);
RestoreAtomList(HashPtr->Entry); RestoreAtomList(HashPtr->Entry);
HashPtr++; HashPtr++;
} }

16
H/sshift.h
View File

@ -320,6 +320,14 @@ AtomAdjust (Atom at)
return (Atom) ((at)); return (Atom) ((at));
} }
inline EXTERN Atom NoAGCAtomAdjust (Atom);
inline EXTERN Atom
NoAGCAtomAdjust (Atom at)
{
return (Atom) ((at));
}
inline EXTERN Prop PropAdjust (Prop); inline EXTERN Prop PropAdjust (Prop);
@ -341,6 +349,14 @@ AtomAdjust (Atom at)
return (Atom) ((at == NULL ? (at) : (Atom) (CharP (at) + HDiff))); return (Atom) ((at == NULL ? (at) : (Atom) (CharP (at) + HDiff)));
} }
inline EXTERN Atom NoAGCAtomAdjust (Atom);
inline EXTERN Atom
NoAGCAtomAdjust (Atom at)
{
return (Atom) ((at == NULL ? (at) : (Atom) (CharP (at) + HDiff)));
}
inline EXTERN Prop PropAdjust (Prop); inline EXTERN Prop PropAdjust (Prop);