Quick Search:

Mode

Context

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

Other Diffs

Ignore

Blank Lines Whitespace: Expand:

Diff

1.28
 
1.29
 
MAIN:ragge:20110605102909
 
local.c
_>3434 
 3535 #define IALLOC(sz) (isinlining ? permalloc(sz) : tmpalloc(sz))
 3636 
<>37 -static int inbits, inval;
 38 -
3937 /* this is called to do local transformations on
 4038  * an expression tree preparitory to its being
 4139  * written out in intermediate code.
     
 !
648646 #endif
 649647 
 650648 /*
<>651 - * Initialize a bitfield.
 652 - */
 653 -void
 654 -infld(CONSZ off, int fsz, CONSZ val)
 655 -{
 656 -        if (idebug)
 657 -                printf("infld off %lld, fsz %d, val %lld inbits %d\n",
 658 -                    off, fsz, val, inbits);
 659 -        val &= (1 << fsz)-1;
 660 -        while (fsz + inbits >= SZCHAR) {
 661 -                inval |= (val << inbits);
 662 -                printf("\t.byte %d\n", inval & 255);
 663 -                fsz -= (SZCHAR - inbits);
 664 -                val >>= (SZCHAR - inbits);
 665 -                inval = inbits = 0;
 666 -        }
 667 -        if (fsz) {
 668 -                inval |= (val << inbits);
 669 -                inbits += fsz;
 670 -        }
 671 -}
 672 -
 673 -/*
 674 - * set fsz bits in sequence to zero.
 675 - */
 676 -void
 677 -zbits(OFFSZ off, int fsz)
 678 -{
 679 -        int m;
 680 -
 681 -        if (idebug)
 682 -                printf("zbits off %lld, fsz %d inbits %d\n", off, fsz, inbits);
 683 -        if ((m = (inbits % SZCHAR))) {
 684 -                m = SZCHAR - m;
 685 -                if (fsz < m) {
 686 -                        inbits += fsz;
 687 -                        return;
 688 -                } else {
 689 -                        fsz -= m;
 690 -                        printf("\t.byte %d\n", inval);
 691 -                        inval = inbits = 0;
 692 -                }
 693 -        }
 694 -        if (fsz >= SZCHAR) {
 695 -                printf("\t.zero %d\n", fsz/SZCHAR);
 696 -                fsz -= (fsz/SZCHAR) * SZCHAR;
 697 -        }
 698 -        if (fsz) {
 699 -                inval = 0;
 700 -                inbits = fsz;
 701 -        }
 702 -}
 703 -
 704 -/*
<_705649  * va_start(ap, last) implementation.
 706650  *
 707651  * f is the NAME node for this builtin function.
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-20 09:56 +0200