From cad17564ad7eb60a2e987b30f07c6def31cb135a Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Sun, 30 Apr 2006 20:12:54 +0000
Subject: [PATCH] Add +clobber annotations for future optimization

---
 library/compiler/ppc/intrinsics.factor | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/library/compiler/ppc/intrinsics.factor b/library/compiler/ppc/intrinsics.factor
index 85cace3560..9628ceac3d 100644
--- 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 -- )