But for some reason, in the PDL code, creation of the dummy variable is *not*, by itself, sufficient - optimization also needs to be disabled. (I turn it off for the setvaltobad functions, then turn it back on again.)

That's why I moved the temp var and comparison into a separate function; it forces the compiler to use the temp value from memory for the comparison: 

; 5    :     return s == tmp ? 1 : 0;

    fld    DWORD PTR _s$[ebp]
    fcomp    DWORD PTR _tmp$[ebp]
    fnstsw    ax
    test    ah, 68                    ; 00000044H
    jp    SHORT $L809

[download]

The problem with the test script is that with optimisations enabled, the newer compiler is able to reduce the whole script to a simple printf( "False" ); printf( "True" ); return 0; (even with the use of the sub) as everything is known at compile time: 

; Listing generated by Microsoft (R) Optimizing Compiler Version 15.00
+.30729.01 

    TITLE    C:\test\float.c
    .686P
    .XMM
    include listing.inc
    .model    flat

INCLUDELIB LIBCMT
INCLUDELIB OLDNAMES

_DATA    SEGMENT
$SG2527    DB    'True ', 00H
    ORG $+2
$SG2529    DB    'False ', 00H
    ORG $+1
$SG2531    DB    'True', 0aH, 00H
    ORG $+2
$SG2533    DB    'False', 0aH, 00H
_DATA    ENDS
PUBLIC    _cmpFsFd
EXTRN    __fltused:DWORD
; Function compile flags: /Ogtpy
; File c:\test\float.c
;    COMDAT _cmpFsFd
_TEXT    SEGMENT
tv135 = 8                        ; size = 4
_s$ = 8                            ; size = 4
_d$ = 12                        ; size = 8
_cmpFsFd PROC                        ; COMDAT

; 4    :     float tmp = (float)d;
; 5    :     return s == tmp ? 1 : 0;

    fld    DWORD PTR _s$[esp-4]
    fld    QWORD PTR _d$[esp-4]
    fstp    DWORD PTR tv135[esp-4]
    fld    DWORD PTR tv135[esp-4]
    fucompp
    fnstsw    ax
    test    ah, 68                    ; 00000044H
    jp    SHORT $LN3@cmpFsFd
    mov    eax, 1

; 6    : }

    ret    0
$LN3@cmpFsFd:

; 4    :     float tmp = (float)d;
; 5    :     return s == tmp ? 1 : 0;

    xor    eax, eax

; 6    : }

    ret    0
_cmpFsFd ENDP
_TEXT    ENDS
PUBLIC    _main
EXTRN    _printf:PROC
; Function compile flags: /Ogtpy
_TEXT    SEGMENT
_main    PROC

; 11   :    double nv = 2.0 / 3;              ##
; 12   :    float foo = 2.0 / 3;              ## All this and ...
; 13   :      
; 14   :    if( foo == nv ) printf("True ");  ##
; 15   :    else printf("False ");

    push    OFFSET $SG2529
    call    _printf

; 16   : 
; 17   :    if( cmpFsFd( foo, nv ) ) printf("True\n");  ## this are op
+timised away!

    push    OFFSET $SG2531
    call    _printf
    add    esp, 8

; 18   :    else printf("False\n");
; 19   : 
; 20   :    return 0;

    xor    eax, eax

; 21   : }

    ret    0
_main    ENDP
_TEXT    ENDS
END

[download]
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
RIP PCW

In reply to Re^3: [Win32, C, and way OT] C floats, doubles, and their equivalence by BrowserUk
in thread [Win32, C, and way OT] C floats, doubles, and their equivalence by syphilis

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.