68 lines
2.2 KiB
C
68 lines
2.2 KiB
C
/*-
|
|
* Copyright (c) 1990 The Regents of the University of California.
|
|
* All rights reserved.
|
|
*
|
|
* This code is derived from software contributed to Berkeley by
|
|
* the Systems Programming Group of the University of Utah Computer
|
|
* Science Department.
|
|
*
|
|
* Redistribution and use in source and binary forms are permitted
|
|
* provided that: (1) source distributions retain this entire copyright
|
|
* notice and comment, and (2) distributions including binaries display
|
|
* the following acknowledgement: ``This product includes software
|
|
* developed by the University of California, Berkeley and its contributors''
|
|
* in the documentation or other materials provided with the distribution
|
|
* and in all advertising materials mentioning features or use of this
|
|
* software. Neither the name of the University nor the names of its
|
|
* contributors may be used to endorse or promote products derived
|
|
* from this software without specific prior written permission.
|
|
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
|
|
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
|
|
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
|
|
*/
|
|
|
|
#ifndef mc68000
|
|
#include <string.h>
|
|
|
|
int strcmp(const char *s1, const char *s2)
|
|
{
|
|
const unsigned char *p1=s1,*p2=s2;
|
|
unsigned long r,c;
|
|
|
|
c=0;
|
|
do
|
|
{
|
|
r=*p1++;
|
|
((unsigned char)c)=*p2++;
|
|
} while (!(r-=c) && (unsigned char)c);
|
|
return r;
|
|
}
|
|
#else
|
|
#include "defs.h"
|
|
|
|
/*
|
|
* NOTE: this guy returns result compatible with the VAX assembly version.
|
|
* The C version on the portable gen directory returns different results
|
|
* (different signs!) when comparing chars with the high bit on. Who is
|
|
* right??
|
|
*/
|
|
ENTRY(strcmp)
|
|
asm(" \n\
|
|
movl sp@(4),a0 /* a0 = string1 */ \n\
|
|
movl sp@(8),a1 /* a1 = string2 */ \n\
|
|
strcmploop: \n\
|
|
movb a0@+,d0 /* get *string1 */ \n\
|
|
cmpb a1@+,d0 /* compare a byte */ \n\
|
|
jne strcmpexit /* not equal, break out */ \n\
|
|
tstb d0 /* at end of string1? */ \n\
|
|
jne strcmploop /* no, keep going */ \n\
|
|
moveq #0,d0 /* strings are equal */ \n\
|
|
rts \n\
|
|
strcmpexit: \n\
|
|
subb a1@-,d0 /* *string1 - *string2 */ \n\
|
|
extw d0 \n\
|
|
extl d0 \n\
|
|
rts \n\
|
|
");
|
|
#endif
|