Quick Search:

Mode

Context

Displaying 3 lines of context. None | Less | More | Full

Other Diffs

Ignore

Blank Lines Whitespace: Expand:

Diff

1.67
 
1.68
 
MAIN:ragge:20071228222748
 
local.c
_>599599 
 600600 }
 601601 
<>602 -#if 0
603602 /*
<>604 - * Print out an integer constant of size size.
 605 - * can only be sizes <= SZINT.
 606 - */
 607 -void
 608 -indata(CONSZ val, int size)
 609 -{
 610 -        switch (size) {
 611 -        case SZCHAR:
 612 -                printf("\t.byte %d\n", (int)val & 0xff);
 613 -                break;
 614 -        case SZSHORT:
 615 -                printf("\t.word %d\n", (int)val & 0xffff);
 616 -                break;
 617 -        case SZINT:
 618 -                printf("\t.long %d\n", (int)val & 0xffffffff);
 619 -                break;
 620 -        default:
 621 -                cerror("indata");
 622 -        }
 623 -}
 624 -#endif
 625 -
 626 -/*
627603  * Print out a string of characters.
 628604  * Assume that the assembler understands C-style escape
 629605  * sequences.  Location is already set.
     
 !
796772         }
 797773 }
 798774 
<>799 -#if 0
 800 -/*
 801 - * print out an integer.
 802 - */
 803 -void
 804 -inval(CONSZ word)
 805 -{
 806 -        word &= 0xffffffff;
 807 -        printf("        .long 0x%llx\n", word);
 808 -}
 809 -
 810 -/* output code to initialize a floating point value */
 811 -/* the proper alignment has been obtained */
 812 -void
 813 -finval(NODE *p)
 814 -{
 815 -        union { float f; double d; long double l; int i[3]; } u;
 816 -
 817 -        switch (p->n_type) {
 818 -        case LDOUBLE:
 819 -                u.i[2] = 0;
 820 -                u.l = (long double)p->n_dcon;
 821 -                printf("\t.long\t0x%x,0x%x,0x%x\n", u.i[0], u.i[1], u.i[2]);
 822 -                break;
 823 -        case DOUBLE:
 824 -                u.d = (double)p->n_dcon;
 825 -                printf("\t.long\t0x%x,0x%x\n", u.i[0], u.i[1]);
 826 -                break;
 827 -        case FLOAT:
 828 -                u.f = (float)p->n_dcon;
 829 -                printf("\t.long\t0x%x\n", u.i[0]);
 830 -                break;
 831 -        }
 832 -}
 833 -#endif
 834 -
835775 /* make a name look like an external name in the local machine */
 836776 char *
 837777 exname(char *p)
     
 !
921861         lastloc = locc;
 922862         printf("        .%s\n", loctbl[locc]);
 923863 }
<_924 -
 925 -#if 0
 926 -int
 927 -ftoint(NODE *p, CONSZ **c)
 928 -{
 929 -        static CONSZ cc[3];
 930 -        union { float f; double d; long double l; int i[3]; } u;
 931 -        int n;
 932 -
 933 -        switch (p->n_type) {
 934 -        case LDOUBLE:
 935 -                u.i[2] = 0;
 936 -                u.l = (long double)p->n_dcon;
 937 -                n = SZLDOUBLE;
 938 -                break;
 939 -        case DOUBLE:
 940 -                u.d = (double)p->n_dcon;
 941 -                n = SZDOUBLE;
 942 -                break;
 943 -        case FLOAT:
 944 -                u.f = (float)p->n_dcon;
 945 -                n = SZFLOAT;
 946 -                break;
 947 -        }
 948 -        cc[0] = u.i[0];
 949 -        cc[1] = u.i[1];
 950 -        cc[2] = u.i[2];
 951 -        *c = cc;
 952 -        return n;
 953 -}
 954 -#endif
FishEye: Open Source License registered to PCC.
Your maintenance has expired. You can renew your license at http://www.atlassian.com/fisheye/renew
Atlassian FishEye, CVS analysis. (Version:1.6.3 Build:build-336 2008-11-04) - Administration - Page generated 2014-09-23 06:22 +0200