From 73bba989469537e3892525800026c4201333a7a8 Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Fri, 20 Nov 2009 00:31:09 +0000 Subject: [PATCH] add extra protection against useless shifts. --- H/sshift.h | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/H/sshift.h b/H/sshift.h index fd6ec6daa..7ca8e16dd 100644 --- a/H/sshift.h +++ b/H/sshift.h @@ -398,6 +398,8 @@ inline EXTERN Term AtomTermAdjust (Term); inline EXTERN Term AtomTermAdjust (Term at) { + if (at == 0L) + return at; return (Term)(CharP(at) + HDiff); } @@ -414,6 +416,8 @@ inline EXTERN Term CodeVarAdjust (Term); inline EXTERN Term CodeVarAdjust (Term var) { + if (var == 0L) + return var; return (Term)(CharP(var) + HDiff); }