floating point constants and symbol export fix.

R=rsc
APPROVED=rsc
DELTA=16  (0 added, 1 deleted, 15 changed)
OCL=34753
CL=34769

diff --git a/src/cmd/5g/gobj.c b/src/cmd/5g/gobj.c
index 2a336a288e486379fdde6ac4a1546511c634a339..6119f14f81c34c11e4b3cc86a4ed356601e75fb6 100644 (file)
--- a/src/cmd/5g/gobj.c
+++ b/src/cmd/5g/gobj.c
@@ -83,7 +83,7 @@ void
 zaddr(Biobuf *b, Addr *a, int s)
 {
        int32 l;
-//     Ieee e;
+       uint64 e;
        int i;
        char *n;
 
@@ -156,19 +156,18 @@ zaddr(Biobuf *b, Addr *a, int s)
                break;
 
        case D_FCONST:
-               fatal("zaddr D_FCONST not implemented");
-               //ieeedtod(&e, a->dval);
-               //l = e.l;
-               //Bputc(b, l);
-               //Bputc(b, l>>8);
-               //Bputc(b, l>>16);
-               //Bputc(b, l>>24);
-               //l = e.h;
-               //Bputc(b, l);
-               //Bputc(b, l>>8);
-               //Bputc(b, l>>16);
-               //Bputc(b, l>>24);
-               //break;
+               ieeedtod(&e, a->dval);
+               l = e;
+               Bputc(b, l);
+               Bputc(b, l>>8);
+               Bputc(b, l>>16);
+               Bputc(b, l>>24);
+               l = e >> 32;
+               Bputc(b, l);
+               Bputc(b, l>>8);
+               Bputc(b, l>>16);
+               Bputc(b, l>>24);
+               break;
        }
 }
 
@@ -217,7 +216,7 @@ dumpfuncs(void)
                                sf = s->sym;
                                if(sf < 0 || sf >= NSYM)
                                        sf = 0;
-                               t = p->from.type;
+                               t = p->from.name;
                                if(t == D_ADDR)
                                        t = p->from.name;
                                if(h[sf].type == t)
@@ -239,7 +238,7 @@ dumpfuncs(void)
                                st = s->sym;
                                if(st < 0 || st >= NSYM)
                                        st = 0;
-                               t = p->to.type;
+                               t = p->to.name;
                                if(t == D_ADDR)
                                        t = p->to.name;
                                if(h[st].type == t)