1
0
mirror of https://github.com/vlang/v.git synced 2023-08-10 21:13:21 +03:00

fix f64 tcc eq crash

This commit is contained in:
Alexander Medvednikov 2019-10-13 04:27:57 +03:00
parent ae3ec380f8
commit 91690a1b54

View File

@ -28,18 +28,26 @@ pub fn ptr_str(ptr voidptr) string {
// compare floats using C epsilon
// ==
pub fn (a f64) eq(b f64) bool {
$if windows {
$if tinyc {
return a -b <= 0.01
} $else {
return C.fabs(a - b) <= C.DBL_EPSILON
}
} $else {
return C.fabs(a - b) <= C.DBL_EPSILON
}
}
pub fn (a f32) eq(b f32) bool {
$if windows {
$if tinyc {
return a -b <= 0.01
} $else {
return C.fabsf(a - b) <= C.FLT_EPSILON
}
return C.fabs(a - b) <= C.DBL_EPSILON
}
} $else {
return C.fabs(a - b) <= C.DBL_EPSILON
}
}
pub fn (a f64) eqbit(b f64) bool {
return C.DEFAULT_EQUAL(a, b)