embedding assembler in Pharo method using NativeBoost Hooray! L test code: fr1 := GMPfrWrapper new. "create new GNU mpfr floating point number" fr1 prim_mpfr_prec_roundWithPrecision:4096 withRounding: 0. "set to 4096 digits of precision" fr1 set_d: 1. "set it to 1.0" "perform 10,000,000 4096-digit additions fr1 := fr1 + fr1 in a loop" [fr1 test:10000000.] timeToRun =>1971 ms GMPfrWrapper>>test:cnt "function prototype: mpfr_add (mpzf_t gmpf, mpf_t op1, mpf_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. ] -- Squeak from the very start (introduction to Squeak and Pharo Smalltalk for the (almost) complete and compleate beginner). https://www.youtube.com/playlist?list=PL6601A198DF14788D&feature=view_all