diverse fixes
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@448 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
4824e0f247
commit
60c859d470
@ -1097,7 +1097,7 @@ mark_environments(CELL_PTR gc_ENV, OPREG size, CELL *pvbmap)
|
|||||||
|
|
||||||
size = EnvSize((CELL_PTR) (gc_ENV[E_CP])); /* size = EnvSize(CP) */
|
size = EnvSize((CELL_PTR) (gc_ENV[E_CP])); /* size = EnvSize(CP) */
|
||||||
pvbmap = EnvBMap((CELL_PTR) (gc_ENV[E_CP]));
|
pvbmap = EnvBMap((CELL_PTR) (gc_ENV[E_CP]));
|
||||||
#if 1
|
#if 0
|
||||||
if (size < 0) {
|
if (size < 0) {
|
||||||
PredEntry *pe = EnvPreg(gc_ENV[E_CP]);
|
PredEntry *pe = EnvPreg(gc_ENV[E_CP]);
|
||||||
op_numbers op = op_from_opcode(ENV_ToOp(gc_ENV[E_CP]));
|
op_numbers op = op_from_opcode(ENV_ToOp(gc_ENV[E_CP]));
|
||||||
|
Reference in New Issue
Block a user