Return to strcmpn.s CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / lib / libc / compat-sys5

Annotation of cci/usr/src/lib/libc/compat-sys5/strcmpn.s, revision 1.1

1.1     ! root        1: 
        !             2: /*
        !             3:  * strcmpn.s   4.1 (Tahoe) June 1983 
        !             4:  * 
        !             5:  * Compare strings (at most n bytes):  s1>s2: >0  s1==s2: 0  s1<s2: <0
        !             6:  * 
        !             7:  * strcmpn(s1, s2, n)
        !             8:  * register char *s1, *s2;
        !             9:  * register n;
        !            10: */
        !            11: 
        !            12:        .text
        !            13:        .align  1
        !            14:        .globl  _strcmpn
        !            15: 
        !            16: _strcmpn: .word        4               /* saves r2 */
        !            17:        movl    12(fp),r2
        !            18:        tstl    r2              /* number of bytes to compare */
        !            19:        jgtr    n_ok
        !            20:        clrl    r0
        !            21:        ret                     /* for n <= 0 , s1 == s2 */
        !            22: n_ok:
        !            23:        movl    4(fp),r0
        !            24:        movl    8(fp),r1
        !            25:        cmps3
        !            26:        jgtr    greater
        !            27:        jlss    less
        !            28: equal: clrl    r0
        !            29:        ret
        !            30: less:  movl    $-1,r0
        !            31:        ret
        !            32: greater: movl  $1,r0
        !            33:        ret

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