1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
/*==========================================================================*/
/* Sail */
/* */
/* Copyright 2024 Intel Corporation */
/* Pan Li - pan2.li@intel.com */
/* */
/* SPDX-License-Identifier: BSD-2-Clause */
/*==========================================================================*/
$ifndef _FLOAT_GE
$define _FLOAT_GE
$include <float/common.sail>
$include <float/nan.sail>
$include <float/arith_internal.sail>
val float_is_ge : fp_bits_x2 -> fp_bool_and_flags
function float_is_ge ((op_0, op_1)) = {
let is_nan = float_is_nan (op_0) | float_is_nan (op_1);
let flags = if is_nan
then fp_eflag_invalid
else fp_eflag_none;
let is_ge = not (is_nan) & float_is_ge_internal ((op_0, op_1));
(is_ge, flags);
}
$endif
|
