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

add extra protection against useless shifts.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-11-20 00:31:09 +00:00
parent 26e4ce7e27
commit 73bba98946
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
H/sshift.h
View File

@ -398,6 +398,8 @@ inline EXTERN Term AtomTermAdjust (Term);
inline EXTERN Term inline EXTERN Term
AtomTermAdjust (Term at) AtomTermAdjust (Term at)
{ {
if (at == 0L)
return at;
return (Term)(CharP(at) + HDiff); return (Term)(CharP(at) + HDiff);
} }
@ -414,6 +416,8 @@ inline EXTERN Term CodeVarAdjust (Term);
inline EXTERN Term inline EXTERN Term
CodeVarAdjust (Term var) CodeVarAdjust (Term var)
{ {
if (var == 0L)
return var;
return (Term)(CharP(var) + HDiff); return (Term)(CharP(var) + HDiff);
} }