From 26ab4ead3306bf4e4a89e7fc8c7c735e1cd74d34 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Fri, 26 Nov 2004 12:30:47 +0000
Subject: [PATCH]   * fixed intermittent bug in overflow checking of
 subtractions

---
 compiler/powerpc/nppcadd.pas | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/compiler/powerpc/nppcadd.pas b/compiler/powerpc/nppcadd.pas
index e7aebf9653..2ae9fb0091 100644
--- a/compiler/powerpc/nppcadd.pas
+++ b/compiler/powerpc/nppcadd.pas
@@ -1407,7 +1407,11 @@ interface
                    addn:
                      op := A_ADDO;
                    subn:
-                     op := A_SUBO;
+                     begin
+                       op := A_SUBO;
+                       if (nf_swaped in flags) then
+                         swapleftright;
+                     end;
                    muln:
                      op := A_MULLWO;
                    else
@@ -1460,7 +1464,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.53  2004-11-26 12:17:04  jonas
+  Revision 1.54  2004-11-26 12:30:47  jonas
+    * fixed intermittent bug in overflow checking of subtractions
+
+  Revision 1.53  2004/11/26 12:17:04  jonas
     * fixed overflow checking of unsigned multiplications
 
   Revision 1.52  2004/10/31 21:45:03  peter