small changes
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@270 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
@@ -317,11 +317,11 @@ inline EXTERN AtomEntry * AtomEntryAdjust(AtomEntry * at)
|
||||
|
||||
|
||||
|
||||
inline EXTERN consult_obj * ConsultObjAdjust(consult_obj *);
|
||||
inline EXTERN union CONSULT_OBJ * ConsultObjAdjust(union CONSULT_OBJ *);
|
||||
|
||||
inline EXTERN consult_obj * ConsultObjAdjust(consult_obj * co)
|
||||
inline EXTERN union CONSULT_OBJ * ConsultObjAdjust(union CONSULT_OBJ * co)
|
||||
{
|
||||
return (consult_obj *) ((consult_obj *)(CharP(co)+HDiff) );
|
||||
return (union CONSULT_OBJ *) ((union CONSULT_OBJ *)(CharP(co)+HDiff) );
|
||||
}
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user