Add +clobber annotations for future optimization

diff --git a/library/compiler/ppc/intrinsics.factor b/library/compiler/ppc/intrinsics.factor
index 85cace3560632f4338075aab77d7ea6e708e2617..9628ceac3dd8136c066c4e9a2ae757c31f8f1cd1 100644 (file)
--- a/library/compiler/ppc/intrinsics.factor
+++ b/library/compiler/ppc/intrinsics.factor
@@ -186,6 +186,7 @@ math-internals namespaces sequences words ;
     { +input { { f "x" } { f "y" } } }
     { +scratch { { f "r" } } }
     { +output { "r" } }
+    { +clobber { "x" "y" } }
 } define-intrinsic
 
 \ fixnum- [
@@ -197,6 +198,7 @@ math-internals namespaces sequences words ;
     { +input { { f "x" } { f "y" } } }
     { +scratch { { f "r" } } }
     { +output { "r" } }
+    { +clobber { "x" "y" } }
 } define-intrinsic
 
 : ?MR 2dup = [ 2drop ] [ MR ] if ;
@@ -223,6 +225,7 @@ math-internals namespaces sequences words ;
     { +input { { f "x" } { f "y" } } }
     { +scratch { { f "r" } { f "s" } } }
     { +output { "s" } }
+    { +clobber { "x" "y" } }
 } define-intrinsic
 
 : generate-fixnum/i
@@ -254,6 +257,7 @@ math-internals namespaces sequences words ;
     { +input { { f "x" } { f "y" } } }
     { +scratch { { f "r" } { f "s" } } }
     { +output { "x" } }
+    { +clobber { "y" } }
 } define-intrinsic
 
 \ fixnum/mod [
@@ -269,6 +273,7 @@ math-internals namespaces sequences words ;
     { +input { { f "x" } { f "y" } } }
     { +scratch { { f "r" } { f "s" } } }
     { +output { "x" "s" } }
+    { +clobber { "y" } }
 } define-intrinsic
 
 : userenv ( reg -- )