Return to machpats.c CVS log

Up to [Net/2] / Net2 / arch / vax / inline

Annotation of Net2/arch/vax/inline/machpats.c, revision 1.1

1.1     ! root        1: /*-
        !             2:  * Copyright (c) 1984, 1986 The Regents of the University of California.
        !             3:  * All rights reserved.
        !             4:  *
        !             5:  * Redistribution and use in source and binary forms, with or without
        !             6:  * modification, are permitted provided that the following conditions
        !             7:  * are met:
        !             8:  * 1. Redistributions of source code must retain the above copyright
        !             9:  *    notice, this list of conditions and the following disclaimer.
        !            10:  * 2. Redistributions in binary form must reproduce the above copyright
        !            11:  *    notice, this list of conditions and the following disclaimer in the
        !            12:  *    documentation and/or other materials provided with the distribution.
        !            13:  * 3. All advertising materials mentioning features or use of this software
        !            14:  *    must display the following acknowledgement:
        !            15:  *     This product includes software developed by the University of
        !            16:  *     California, Berkeley and its contributors.
        !            17:  * 4. Neither the name of the University nor the names of its contributors
        !            18:  *    may be used to endorse or promote products derived from this software
        !            19:  *    without specific prior written permission.
        !            20:  *
        !            21:  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
        !            22:  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
        !            23:  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
        !            24:  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
        !            25:  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
        !            26:  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
        !            27:  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
        !            28:  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
        !            29:  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
        !            30:  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
        !            31:  * SUCH DAMAGE.
        !            32:  */
        !            33: 
        !            34: #ifndef lint
        !            35: static char sccsid[] = "@(#)machpats.c 7.4 (Berkeley) 5/8/91";
        !            36: #endif /* not lint */
        !            37: 
        !            38: #include "inline.h"
        !            39: 
        !            40: /*
        !            41:  * Pattern table for special VAX instructions.
        !            42:  */
        !            43: struct pats machine_ptab[] = {
        !            44: 
        !            45: #ifdef vax
        !            46:        { 3, "_blkcpy\n",
        !            47: "      movl    (sp)+,r1\n\
        !            48:        movl    (sp)+,r3\n\
        !            49:        jbr     2f\n\
        !            50: 1:\n\
        !            51:        subl2   r0,(sp)\n\
        !            52:        movc3   r0,(r1),(r3)\n\
        !            53: 2:\n\
        !            54:        movzwl  $65535,r0\n\
        !            55:        cmpl    (sp),r0\n\
        !            56:        jgtr    1b\n\
        !            57:        movl    (sp)+,r0\n\
        !            58:        movc3   r0,(r1),(r3)\n" },
        !            59: 
        !            60:        { 3, "_bcopy\n",
        !            61: "      movl    (sp)+,r1\n\
        !            62:        movl    (sp)+,r3\n\
        !            63:        movl    (sp)+,r5\n\
        !            64:        movc3   r5,(r1),(r3)\n" },
        !            65: 
        !            66:        { 3, "_ovbcopy\n",
        !            67: "      movl    (sp)+,r3\n\
        !            68:        movl    (sp)+,r4\n\
        !            69:        movl    (sp)+,r5\n\
        !            70:        movc3   r5,(r3),(r4)\n" },
        !            71: 
        !            72:        { 2, "_blkclr\n",
        !            73: "      movl    (sp)+,r3\n\
        !            74:        jbr     2f\n\
        !            75: 1:\n\
        !            76:        subl2   r0,(sp)\n\
        !            77:        movc5   $0,(r3),$0,r0,(r3)\n\
        !            78: 2:\n\
        !            79:        movzwl  $65535,r0\n\
        !            80:        cmpl    (sp),r0\n\
        !            81:        jgtr    1b\n\
        !            82:        movl    (sp)+,r0\n\
        !            83:        movc5   $0,(r3),$0,r0,(r3)\n" },
        !            84: 
        !            85:        { 2, "_bzero\n",
        !            86: "      movl    (sp)+,r3\n\
        !            87:        movl    (sp)+,r5\n\
        !            88:        movc5   $0,(r3),$0,r5,(r3)\n" },
        !            89: 
        !            90:        { 2, "_insque\n",
        !            91: "      movl    (sp)+,r4\n\
        !            92:        movl    (sp)+,r5\n\
        !            93:        insque  (r4),(r5)\n" },
        !            94: 
        !            95:        { 1, "_remque\n",
        !            96: "      movl    (sp)+,r5\n\
        !            97:        remque  (r5),r0\n" },
        !            98: #endif vax
        !            99: 
        !           100: #ifdef mc68000
        !           101: /* someday... */
        !           102: #endif mc68000
        !           103: 
        !           104:        { 0, "", "" }
        !           105: };
        !           106: 
        !           107: #ifdef vax
        !           108: 
        !           109: struct pats vax_ptab[] = {
        !           110: 
        !           111:        { 3, "_blkcmp\n",
        !           112: "      movl    (sp)+,r1\n\
        !           113:        movl    (sp)+,r3\n\
        !           114:        jbr     2f\n\
        !           115: 1:\n\
        !           116:        subl2   r0,(sp)\n\
        !           117:        cmpc3   r0,(r1),(r3)\n\
        !           118:        bneq    3f\n\
        !           119: 2:\n\
        !           120:        movzwl  $65535,r0\n\
        !           121:        cmpl    (sp),r0\n\
        !           122:        jgtr    1b\n\
        !           123:        movl    (sp)+,r0\n\
        !           124:        cmpc3   r0,(r1),(r3)\n\
        !           125: 3:\n" },
        !           126: 
        !           127:        { 3, "_bcmp\n",
        !           128: "      movl    (sp)+,r1\n\
        !           129:        movl    (sp)+,r3\n\
        !           130:        movl    (sp)+,r5\n\
        !           131:        cmpc3   r5,(r1),(r3)\n" },
        !           132: 
        !           133:        { 3, "_llocc\n",
        !           134: "      movl    (sp)+,r4\n\
        !           135:        movl    (sp)+,r5\n\
        !           136:        movl    (sp)+,r1\n\
        !           137: 1:\n\
        !           138:        movzwl  $65535,r0\n\
        !           139:        cmpl    r5,r0\n\
        !           140:        jleq    1f\n\
        !           141:        subl2   r0,r5\n\
        !           142:        locc    r4,r0,(r1)\n\
        !           143:        jeql    1b\n\
        !           144:        addl2   r5,r0\n\
        !           145:        jbr     2f\n\
        !           146: 1:\n\
        !           147:        locc    r4,r5,(r1)\n\
        !           148: 2:\n" },
        !           149: 
        !           150:        { 3, "_locc\n",
        !           151: "      movl    (sp)+,r3\n\
        !           152:        movl    (sp)+,r4\n\
        !           153:        movl    (sp)+,r5\n\
        !           154:        locc    r3,r4,(r5)\n" },
        !           155: 
        !           156:        { 4, "_scanc\n",
        !           157: "      movl    (sp)+,r2\n\
        !           158:        movl    (sp)+,r3\n\
        !           159:        movl    (sp)+,r4\n\
        !           160:        movl    (sp)+,r5\n\
        !           161:        scanc   r2,(r3),(r4),r5\n" },
        !           162: 
        !           163:        { 3, "_skpc\n",
        !           164: "      movl    (sp)+,r3\n\
        !           165:        movl    (sp)+,r4\n\
        !           166:        movl    (sp)+,r5\n\
        !           167:        skpc    r3,r4,(r5)\n" },
        !           168: 
        !           169:        { 0, "", "" }
        !           170: };
        !           171: 
        !           172: struct pats vaxsubset_ptab[] = {
        !           173: 
        !           174:        { 3, "_blkcmp\n",
        !           175: "      movl    (sp)+,r1\n\
        !           176:        movl    (sp)+,r3\n\
        !           177:        movl    (sp)+,r0\n\
        !           178: 2:\n\
        !           179:        cmpb    (r1)+,(r3)+\n\
        !           180:        jneq    3f\n\
        !           181:        sobgtr  r0,2b\n\
        !           182: 3:\n" },
        !           183: 
        !           184:        { 3, "_bcmp\n",
        !           185: "      movl    (sp)+,r1\n\
        !           186:        movl    (sp)+,r3\n\
        !           187:        movl    (sp)+,r0\n\
        !           188:        tstl    r0\n\
        !           189:        jeql    1f\n\
        !           190: 2:\n\
        !           191:        cmpb    (r1)+,(r3)+\n\
        !           192:        jneq    1f\n\
        !           193:        sobgtr  r0,2b\n\
        !           194: 1:\n" },
        !           195: 
        !           196:        { 3, "_llocc\n",
        !           197: "      movl    (sp)+,r4\n\
        !           198:        movl    (sp)+,r0\n\
        !           199:        tstl    r0\n\
        !           200:        jeql    1f\n\
        !           201:        movl    (sp)+,r1\n\
        !           202: 2:\n\
        !           203:        cmpb    r4,(r1)+\n\
        !           204:        jeql    1f\n\
        !           205:        sobgtr  r0,2b\n\
        !           206: 1:\n" },
        !           207: 
        !           208:        { 3, "_locc\n",
        !           209: "      movl    (sp)+,r3\n\
        !           210:        movl    (sp)+,r0\n\
        !           211:        tstl    r0\n\
        !           212:        jeql    1f\n\
        !           213:        movl    (sp)+,r5\n\
        !           214: 2:\n\
        !           215:        cmpb    r3,(r5)+\n\
        !           216:        jeql    1f\n\
        !           217:        sobgtr  r0,2b\n\
        !           218: 1:\n" },
        !           219: 
        !           220:        { 3, "_skpc\n",
        !           221: "      movl    (sp)+,r3\n\
        !           222:        movl    (sp)+,r0\n\
        !           223:        tstl    r0\n\
        !           224:        jeql    1f\n\
        !           225:        movl    (sp)+,r5\n\
        !           226: 2:\n\
        !           227:        cmpb    r3,(r5)+\n\
        !           228:        jneq    1f\n\
        !           229:        sobgtr  r0,2b\n\
        !           230: 1:\n" },
        !           231: 
        !           232:        { 0, "", "" }
        !           233: };
        !           234: #endif

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