1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure wax_asm_fconst_x(); assembler; {$IFDEF FPC}nostackframe;{$ENDIF}
asm
  @GET_ARG1 :
    mov   rdx, [rbp]            // in RBP die Adresse zu einem PAnsiChar-Buffer
    xor   rcx, rcx              // Register leeren
    mov   ecx, dword ptr [rdx]  // kopiere 4 Byte aus dem PAnsiChar-Buffer
    push  rcx                   // Schiebe Argument auf den Stack
    add   qword ptr [rbp], $04  // PAnsiChar-Buffer Zeiger um 4 Byte weiterschieben

  @RETURN :
    mov   rsi, $01              // Teilfunktion war erfolgreich
    jmp   rbx                   // Springe zur aufrufenden Funktion zurück
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure wax_asm_f2u(); assembler; {$IFDEF FPC}nostackframe;{$ENDIF}
asm
  @GET_ARG :
    movss xmm0, dword ptr [rsp]  // Float Wert aus "wax_asm_fconst_x" in XMM0 Register
    pop    rcx

  @CONVERT :
    push  rbp
    push  rbx
    sub   rsp, $20              // 32 Byte müssten doch reichen?!
    mov   rbp, rsp
    call  wax_float_to_string
    add   rsp, $20
    pop   rbx
    pop   rbp

    push  rax

  @RETURN :
    mov   rsi, $01              // Teilfunktion war erfolgreich
    jmp   rbx                   // Springe zur aufrufenden Funktion zurück
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

function wax_float_to_string(AValue : TWax_Float) : TWax_String; stdcall;
var lBuffer : Array[0..63] of WideChar;
    len     : Integer;
    lVal    : TWax_Double;
begin
  lVal   := AValue;
  len    := FloatToText(lBuffer, lVal, fvExtended, ffGeneral, 15, 0, WAX_FORMAT_SETTINGS); // >>> HIER ACCESS VIOLATION
  [...] 
end;                    

1:

00000000004307A6 660F7F742420     movdqa dqword ptr [rsp+$20],xmm6