newlib-2.4.0

git-svn-id: svn://kolibrios.org@6536 a494cfbc-eb01-0410-851d-a64ba20cac60

contrib/sdk/sources/newlib/libc/stdlib/labs.c

@@ -0,0 +1,49 @@
+/*
+FUNCTION
+<<labs>>---long integer absolute value
+
+INDEX
+	labs
+
+ANSI_SYNOPSIS
+	#include <stdlib.h>
+	long labs(long <[i]>);
+
+TRAD_SYNOPSIS
+	#include <stdlib.h>
+	long labs(<[i]>)
+	long <[i]>;
+
+DESCRIPTION
+<<labs>> returns
+@tex
+$|x|$,
+@end tex
+the absolute value of <[i]> (also called the magnitude
+of <[i]>).  That is, if <[i]> is negative, the result is the opposite
+of <[i]>, but if <[i]> is nonnegative the result is <[i]>.
+
+The similar function <<abs>> uses and returns <<int>> rather than
+<<long>> values.
+
+RETURNS
+The result is a nonnegative long integer.
+
+PORTABILITY
+<<labs>> is ANSI.
+
+No supporting OS subroutine calls are required.
+*/
+
+#include <stdlib.h>
+
+long
+_DEFUN (labs, (x),
+	long x)
+{
+  if (x < 0)
+    {
+      x = -x;
+    }
+  return x;
+}