test:cnt

"__gmpf_add (mpfr_t gmpfr, mpfr_t op1, mpfr_t op2)"
    <primitive: #primitiveNativeCall module: #NativeBoostPlugin>

    ^ NBFFICallout cdecl: #( void (mpfr_t gmpfr, ulong cnt))
    emitCall: [:gen | | asm  proxy smpfr scnt|
        asm := gen asm.
        proxy := gen proxy.

        "reserve temps for parameters passed in from Smalltalk"
        smpfr := gen reserveTemp.
        scnt := gen reserveTemp.

        "move parameters into temps"

        asm
                 mov: asm ESP ptr to:  asm EAX;
                mov: asm EAX to: smpfr;   "gmpfr -> smpfr"
                mov: asm ESP ptr + 4 to: asm EAX;
            mov: asm EAX to: scnt.  "cnt -> scnt"


                "setup loop compare and jmp or push ECX and pass through to function call"
        asm
            mov: scnt to: asm ECX;
            label: #top;
            cmp: asm ECX with: 0;
            jz: #bottom;
            push: asm ECX.

        "call function"

        asm cdeclCall: [:call | | gmpfrAddFcnPtr |   "handles stack alignment"

        "push function arguments (note, cdecl push order is from right to left ) "
        asm
            push: smpfr;
            push: smpfr;
            push: smpfr.

        "get a function address"
        gmpfrAddFcnPtr := self nbGetSymbolAddress: 'mpfr_add' module:self nbLibraryNameOrHandle.


        "put a function address into EAX, and call function "

         asm mov: gmpfrAddFcnPtr asUImm to: asm EAX.
        asm call: asm EAX.


    ] alignment: gen stackAlignment .

    "restore ECX and jump to top for test"

    asm
        pop: asm ECX;
        dec: asm ECX;
        jmp: #top.

    asm label: #bottom.

    ]