blob: e26a751150602e3c32fb2d88ebd0f4d5c586564b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
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 );
}
|
