X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fgeneric%2Fvm-fndb.lisp;h=ab7489ea97c65d01148989eb547aace2824bd4bf;hb=3254e1b6fb33e4ff5be5f37ba4bbcc34ca151cf7;hp=492238f3c5557eba6435e54dbb86f6e0f83012bc;hpb=d5b2c7d4ea394fe94bab07e4a1a9d6f4320b822a;p=sbcl.git

diff --git a/src/compiler/generic/vm-fndb.lisp b/src/compiler/generic/vm-fndb.lisp
index 492238f..ab7489e 100644
--- a/src/compiler/generic/vm-fndb.lisp
+++ b/src/compiler/generic/vm-fndb.lisp
@@ -165,9 +165,12 @@
   (complex double-float)
   (unsafe always-translatable))
 
-#!+(or x86 x86-64)
-(defknown %raw-instance-atomic-incf/word (instance index sb!vm:signed-word) sb!vm:word
+#!+(or x86 x86-64 ppc)
+(defknown %raw-instance-atomic-incf/word (instance index sb!vm:word) sb!vm:word
     (unsafe always-translatable))
+#!+(or x86 x86-64 ppc)
+(defknown %array-atomic-incf/word (t index sb!vm:word) sb!vm:word
+  (unsafe always-translatable))
 
 ;;; These two are mostly used for bit-bashing operations.
 (defknown %vector-raw-bits (t fixnum) sb!vm:word
@@ -287,7 +290,7 @@
 (defknown %fixnum-to-digit (fixnum) bignum-element-type
   (foldable flushable movable))
 
-(defknown %floor (bignum-element-type bignum-element-type bignum-element-type)
+(defknown %bigfloor (bignum-element-type bignum-element-type bignum-element-type)
   (values bignum-element-type bignum-element-type)
   (foldable flushable movable))