addFloat: float1 repeat: count


    <primitive: #primitiveNativeCall module: #NativeBoostPlugin>

    ^ NBFFICallout cdecl: #( double (ulong count, double float1 ))
    emitCall: [:gen | | asm  proxy smpfr scnt|
        asm := gen asm.
        proxy := gen proxy.

        asm pop: asm ECX.
        asm fld:  asm ESP ptr64 .
        asm fld:  asm ESP ptr64 .
        asm
            label: #top;
            cmp: asm ECX with: 0;
            jz: #bottom.

            asm fadd: asm ST0 to: asm ST1.

        asm

            dec: asm ECX;
            jmp: #top.

        asm label: #bottom.
        "reserve temps for parameters passed in from Smalltalk"

                "setup loop compare and jmp or push ECX and pass through to function call"


    ]