確かbasic/function.sbp内の関数powの仕様の関係でDouble型を返すことになってたはずです。(コンパイラ側の仕様で必ず内包される関数のひとつの筈。)
グローバル領域でのオーバーロードができれば対処できるかもしれません。
どちらにしても4.24だと無理だった気がするんですが。
具体的には
を定義(オーバーロード)する必要があるわけです。
直接書き換えるとDouble型の演算がうまくいかなくなると思うのでやめておいてください。
#Fixとかは組み込むのにこいつを組み込まないのはどうしてなんでしょうねぇ・・・。
追記:山本さんが機械語を読まないのを思い出したので、組み込み用のバイナリとか作ってみました。 [ここをクリックすると内容が表示されます] [ここをクリックすると非表示にします]どうみても暇なだけです。
55 8B EC 53 56 8B 4D 0C B8 01 00 00 00 8B 5D 08
F7 C1 01 00 00 00 74 02 F7 EB 8B F0 8B C3 F7 E8
8B D8 8B C6 D1 E9 75 E8 5E 5B C9 C2 08 00
(46byte,呼び出し:stdcall,引数:上のコードと同一)
source code [ここをクリックすると内容が表示されます] [ここをクリックすると非表示にします]コード:
pow proc x:dword,n:dword
push ebx
push esi
;ret=r=eax
;n=ecx
;x=ebx
mov ecx,n
mov eax,1
mov ebx,x
_l1:
test ecx,1
jz _l2
imul ebx
_l2:
mov esi,eax
mov eax,ebx
imul eax
mov ebx,eax
mov eax,esi
shr ecx,1
jnz _l1
pop esi
pop ebx
ret
pow endp
_________________
Website→
http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。