From e9f841ded0abc9dd7d6197bb71812242272d8309 Mon Sep 17 00:00:00 2001 From: Brian G Date: Sun, 21 Mar 2021 06:40:47 -0700 Subject: [PATCH] [Scripter] * BUG: Cleanup unused parameters in Process Use statement --- app/src/gbs3/.hidden/CHANGELOG | 2 ++ app/src/gbs3/.src/Reader.class | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) 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)