Changeset 13418

Timestamp:

Jan 28, 2010, 4:52:30 PM (15 years ago)

Author:

Gary Byers

Message:

Add (prototype) LAP functions %BIGNUM-LOGIOR, %BIGNUM-LOGAND for PPC64.
We can't assume AltiVec (POWER3 and other IBM hardware may not support
it), but can at least do 64-bit operations here.

File:

• trunk/source/level-0/PPC/PPC64/ppc64-bignum.lisp (modified) (1 diff)

trunk/source/level-0/PPC/PPC64/ppc64-bignum.lisp

@@ -339 +339 @@
 
 
+;;; Do LOGIOR on the N 32-bit words in A and B, storing the result in
+;;; C.  (It's legal and desirable to do this more than 32 bits at a time.)
+
+(defppclapfunction %bignum-logior ((n 0) #|ra 0|# (a arg_x) (b arg_y) (c arg_z))
+  (vpop imm0)
+  (srwi. imm0 imm0 1)
+  (la imm2 ppc64::misc-data-offset imm0)
+  (b @test)
+  @loop
+  (cmpwi imm0 4)
+  (lwzx imm1 a imm3)
+  (lwzx imm2 b imm3)
+  (or imm1 imm1 imm2)
+  (stwx imm1 c imm3)
+  (subi imm0 imm0 4)
+  @test
+  (bne @loop)
+  (blr))
+
+
+
+;;; Do LOGAND on the N 32-bit words in A and B, storing the result in
+;;; C.  (It's legal and desirable to do this more than 32 bits at a time.)
+
+(defppclapfunction %bignum-logand ((n 0) #|ra 0|# (a arg_x) (b arg_y) (c arg_z))
+  (vpop imm0)
+  (srwi. imm0 imm0 1)
+  (la imm2 ppc64::misc-data-offset imm0)
+  (b @test)
+  @loop
+  (cmpwi imm0 4)
+  (lwzx imm1 a imm3)
+  (lwzx imm2 b imm3)
+  (and imm1 imm1 imm2)
+  (stwx imm1 c imm3)
+  (subi imm0 imm0 4)
+  @test
+  (bne @loop)
+  (blr))