diff options
author | Adam <you@example.com> | 2020-05-17 05:51:50 +0200 |
---|---|---|
committer | Adam <you@example.com> | 2020-05-17 05:51:50 +0200 |
commit | e611b132f9b8abe35b362e5870b74bce94a1e58e (patch) | |
tree | a5781d2ec0e085eeca33cf350cf878f2efea6fe5 /private/crt32/misc/labs.c | |
download | NT4.0-e611b132f9b8abe35b362e5870b74bce94a1e58e.tar NT4.0-e611b132f9b8abe35b362e5870b74bce94a1e58e.tar.gz NT4.0-e611b132f9b8abe35b362e5870b74bce94a1e58e.tar.bz2 NT4.0-e611b132f9b8abe35b362e5870b74bce94a1e58e.tar.lz NT4.0-e611b132f9b8abe35b362e5870b74bce94a1e58e.tar.xz NT4.0-e611b132f9b8abe35b362e5870b74bce94a1e58e.tar.zst NT4.0-e611b132f9b8abe35b362e5870b74bce94a1e58e.zip |
Diffstat (limited to 'private/crt32/misc/labs.c')
-rw-r--r-- | private/crt32/misc/labs.c | 52 |
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 ); +} |