change LOCALS macros.
This commit is contained in:
@@ -440,7 +440,7 @@ if (a==NULL) return;
|
||||
Cell copy_structures(Cell c)
|
||||
{
|
||||
Cell *NewC, *NewH;
|
||||
Cell OldC,OldH;
|
||||
Cell OldC,LOCAL_OldH;
|
||||
|
||||
OldC=deref((Cell) c);
|
||||
|
||||
@@ -451,7 +451,7 @@ Cell OldC,OldH;
|
||||
return(OldC);
|
||||
}
|
||||
|
||||
OldH=(Cell) beam_H;
|
||||
LOCAL_OldH=(Cell) beam_H;
|
||||
NewH=beam_H;
|
||||
if (isappl(OldC)) {
|
||||
int i,arity;
|
||||
@@ -465,7 +465,7 @@ Cell OldC,OldH;
|
||||
NewH++;
|
||||
NewC++;
|
||||
}
|
||||
return(absappl(OldH));
|
||||
return(absappl(LOCAL_OldH));
|
||||
}
|
||||
/* else if (ispair(c)) { */
|
||||
NewC=(Cell *) reppair(OldC);
|
||||
@@ -474,5 +474,5 @@ Cell OldC,OldH;
|
||||
NewC++;
|
||||
NewH++;
|
||||
*NewH=copy_structures((Cell) NewC);
|
||||
return(abspair(OldH));
|
||||
return(abspair(LOCAL_OldH));
|
||||
}
|
||||
|
Reference in New Issue
Block a user