home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_144 / 1.ddi / MATHSRC.ZIP / FABSL.CAS < prev    next >
Encoding:
Text File  |  1992-06-10  |  1.0 KB  |  45 lines
  1. /*------------------------------------------------------------------------
  2.  * filename - fabsl.cas
  3.  *
  4.  * function(s)
  5.  *        fabsl - absolute value of long double
  6.  *-----------------------------------------------------------------------*/
  7.  
  8. /*
  9.  *      C/C++ Run Time Library - Version 5.0
  10.  *
  11.  *      Copyright (c) 1987, 1992 by Borland International
  12.  *      All Rights Reserved.
  13.  *
  14.  */
  15.  
  16.  
  17. #pragma inline
  18. #include <asmrules.h>
  19.  
  20. #include <_math.h>
  21. #include <math.h>
  22.  
  23.  
  24. /*--------------------------------------------------------------------------*
  25.  
  26. Name            fabsl - absolute value
  27.  
  28. Usage           long double fabsl(long double x);
  29.  
  30. Prototype in    math.h
  31.  
  32. Description     fabsl calculates the absolute value of x, which may have any
  33.                 value.
  34.  
  35. Return value    fabsl returns the absolute value of x.
  36.  
  37. *---------------------------------------------------------------------------*/
  38. #pragma warn -rvl
  39. long double fabsl(long double x)
  40. {
  41. asm     FLD     LONGDOUBLE (x)
  42. asm     FABS
  43.         return;
  44. }
  45.