implement comparison for 128 bit floats

Author: WalterBright

compiler/src/dmd/backend/arm/cod1.d

@@ -1345,7 +1345,13 @@ enum CLIB_A
     min,
     mul,
     div,
+    eqtf2,
     netf2,
+    gttf2,
+    getf2,
+    lttf2,
+    letf2,
+
 }
 
 private
@@ -1384,6 +1390,12 @@ void initClibInfo(ref Symbol*[CLIB_A.max + 1] clibsyms, ref ClibInfo[CLIB_A.max
 private
 void getClibFunction(uint clib, ref Symbol* s, ref ClibInfo* cinfo, objfmt_t objfmt, exefmt_t exe)
 {
+    void declare(string name)
+    {
+        s = symboly(name, mask(32));
+        cinfo.retregs = mask(32);
+    }
+
     switch (clib)
     {
         case CLIB_A.realToDouble:
@@ -1434,13 +1446,12 @@ void getClibFunction(uint clib, ref Symbol* s, ref ClibInfo* cinfo, objfmt_t obj
             break;
         }
 
-        case CLIB_A.netf2:
-        {
-            string name = "__netf2";
-            s = symboly(name, mask(32));
-            cinfo.retregs = mask(32);
-            break;
-        }
+        case CLIB_A.netf2: declare("__netf2"); break;
+        case CLIB_A.eqtf2: declare("__eqtf2"); break;
+        case CLIB_A.lttf2: declare("__lttf2"); break;
+        case CLIB_A.letf2: declare("__letf2"); break;
+        case CLIB_A.gttf2: declare("__gttf2"); break;
+        case CLIB_A.getf2: declare("__getf2"); break;
 
         default:
             assert(0);

compiler/src/dmd/backend/arm/cod4.d

@@ -933,8 +933,28 @@ void cdcmp(ref CGstate cg, ref CodeBuilder cdb,elem* e,ref regm_t pretregs)
         scodelem(cgstate,cdb,e2,retregs2,retregs1,true); // right leaf
         reg_t Vm = findreg(retregs1);
         reg_t Vn = findreg(retregs2);
-        uint ftype = INSTR.szToFtype(sz);
-        cdb.gen1(INSTR.fcmpe_float(ftype,Vm,Vn));       // FCMPE Vn,Vm
+        if (tym == TYldouble || tym == TYildouble)
+        {
+            CLIB_A clib;
+            switch (jop)
+            {
+                case COND.eq:   clib = CLIB_A.eqtf2; break;
+                case COND.ne:   clib = CLIB_A.netf2; break;
+                case COND.lt:   clib = CLIB_A.lttf2; break;
+                case COND.le:   clib = CLIB_A.letf2; break;
+                case COND.gt:   clib = CLIB_A.gttf2; break;
+                case COND.ge:   clib = CLIB_A.getf2; break;
+                default:        assert(0);
+            }
+            regm_t dummy;
+            callclib(cdb,null,clib,dummy,0);
+            gentstreg(cdb,0,0);                          // CMP w0,#0
+        }
+        else
+        {
+            uint ftype = INSTR.szToFtype(sz);
+            cdb.gen1(INSTR.fcmpe_float(ftype,Vm,Vn));    // FCMPE Vn,Vm
+        }
         goto L3;
     }