adding float02, some fun with testfloat

2012-06-13 02:34:58 -04:00
parent e063695a38
commit 794354527d
8 changed files with 1099 additions and 0 deletions
--- a/float02/float02.c
+++ b/float02/float02.c
@@ -0,0 +1,134 @@
+
+
+//-------------------------------------------------------------------
+//-------------------------------------------------------------------
+
+#include "slowfloat.c"
+#include "uart.h"
+
+unsigned int myfun ( float x );
+
+unsigned int m4add ( unsigned int, unsigned int );
+unsigned int m4ftoi ( unsigned int );
+unsigned int m4itof ( unsigned int );
+//-------------------------------------------------------------------
+int notmain ( void )
+{
+    unsigned int ra,rb,rc;
+    unsigned int fa,fb,fc;
+    unsigned int xc;
+    unsigned int beg,end;
+    unsigned int errors;
+    unsigned int cases;
+
+    uart_init();
+    init_timer();
+    hexstring(0x12345678);
+    hexstring(myfun(-2));
+    hexstring(myfun(-4));
+    hexstring(myfun(-8));
+    hexstring(myfun(-5));
+    hexstring(m4itof(0xFFFFFFFE));
+    hexstring(m4itof(5));
+    hexstring(m4ftoi(0xC0000000));
+    hexstring(m4ftoi(0xC0800000));
+    hexstring(m4ftoi(0xC1000000));
+
+
+
+//enum {
+    //float_round_nearest_even = 0,
+    //float_round_down         = 1,
+    //float_round_up           = 2,
+    //float_round_to_zero      = 3
+//};
+    slow_float_rounding_mode = float_round_nearest_even;
+//enum {
+    //float_tininess_after_rounding  = 0,
+    //float_tininess_before_rounding = 1
+//};
+    slow_float_detect_tininess = float_tininess_before_rounding;
+
+    errors=0;
+    cases=0;
+    beg=timer_tick();
+    for(ra=0;ra<int32NumP1;ra++)
+    {
+        for(rb=0;rb<int32NumP1;rb++)
+        {
+            slow_float_exception_flags = 0;
+            fa=cases32[ra];
+            fb=cases32[rb];
+//if(((fa&0x7F800000)==0)&&(fa&0x007FFFFF))
+//{
+////    hexstrings(0xBAD00); hexstring(fa);
+//continue;
+//}
+//if(((fb&0x7F800000)==0)&&(fb&0x007FFFFF))
+//{
+////    hexstrings(0xBAD01); hexstring(fb);
+//continue;
+//}
+            fc=slow_float32_add(fa,fb);
+//if(((fc&0x7F800000)==0)&&(fc&0x007FFFFF))
+//{
+    //hexstrings(0xBAD02); hexstring(fc);
+//continue;
+//}
+if(fc==0xFFFFFFFF) continue; //is a nan thing
+//hexstrings(fa); hexstring(fb);
+            cases++;
+            xc=m4add(fa,fb);
+            if(fc!=xc)
+            {
+                hexstrings(slow_float_exception_flags);
+                hexstrings(fa);
+                hexstrings(fb);
+                hexstrings(fc);
+                hexstring(xc);
+                errors++;
+            }
+            if(errors>20) break;
+        }
+        if(errors>20) break;
+    }
+    end=timer_tick();
+    hexstring(end-beg);
+    hexstring(cases);
+
+
+    errors=0;
+    cases=0;
+    beg=timer_tick();
+    for(ra=0;ra<int32NumP1;ra++)
+    {
+        slow_float_exception_flags = 0;
+        fa=cases32[ra];
+        rb=slow_float32_to_int32(fa);
+
+if(slow_float_exception_flags&1) continue;
+
+        cases++;
+//hexstrings(fa); hexstring(rb);
+        rc=m4ftoi(fa);
+        if(rb!=rc)
+        {
+            hexstrings(slow_float_exception_flags);
+            hexstrings(fa);
+            hexstrings(rb);
+            hexstring(rc);
+            errors++;
+        }
+        if(errors>20) break;
+    }
+    end=timer_tick();
+    hexstring(end-beg);
+    hexstring(cases);
+
+
+
+
+    hexstring(0x12345678);
+    return(0);
+}
+//-------------------------------------------------------------------