It gave me a bunch of new warnings, which is great. I dealt with those problems, but one remains that I can't figure out.
[Warning] Convert.bas(580): Return value of function 'OL_0_hexToStr' might be undefined
In Convert.bas...
Code: Select all
public function hexToStr(pValue as Byte, pPad as Byte, pPadChar as Char = "0") as String(17)
FTextAddress = @Result
Dec08ToStrFormat(pValue, 16, pPad, pPadChar, pPadChar)
end function
...
sub dec08ToStrFormat(pValue as Byte, pBase, pPad as Byte, pPadChar, pSignChar as Char, pMax as Byte = 16)
Dim Number as Byte
Dim TextPtr as POSTDEC0
Dim FirstPass as Boolean
FirstPass = true
if pPad > pMax then
pPad = pMax
endif
inc(FTextAddress, pPad)
TextPtr = null
While pPad > 0
if pValue = 0 then
if FirstPass then
pSignChar = "0"
endif
TextPtr = pSignChar
pSignChar = pPadChar
else
Number = pValue Mod pBase
if Number > 9 then
inc(Number, 7)
endif
TextPtr = Number + 48
pValue = pValue / pBase
endif
dec(pPad)
FirstPass = false
Wend
end sub
Code: Select all
Dim
...
FTextAddress as FSR0, // address of result string
...