18 lines
418 B
Common Lisp
18 lines
418 B
Common Lisp
|
#include <clc/clc.h>
|
||
|
|
#include <utils.h>
|
||
|
|
|
||
|
|
#define __CLC_BODY <frexp.inc>
|
||
|
|
#define __CLC_ADDRESS_SPACE private
|
||
|
|
#include <clc/math/gentype.inc>
|
||
|
|
#undef __CLC_ADDRESS_SPACE
|
||
|
|
|
||
|
|
#define __CLC_BODY <frexp.inc>
|
||
|
|
#define __CLC_ADDRESS_SPACE global
|
||
|
|
#include <clc/math/gentype.inc>
|
||
|
|
#undef __CLC_ADDRESS_SPACE
|
||
|
|
|
||
|
|
#define __CLC_BODY <frexp.inc>
|
||
|
|
#define __CLC_ADDRESS_SPACE local
|
||
|
|
#include <clc/math/gentype.inc>
|
||
|
|
#undef __CLC_ADDRESS_SPACE
|