X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fgeneric%2Fvm-fndb.lisp;h=e608152655856a0b952666cc84fabdad21a7a90c;hb=2e5263a05f55e2b56a3194ad7853e9ae18ad69af;hp=a759e56b47f324460cfaad703ca389fdd70fe029;hpb=955ce74879cc8220d4c97bb1c0f3becd26ad68fc;p=sbcl.git

diff --git a/src/compiler/generic/vm-fndb.lisp b/src/compiler/generic/vm-fndb.lisp
index a759e56..e608152 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)
+#!+(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