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

more win64 fixes

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-05-10 22:14:08 +01:00
parent 55019a83bd
commit 99dafc9172
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/compiler.c Normal file → Executable file
View File

@ -2081,7 +2081,7 @@ c_head(Term t, compiler_struct *cglobs)
Yap_emit(name_op, (CELL) AtomOfTerm(t), Zero, &cglobs->cint); Yap_emit(name_op, (CELL) AtomOfTerm(t), Zero, &cglobs->cint);
#ifdef BEAM #ifdef BEAM
if (EAM) { if (EAM) {
Yap_emit(run_op,Zero,(unsigned long) cglobs->cint.CurrentPred,&cglobs->cint); Yap_emit(run_op,Zero,(UInt) cglobs->cint.CurrentPred,&cglobs->cint);
} }
#endif #endif
return; return;
@ -2090,7 +2090,7 @@ c_head(Term t, compiler_struct *cglobs)
Yap_emit(name_op, (CELL) NameOfFunctor(f), ArityOfFunctor(f), &cglobs->cint); Yap_emit(name_op, (CELL) NameOfFunctor(f), ArityOfFunctor(f), &cglobs->cint);
#ifdef BEAM #ifdef BEAM
if (EAM) { if (EAM) {
Yap_emit(run_op,Zero,(unsigned long) cglobs->cint.CurrentPred,&cglobs->cint); Yap_emit(run_op,Zero,(UInt) cglobs->cint.CurrentPred,&cglobs->cint);
} }
#endif #endif
if (Yap_ExecutionMode == MIXED_MODE_USER) if (Yap_ExecutionMode == MIXED_MODE_USER)

6
include/YapInterface.h
View File

@ -415,13 +415,13 @@ extern X_API YAP_Int PROTO(YAP_CurrentSlot,(void));
extern X_API YAP_Int PROTO(YAP_InitSlot,(YAP_Term)); extern X_API YAP_Int PROTO(YAP_InitSlot,(YAP_Term));
/* YAP_Term YAP_GetFromSlots(t) */ /* YAP_Term YAP_GetFromSlots(t) */
extern X_API YAP_Term PROTO(YAP_GetFromSlot,(YAP_Int int)); extern X_API YAP_Term PROTO(YAP_GetFromSlot,(YAP_Int));
/* YAP_Term YAP_AddressFromSlots(t) */ /* YAP_Term YAP_AddressFromSlots(t) */
extern X_API YAP_Term *PROTO(YAP_AddressFromSlot,(YAP_Int int)); extern X_API YAP_Term *PROTO(YAP_AddressFromSlot,(YAP_Int));
/* YAP_Term YAP_PutInSlots(t) */ /* YAP_Term YAP_PutInSlots(t) */
extern X_API void PROTO(YAP_PutInSlot,(YAP_Int int, YAP_Term)); extern X_API void PROTO(YAP_PutInSlot,(YAP_Int, YAP_Term));
/* void YAP_RecoverSlots() */ /* void YAP_RecoverSlots() */
extern X_API int PROTO(YAP_RecoverSlots,(int)); extern X_API int PROTO(YAP_RecoverSlots,(int));