Return to Areadable.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / sys / tahoe

Annotation of cci/sys/tahoe/Areadable.c, revision 1.1

1.1     ! root        1: #include "../machine/alignment.h" 
        !             2: 
        !             3: long readable(infop, address, length)
        !             4: process_info   *infop;
        !             5: long           address, length;
        !             6: /*
        !             7:  *   Return TRUE (= -1) if the specified bytes can be read without an access
        !             8:  * control violation (limit and/or protection). Page faults are OK.
        !             9:  *   If problems, return the code that would be pushed by HW on the
        !            10:  * stack (see the architecture manual).
        !            11:  *   Assumption is that in most cases, access is OK, so a quick 'prober'
        !            12:  * will be enough. If not, we have to work harder to determine the exact
        !            13:  * cause and return the right code, without getting the fault here in
        !            14:  * the kernel !!.
        !            15:  *
        !            16:  * The address is assumed to be read for the user.!
        !            17:  */
        !            18: {
        !            19:        register        long    Register_12;    /* Has to be first reg ! */
        !            20:        register        long    Register_11;
        !            21:        register        long    Register_10;
        !            22:        register        long    Register_9;
        !            23:        register        long    Register_8;
        !            24:        register        long    subspace;
        !            25:        register        long    last_page;
        !            26: 
        !            27:        Register_12 = address;
        !            28:        Register_11 = length-1;
        !            29:        asm ("          prober  $1,(r12),$1     ");     /* Yeach ... */
        !            30:        asm ("          beql    no_access       ");
        !            31:        asm ("          addl2   r11,r12         ");     /* last byte */
        !            32:        asm ("          prober  $1,(r12),$1     ");
        !            33:        asm ("          beql    no_access       ");
        !            34:        asm ("          movl    $-1,r0          ");     /* TRUE */
        !            35:        asm ("          ret#1                   ");
        !            36:        asm ("no_access:                        ");
        !            37: /*
        !            38:  * Now the hard work. Have to check length violation first.
        !            39:  * If any byte (first or last) causes a length violation, report it as such.
        !            40:  */
        !            41:        asm ("  mfpr    $3,r8   ");     /* Get length registers. P0LR */
        !            42:        asm ("  mfpr    $5,r9   ");     /* P1LR */
        !            43:        asm ("  mfpr    $7,r10  ");     /* P2LR */
        !            44:        asm ("  mfpr    $1,r11  ");     /* SLR  */
        !            45: 
        !            46:        subspace = (address >> 30) & 3;
        !            47:        Register_12 = (address >> 10) & 0xfffff;        /* 1'st byte page # */
        !            48:        last_page = ( (address+length-1) >> 10) & 0xfffff;
        !            49:        switch ( subspace ) {
        !            50:        case 0:
        !            51:                if ( (Register_12 >= Register_8) ||
        !            52:                     (last_page   >= Register_8) ) return (1);
        !            53:                break;
        !            54:        case 1:
        !            55:                if ( (Register_12 >= Register_9) ||
        !            56:                     (last_page   >= Register_9) ) return (1);
        !            57:                break;
        !            58:        case 2:
        !            59:                if ( (Register_12 < Register_10) ||
        !            60:                     (last_page   < Register_10) ) return (1);
        !            61:                break;
        !            62:        case 3:
        !            63:                if ( (Register_12 >= Register_11) ||
        !            64:                     (last_page   >= Register_11) ) return (1);
        !            65:                break;
        !            66:        }
        !            67: /*
        !            68:  * OK, it's not a length violation. Must have been an access problem
        !            69:  * (no read by user).
        !            70:  *
        !            71:  * NOTE : I definitely ignore the case of 'no PTE access' since I
        !            72:  *     assume that's not the case for user mode. Besides, the poor
        !            73:  *     guy will just get an access violation that will most probably
        !            74:  *     send him into hyperspace anyway, so no need to be too acurate here.
        !            75:  */
        !            76:        return (0);
        !            77: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.