1 files changed, 52 insertions, 0 deletions
diff --git a/private/crt32/misc/labs.c b/private/crt32/misc/labs.c
new file mode 100644
index 000000000..e26a75115
--- /dev/null
+++ b/private/crt32/misc/labs.c
@@ -0,0 +1,52 @@
+/***
+*labs.c - find absolute value of a long integer
+*
+*	Copyright (c) 1985-1991, Microsoft Corporation. All rights reserved.
+*
+*Purpose:
+*	defines labs() - find absolute value of a long integer.
+*
+*Revision History:
+*	03-15-84  RN	initial version
+*	04-22-87  JMB	added function pragma for conversion to C 5.0 compiler
+*	12-11-87  JCR	Added "_LOAD_DS" to declaration
+*	03-14-90  GJF	Replaced _LOAD_DS with _CALLTYPE1, added #include
+*			<cruntime.h> and fixed the copyright. Also, cleaned
+*			up the formatting a bit.
+*	10-04-90  GJF	New-style function declarator.
+*       12-28-90  SRW   Added _CRUISER_ conditional around function pragma
+*       04-01-91  SRW   Enable #pragma function for i386 _WIN32_ builds too.
+*       03-09-94  RDL   Enable #pragma function for i386 _WIN32_ builds too.
+*
+*******************************************************************************/
+
+#include <cruntime.h>
+#include <stdlib.h>
+
+#ifdef _MSC_VER
+#pragma function(labs)
+#endif
+
+/***
+*long labs(lnumber) - find absolute value of long.
+*
+*Purpose:
+*	Find the absolute value of a long integer (lnumber if lnumber >= 0),
+*	-lnumber if lnumber < 0).
+*
+*Entry:
+*	long lnumber - number to find absolute value of
+*
+*Exit:
+*	returns the absolute value of lnumber
+*
+*Exceptions:
+*
+*******************************************************************************/
+
+long _CALLTYPE1 labs (
+	long lnumber
+	)
+{
+	return( lnumber>=0L ? lnumber : -lnumber );
+}