01-17-2005, 06:44 AM
This code crash:
This code works:
Any ideas?
Code:
Sub LUT_Init (SINPrecission As uinteger = 2, COSPrecission As uinteger = 2, SQRRange as uinteger = 262144, SQRPrecission as uinteger = 1)
If Initialized = 1 Then exit Sub
Initialized = 1
SINp = 10 ^ SINPrecission
COSp = 10 ^ COSPrecission
SQRp = 10 ^ SQRPrecission
SQRr = SQRRange
dim shared SIN_LUT(360*SINp) As LUT_Type
dim shared COS_LUT(360*COSp) As LUT_Type
dim shared SQR_LUT(SQRr*SQRp) As LUT_Type
SQRr = SQRRange*SQRp '# <- This row crash
End Sub
This code works:
Code:
Sub LUT_Init (SINPrecission As uinteger = 2, COSPrecission As uinteger = 2, SQRRange as uinteger = 262144, SQRPrecission as uinteger = 1)
If Initialized = 1 Then exit Sub
Initialized = 1
SINp = 10 ^ SINPrecission
COSp = 10 ^ COSPrecission
SQRp = 10 ^ SQRPrecission
SQRr = SQRRange
dim shared SIN_LUT(360*SINp) As LUT_Type
dim shared COS_LUT(360*COSp) As LUT_Type
dim shared SQR_LUT(SQRr*SQRp) As LUT_Type
SQRr = SQRr * SQRp
End Sub
Any ideas?