From 613dfb71562175af8d203056114f369d4af7a568 Mon Sep 17 00:00:00 2001
From: rgrjr <rgrjr@d31e2699-5ff4-0310-a27c-f18f2fbe73fe>
Date: Sun, 13 Apr 2008 04:23:20 +0000
Subject: [PATCH] * t/pmc/complex.t:    + ($fp_equality_macro):  Choose
 registers carefully so that we don't      need save/restore.

git-svn-id: https://svn.perl.org/parrot/trunk@26953 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
---
 t/pmc/complex.t | 42 ++++++++++--------------------------------
 1 file changed, 10 insertions(+), 32 deletions(-)

diff --git a/t/pmc/complex.t b/t/pmc/complex.t
index 8d19e54d41..9639387fa4 100644
--- a/t/pmc/complex.t
+++ b/t/pmc/complex.t
@@ -26,44 +26,22 @@ Tests the Complex PMC.
 
 my $fp_equality_macro = <<'ENDOFMACRO';
 .macro fp_eq (  J, K, L )
-    save    N0
-    save    N1
-    save    N2
-
-    set N0, .J
-    set N1, .K
-    sub N2, N1,N0
-    abs N2, N2
-    gt  N2, 0.000001, .$FPEQNOK
-
-    restore N2
-    restore N1
-    restore N0
+    set N8, .J
+    set N9, .K
+    sub N7, N9,N8
+    abs N7, N7
+    gt  N7, 0.000001, .$FPEQNOK
     branch  .L
 .label $FPEQNOK:
-    restore N2
-    restore N1
-    restore N0
 .endm
 .macro fp_ne(   J,K,L)
-    save    N0
-    save    N1
-    save    N2
-
-    set N0, .J
-    set N1, .K
-    sub N2, N1,N0
-    abs N2, N2
-    lt  N2, 0.000001, .$FPNENOK
-
-    restore N2
-    restore N1
-    restore N0
+    set N8, .J
+    set N9, .K
+    sub N7, N9,N8
+    abs N7, N7
+    lt  N7, 0.000001, .$FPNENOK
     branch  .L
 .label $FPNENOK:
-    restore N2
-    restore N1
-    restore N0
 .endm
 ENDOFMACRO
 
-- 
2.11.4.GIT