Return to libcpats.c CVS log

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

Annotation of Net2/arch/vax/inline/libcpats.c, revision 1.1.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[] = "@(#)libcpats.c 7.2 (Berkeley) 5/8/91";
                     36: #endif /* not lint */
                     37: 
                     38: #include "inline.h"
                     39: 
                     40: /*
                     41:  * Pattern table for the C library.
                     42:  */
                     43: struct pats libc_ptab[] = {
                     44: 
                     45: #ifdef vax
                     46:        { 1, "_fgetc\n",
                     47: "      sobgeq  *(sp),1f\n\
                     48:        calls   $1,__filbuf\n\
                     49:        jbr     2f\n\
                     50: 1:\n\
                     51:        addl3   $4,(sp)+,r1\n\
                     52:        movzbl  *(r1),r0\n\
                     53:        incl    (r1)\n\
                     54: 2:\n" },
                     55: 
                     56:        { 2, "_fputc\n",
                     57: "      sobgeq  *4(sp),1f\n\
                     58:        calls   $2,__flsbuf\n\
                     59:        jbr     2f\n\
                     60: 1:\n\
                     61:        movq    (sp)+,r0\n\
                     62:        movb    r0,*4(r1)\n\
                     63:        incl    4(r1)\n\
                     64: 2:\n" },
                     65: #endif vax
                     66: 
                     67: #ifdef mc68000
                     68: /* someday... */
                     69: #endif mc68000
                     70: 
                     71:        { 0, "", "" }
                     72: };
                     73: 
                     74: struct pats vaxsubset_libc_ptab[] = {
                     75: 
                     76:        { 1, "_strlen\n",
                     77: "      movl    (sp)+,r5\n\
                     78:        movl    r5,r1\n\
                     79: 1:\n\
                     80:        tstb    (r1)+\n\
                     81:        jneq    1b\n\
                     82:        decl    r1\n\
                     83:        subl3   r5,r1,r0\n" },
                     84: 
                     85:        { 0, "", "" }
                     86: };
                     87: 
                     88: struct pats vax_libc_ptab[] = {
                     89: 
                     90:        { 1, "_strlen\n",
                     91: "      movl    (sp)+,r5\n\
                     92:        movl    r5,r1\n\
                     93: 1:\n\
                     94:        locc    $0,$65535,(r1)\n\
                     95:        jeql    1b\n\
                     96:        subl3   r5,r1,r0\n" },
                     97: 
                     98:        { 0, "", "" }
                     99: };

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