usr/src/sys/vax/inline/libcpats.c

/* Copyright (c) 1984 Regents of the University of California */

#ifndef lint
static char sccsid[] = "@(#)libcpats.c  1.2     (Berkeley)      %G%";
#endif not lint

#include "inline.h"

/*
 * Pattern table for the C library.
 */
struct pats libc_ptab[] = {

#ifdef vax
        { "1,_fgetc\n",
"       sobgeq  *(sp),1f\n\
        calls   $1,__filbuf\n\
        jbr     2f\n\
1:\n\
        addl3   $4,(sp)+,r1\n\
        movzbl  *(r1),r0\n\
        incl    (r1)\n\
2:\n" },

        { "2,_fputc\n",
"       sobgeq  *4(sp),1f\n\
        calls   $2,__flsbuf\n\
        jbr     2f\n\
1:\n\
        movq    (sp)+,r0\n\
        movb    r0,*4(r1)\n\
        incl    4(r1)\n\
2:\n" },

        { "1,_strlen\n",
"       movl    (sp)+,r5\n\
        movl    r5,r1\n\
1:\n\
        locc    $0,$65535,(r1)\n\
        jeql    1b\n\
        subl3   r5,r1,r0\n" },
#endif vax

#ifdef mc68000
/* someday... */
#endif mc68000

        { "", "" }
};