File: isnormal_fp32.cl

package info (click to toggle)
pocl 7.1-1
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 29,768 kB
  • sloc: lisp: 151,669; ansic: 135,425; cpp: 65,801; python: 1,846; sh: 1,084; ruby: 255; pascal: 231; tcl: 180; makefile: 174; asm: 81; java: 72; xml: 49
file content (4 lines) | stat: -rw-r--r-- 158 bytes parent folder | download | duplicates (6) 
1
2
3
4
 
_CL_OVERLOADABLE itype isnormal(vtype i)
{
  return ((as_utype(i) << 1) < (utype)(EXPBITS_SP32 << 1)) & ((as_utype(i) << 1) > (utype)(MANTBITS_SP32 << 1));
}