log2.gml

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

.func log2
#include <math.h>
double log2( double x );
.ixfunc2 '&Math' &func
.funcend
.desc begin
The &func function computes the logarithm (base 2) of
.arg x.
A domain error occurs if the argument is negative.
A range error occurs if the argument is zero.
.desc end
.return begin
The &func function returns the logarithm (base 2) of the argument.
.im errnodom
.return end
.see begin
.seelist log2 exp log log10 pow matherr
.see end
.exmp begin
#include <stdio.h>
#include <math.h>

void main()
  {
    printf( "%f\n", log2(.25) );
  }
.exmp output
-2.000000
.exmp end
.class WATCOM
.system