I have extracted and reduced the following code from my project to solve the problem. In this special case I compare 1.0 with 1.0 but the results are different:
On Windows XP 32-Bit I get:
On Mac OS 64-Bit I get:1.0
1.0
1.0
1
1
1.0
1.0
1.0
0
1
Code: Select all
Structure file
m_width.i
m_heigh.i
EndStructure
Structure term
min.i
max.i
EndStructure
Procedure Inside(value.d, *term.term, faktor.d = 1)
Debug value
Debug *term\min * faktor
Debug *term\max * faktor
Debug Bool(value >= *term\min * faktor)
Debug Bool(value <= *term\max * faktor)
EndProcedure
Procedure.d GetRatio(*file.file): Protected result.d
If *file\m_width > 0 And *file\m_heigh > 0: result = *file\m_width / *file\m_heigh: EndIf
ProcedureReturn result
EndProcedure
Define datei.file
datei\m_heigh = 480
datei\m_width = 480
Define grenze.term
grenze\min = 1000
grenze\max = 1000
Inside(GetRatio(datei), grenze, 0.001)