53 lines
1.4 KiB
C
53 lines
1.4 KiB
C
/***
|
|
*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 );
|
|
}
|