include PtoAtomHashEntryAdjust to reduce casts

This commit is contained in:
Vitor Santos Costa
2008-09-18 17:59:16 +01:00
parent 20e8924bba
commit bcb6edfb8a
3 changed files with 11 additions and 2 deletions

View File

@@ -593,6 +593,14 @@ PtoHeapCellAdjust (CELL * ptr)
return (CELL *) (((CELL *) (CharP (ptr) + HDiff)));
}
inline EXTERN AtomHashEntry *PtoAtomHashEntryAdjust (AtomHashEntry *);
inline EXTERN AtomHashEntry *
PtoAtomHashEntryAdjust (AtomHashEntry * ptr)
{
return (AtomHashEntry *) (((AtomHashEntry *) (CharP (ptr) + HDiff)));
}
inline EXTERN PredEntry *PtoPredAdjust (PredEntry *);