* Fixed floating-point comparisons for softfloat targets (part of Mantis #9362).

git-svn-id: trunk@27584 -

compiler/arm/narmadd.pas

@@ -559,13 +559,13 @@ interface
                       procname:=procname+'_le';
                     gtn:
                       begin
-                        procname:=procname+'_le';
-                        notnode:=true;
+                        procname:=procname+'_lt';
+                        swapleftright;
                       end;
                     gten:
                       begin
-                        procname:=procname+'_lt';
-                        notnode:=true;
+                        procname:=procname+'_le';
+                        swapleftright;
                       end;
                     equaln:
                       procname:=procname+'_eq';

compiler/nadd.pas

@@ -2726,13 +2726,13 @@ implementation
                 procname:=procname+'_le';
               gtn:
                 begin
-                  procname:=procname+'_le';
-                  notnode:=true;
+                  procname:=procname+'_lt';
+                  swapleftright;
                 end;
               gten:
                 begin
-                  procname:=procname+'_lt';
-                  notnode:=true;
+                  procname:=procname+'_le';
+                  swapleftright;
                 end;
               equaln:
                 procname:=procname+'_eq';