PORT: Avoid undefined shift of negative integer.
PORT: Avoid undefined shift of negative integer.

edechter/swipl-devel,edechter/swipl-devel,edechter/swipl-devel,edechter/swipl-devel,edechter/swipl-devel