Return to libcpats.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / X / inline

Annotation of 43BSD/contrib/X/inline/libcpats.c, revision 1.1.1.1

1.1       root        1: /* Copyright (c) 1984 Regents of the University of California */
                      2: 
                      3: #ifndef lint
                      4: static char sccsid[] = "@(#)libcpats.c 1.2     (Berkeley)      8/18/84";
                      5: #endif not lint
                      6: 
                      7: #include "inline.h"
                      8: 
                      9: /*
                     10:  * Pattern table for the C library.
                     11:  */
                     12: struct pats libc_ptab[] = {
                     13: 
                     14: #ifdef vax
                     15:        { "1,_fgetc\n",
                     16: "      movl    (sp)+,r2\n\
                     17:        sobgeq  (r2),1f\n\
                     18:        pushl   r2\n\
                     19:        calls   $1,__filbuf\n\
                     20:        jbr     2f\n\
                     21: 1:\n\
                     22:        movzbl  *4(r2),r0\n\
                     23:        incl    4(r2)\n\
                     24: 2:\n" },
                     25: 
                     26:        { "2,_fputc\n",
                     27: "      movl    (sp)+,r2$\n\
                     28:        movl    (sp)+,r3\n\
                     29:        sobgeq  (r3),1f\n\
                     30:        pushl   r3\n\
                     31:        pushl   r2\n\
                     32:        calls   $2,__flsbuf\n\
                     33:        jbr     2f\n\
                     34: 1:\n\
                     35:        movb    r2,*4(r3)\n\
                     36:        incl    4(r3)\n\
                     37: 2:\n" },
                     38: 
                     39:        { "1,_strlen\n",
                     40: "      movl    (sp)+,r5\n\
                     41:        movl    r5,r1\n\
                     42: 1:\n\
                     43:        locc    $0,$65535,(r1)\n\
                     44:        jeql    1b\n\
                     45:        subl3   r5,r1,r0\n" },
                     46: #endif vax
                     47: 
                     48: #ifdef mc68000
                     49: /* someday... */
                     50: #endif mc68000
                     51: 
                     52:        { "", "" }
                     53: };

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