I am using the SD (4.1.4) library. When I added a SD.Filesize call I am getting the above mentioned error when compiling.
Does anyone have an idea what it is and more important how to fix it?
Michael
What is an 'endif_319 not found' error
Moderators: David Barker, Jerry Messina
Here we go:
Sub Send_Dir_extended()
Dim ReturnString As String * 13
Dim FileSizeValue As LongWord
FileSizeValue = 0
ReturnString = "FirstTry"
While ReturnString <>""
SD.ChDir(cdRoot)
ReturnString = Dir(dirNext,sdDirectory)
If ReturnString = "" Then Exit EndIf
USART.Write(ReturnString)
SD.ChDir(ReturnString)
ReturnString = Dir(dirNext,sdFile)
If ReturnString <> "" Then
Repeat
USART.Write(ReturnString)
SD.OpenFile(ReturnString)
FileSizeValue = SD.FileSize()
USART.WriteLongWord(SD.FileSize)
SD.CloseFile
ReturnString = Dir(dirNext,sdFile)
Until ReturnString = ""
EndIf
SD.ChDir(cdRoot)
ReturnString = Dir(dirNext,sdDirectory)
Wend
End Sub
Sub Send_Dir_extended()
Dim ReturnString As String * 13
Dim FileSizeValue As LongWord
FileSizeValue = 0
ReturnString = "FirstTry"
While ReturnString <>""
SD.ChDir(cdRoot)
ReturnString = Dir(dirNext,sdDirectory)
If ReturnString = "" Then Exit EndIf
USART.Write(ReturnString)
SD.ChDir(ReturnString)
ReturnString = Dir(dirNext,sdFile)
If ReturnString <> "" Then
Repeat
USART.Write(ReturnString)
SD.OpenFile(ReturnString)
FileSizeValue = SD.FileSize()
USART.WriteLongWord(SD.FileSize)
SD.CloseFile
ReturnString = Dir(dirNext,sdFile)
Until ReturnString = ""
EndIf
SD.ChDir(cdRoot)
ReturnString = Dir(dirNext,sdDirectory)
Wend
End Sub
It seems that CharlieM idea is true. It does not directly have to do with the SD.Filesize command. When I copy my code to a new file everything compiles well until I copy a conditional statement which calls a sub. Any reference to this specific sub brings the ENDIF_nnn not found error (in fact it gives in addition some FALSE_nnn errors, too)(nnn represents a number).
Any idea?
Any idea?