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

Fix add references

db4
Eduardo Cavazos 2008-03-31 20:29:12 -06:00
parent cc5ddd8d78
commit c71a3e05c6
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
core/cpu/ppc/intrinsics/intrinsics.factor
View File

@ -94,14 +94,14 @@ IN: cpu.ppc.intrinsics
} define-intrinsics } define-intrinsics
: fixnum-register-op ( op -- pair ) : fixnum-register-op ( op -- pair )
[ "out" operand "y" operand "x" operand ] swap add H{ [ "out" operand "y" operand "x" operand ] swap suffix H{
{ +input+ { { f "x" } { f "y" } } } { +input+ { { f "x" } { f "y" } } }
{ +scratch+ { { f "out" } } } { +scratch+ { { f "out" } } }
{ +output+ { "out" } } { +output+ { "out" } }
} 2array ; } 2array ;
: fixnum-value-op ( op -- pair ) : fixnum-value-op ( op -- pair )
[ "out" operand "x" operand "y" operand ] swap add H{ [ "out" operand "x" operand "y" operand ] swap suffix H{
{ +input+ { { f "x" } { [ small-tagged? ] "y" } } } { +input+ { { f "x" } { [ small-tagged? ] "y" } } }
{ +scratch+ { { f "out" } } } { +scratch+ { { f "out" } } }
{ +output+ { "out" } } { +output+ { "out" } }
@ -205,11 +205,11 @@ IN: cpu.ppc.intrinsics
} define-intrinsic } define-intrinsic
: fixnum-register-jump ( op -- pair ) : fixnum-register-jump ( op -- pair )
[ "x" operand 0 "y" operand CMP ] swap add [ "x" operand 0 "y" operand CMP ] swap suffix
{ { f "x" } { f "y" } } 2array ; { { f "x" } { f "y" } } 2array ;
: fixnum-value-jump ( op -- pair ) : fixnum-value-jump ( op -- pair )
[ 0 "x" operand "y" operand CMPI ] swap add [ 0 "x" operand "y" operand CMPI ] swap suffix
{ { f "x" } { [ small-tagged? ] "y" } } 2array ; { { f "x" } { [ small-tagged? ] "y" } } 2array ;
: define-fixnum-jump ( word op -- ) : define-fixnum-jump ( word op -- )
@ -336,7 +336,7 @@ IN: cpu.ppc.intrinsics
} define-intrinsic } define-intrinsic
: define-float-op ( word op -- ) : define-float-op ( word op -- )
[ "z" operand "x" operand "y" operand ] swap add H{ [ "z" operand "x" operand "y" operand ] swap suffix H{
{ +input+ { { float "x" } { float "y" } } } { +input+ { { float "x" } { float "y" } } }
{ +scratch+ { { float "z" } } } { +scratch+ { { float "z" } } }
{ +output+ { "z" } } { +output+ { "z" } }
@ -352,7 +352,7 @@ IN: cpu.ppc.intrinsics
] each ] each
: define-float-jump ( word op -- ) : define-float-jump ( word op -- )
[ "x" operand 0 "y" operand FCMPU ] swap add [ "x" operand 0 "y" operand FCMPU ] swap suffix
{ { float "x" } { float "y" } } define-if-intrinsic ; { { float "x" } { float "y" } } define-if-intrinsic ;
{ {