/*-
 * 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