diff --git a/app/src/gbs3/.hidden/CHANGELOG b/app/src/gbs3/.hidden/CHANGELOG index 73e4f858e..dea734ffc 100644 --- a/app/src/gbs3/.hidden/CHANGELOG +++ b/app/src/gbs3/.hidden/CHANGELOG @@ -1,3 +1,5 @@ +* Sun Mar 21 2021 benoit 3.15.90 + * Sat Mar 20 2021 benoit 3.15.90 * Thu Mar 18 2021 benoit 3.15.90 diff --git a/app/src/gbs3/.src/Reader.class b/app/src/gbs3/.src/Reader.class index 6c263b6b8..47026770e 100644 --- a/app/src/gbs3/.src/Reader.class +++ b/app/src/gbs3/.src/Reader.class @@ -188,7 +188,7 @@ Private Sub TokenizeFile(SourceBuffer As String) '' check for inclusion of Components or libraries Else If symbols[0] = "USE" If symbols.count >= 2 Then - ProcessUse(symbols, types, sLine) + ProcessUse(sLine) Continue Else CompileError(cIncludeStack.last, CurrentLineNumber.last, "USE statement without component or library definitions") @@ -284,7 +284,7 @@ Public Sub ProcessClass(name As String, Start As Integer, DefLine As Integer, Op Return cDef End -Public Sub ProcessUse(Symbols As String[], aTypes As Integer[], sLine As String) +Public Sub ProcessUse(sLine As String) Warning("Use :" & File.Name(cIncludeStack.last & "." & CurrentLineNumber.last & ":" & sLine)) UseLibComp(cIncludeStack.last, CurrentLineNumber.last, sLine)