IsNaNがおかしいのでは

[T,S,]

Active Basic 5 CP3 の、
include/basic/function.abpにおいてこのような関数がありましたが、

コード: 全て選択

Function IsNaN(ByVal x As Double) As BOOL
    Dim p As *DWord
    p = VarPtr(x) As *DWord
    If (p[1] And &H7FF00000) = &H7FF00000 Then
        If (p[0] <> 0) Or ((p[1] And &HFFFFF) <> 0) Then
            IsNaN = TRUE
        End If
　　End If
　　IsNaN=FALSE
End Function

これだと、いかなる条件でもFALSEしか返らないような気がします。[/code]

[イグトランス]

いえ，これで良いのです。

このIsNaNは，最初のIfで指数部を調べ，次のIfで仮数部を調べています。
NaNは「符号部：不定，指数部：全ビット1，仮数部：少なくともどこか1ビット立っている」ということになっています。
Double型は，符号部：1ビット，指数部：11ビット，仮数部：53ビットあり，
しかもx86/x64ではリトルエンディアンであることを考慮するとそのようになるのです。

参考：IA-32 インテル(R) アーキテクチャー・ソフトウェア・デベロッパーズ・マニュアル 上巻: 基本アーキテクチャー 4.2.2 表4.3

[T,S,]

説明ありがとうございます。
しかし、自分が言っているのは、

If (p[1] And &H7FF00000) = &H7FF00000 Then
If (p[0] <> 0) Or ((p[1] And &HFFFFF) <> 0) Then
IsNaN = TRUE
End If
End If

ここで、せっかく IsNaN = TRUE となっても、
そこが終わった後

IsNaN=FALSE

代入してしまっているのではないか、ということです。

[tak]

その点には気がついたので結構前に修正いたしました。

次のリリースで修正版が配布されるとおもいますので、しばらくお待ちください。

または Include\basic\function.sbp を次の最新版と差し替えてもらっても構いません。
http://cvs.sourceforge.jp/cgi-bin/viewc ... nction.sbp


ご報告ありがとうございました。

[T,S,]

ありがとうございました