steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add +clobber annotations for future optimization

slava 2006-04-30 20:12:54 +00:00
parent 8e9a27eea0
commit cad17564ad
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
library/compiler/ppc/intrinsics.factor
View File

@ -186,6 +186,7 @@ math-internals namespaces sequences words ;
{ +input { { f "x" } { f "y" } } } { +input { { f "x" } { f "y" } } }
{ +scratch { { f "r" } } } { +scratch { { f "r" } } }
{ +output { "r" } } { +output { "r" } }
{ +clobber { "x" "y" } }
} define-intrinsic } define-intrinsic
\ fixnum- [ \ fixnum- [
@ -197,6 +198,7 @@ math-internals namespaces sequences words ;
{ +input { { f "x" } { f "y" } } } { +input { { f "x" } { f "y" } } }
{ +scratch { { f "r" } } } { +scratch { { f "r" } } }
{ +output { "r" } } { +output { "r" } }
{ +clobber { "x" "y" } }
} define-intrinsic } define-intrinsic
: ?MR 2dup = [ 2drop ] [ MR ] if ; : ?MR 2dup = [ 2drop ] [ MR ] if ;
@ -223,6 +225,7 @@ math-internals namespaces sequences words ;
{ +input { { f "x" } { f "y" } } } { +input { { f "x" } { f "y" } } }
{ +scratch { { f "r" } { f "s" } } } { +scratch { { f "r" } { f "s" } } }
{ +output { "s" } } { +output { "s" } }
{ +clobber { "x" "y" } }
} define-intrinsic } define-intrinsic
: generate-fixnum/i : generate-fixnum/i
@ -254,6 +257,7 @@ math-internals namespaces sequences words ;
{ +input { { f "x" } { f "y" } } } { +input { { f "x" } { f "y" } } }
{ +scratch { { f "r" } { f "s" } } } { +scratch { { f "r" } { f "s" } } }
{ +output { "x" } } { +output { "x" } }
{ +clobber { "y" } }
} define-intrinsic } define-intrinsic
\ fixnum/mod [ \ fixnum/mod [
@ -269,6 +273,7 @@ math-internals namespaces sequences words ;
{ +input { { f "x" } { f "y" } } } { +input { { f "x" } { f "y" } } }
{ +scratch { { f "r" } { f "s" } } } { +scratch { { f "r" } { f "s" } } }
{ +output { "x" "s" } } { +output { "x" "s" } }
{ +clobber { "y" } }
} define-intrinsic } define-intrinsic
: userenv ( reg -- ) : userenv ( reg -- )