fabs.gml

来自「开放源码的编译器open watcom 1.6.0版的源代码」· GML 代码 · 共 30 行

.func fabs
#include <math.h>
double fabs( double x );
.ixfunc2 '&Math' &func
.funcend
.desc begin
The &func function computes the absolute value of the argument
.arg x.
.desc end
.return begin
The &func function returns the absolute value of
.arg x.
.return end
.see begin
.seelist fabs abs labs imaxabs
.see end
.exmp begin
#include <stdio.h>
#include <math.h>

void main()
{
    printf( "%f %f\n", fabs(.5), fabs(-.5) );
}
.exmp output
0.500000 0.500000
.exmp end
.class ANSI
.system