X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fcpu%2Fppc%2Fppc.factor;h=a169982445848870581b6883b1df12cd535bdada;hp=dfcb68dfc1c974d7906e70cb90b7f078ecfe6f16;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e diff --git a/basis/cpu/ppc/ppc.factor b/basis/cpu/ppc/ppc.factor index dfcb68dfc1..a169982445 100644 --- a/basis/cpu/ppc/ppc.factor +++ b/basis/cpu/ppc/ppc.factor @@ -217,7 +217,7 @@ M:: ppc %integer>bignum ( dst src temp -- ) temp dst 1 bignum@ STW ! Compute sign temp src MR - temp temp cell-bits 1- SRAWI + temp temp cell-bits 1 - SRAWI temp temp 1 ANDI ! Store sign temp dst 2 bignum@ STW