オーバーフローチェックをONにすると番地がずれる (ID:149617)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Delphi 10.2.3 (25.0.31059.3231)で上のコードをコンパイルしてみましたが、SetValueを呼び出しているあたりの生成コードはこんな感じになりました。

Unit1.pas.47: deg := 45;
005CE6B8 C745F42D000000   mov [ebp-$0c],$0000002d
Unit1.pas.48: trec[i].SetValue( DegToRad( deg ) );
005CE6BF 6B45F809         imul eax,dword ptr [ebp-$08],$09
005CE6C3 7105             jno $005ce6ca
005CE6C5 E8E294E3FF       call @IntOver
005CE6CA 8945E0           mov [ebp-$20],eax
005CE6CD DB45F4           fild dword ptr [ebp-$0c]
005CE6D0 D95DC4           fstp dword ptr [ebp-$3c]
005CE6D3 9B               wait 
005CE6D4 D945C4           fld dword ptr [ebp-$3c]
005CE6D7 DB2D60E75C00     fld tbyte ptr [$005ce760]
005CE6DD DEC9             fmulp st(1)
005CE6DF D95DE4           fstp dword ptr [ebp-$1c]
005CE6E2 9B               wait 
005CE6E3 D945E4           fld dword ptr [ebp-$1c]
005CE6E6 83C4F8           add esp,-$08
005CE6E9 DD1C24           fstp qword ptr [esp]
005CE6EC 9B               wait 
005CE6ED 8B45E0           mov eax,[ebp-$20]
005CE6F0 8D4405EB         lea eax,[ebp+eax-$15]
005CE6F4 E87BFFFFFF       call TTotalRec.SetValue

また動作は正常でした(Caption := 'Err';は実行されない)。igyさん指摘の通り、10.2.2で不具合が修正されたものと思われます。
参考にしてください。

←解決時は質問者本人がここをチェックしてください。

戻る