mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-18 08:15:14 +00:00
Eliminates warnings when compiling qb64.bas
This commit is contained in:
parent
9f89e063f7
commit
7bf3eb09d7
|
@ -1,6 +1,7 @@
|
||||||
FUNCTION ide (ignore)
|
FUNCTION ide (ignore)
|
||||||
'Note: ide is a function which optimizes the interaction between the IDE and compiler (ide2)
|
'Note: ide is a function which optimizes the interaction between the IDE and compiler (ide2)
|
||||||
' by avoiding unnecessary bloat associated with entering the main IDE function 'ide2'
|
' by avoiding unnecessary bloat associated with entering the main IDE function 'ide2'
|
||||||
|
ignore = ignore 'just to clear warnings of unused variables
|
||||||
IF idecommand$ <> "" THEN cmd = ASC(idecommand$)
|
IF idecommand$ <> "" THEN cmd = ASC(idecommand$)
|
||||||
IF cmd = 3 THEN 'request next line (compiler->ide)
|
IF cmd = 3 THEN 'request next line (compiler->ide)
|
||||||
IF idecompiledline < iden THEN
|
IF idecompiledline < iden THEN
|
||||||
|
@ -131,6 +132,8 @@ FUNCTION ide2 (ignore)
|
||||||
STATIC wholeword.selecty1, wholeword.idecy
|
STATIC wholeword.selecty1, wholeword.idecy
|
||||||
STATIC ForceResize, IDECompilationRequested AS _BYTE
|
STATIC ForceResize, IDECompilationRequested AS _BYTE
|
||||||
|
|
||||||
|
ignore = ignore 'just to clear warnings of unused variables
|
||||||
|
|
||||||
CONST idesystem2.w = 20 '"Find" field width (Status bar)
|
CONST idesystem2.w = 20 '"Find" field width (Status bar)
|
||||||
char.sep$ = CHR$(34) + " =<>+-/\^:;,*()."
|
char.sep$ = CHR$(34) + " =<>+-/\^:;,*()."
|
||||||
|
|
||||||
|
@ -9435,7 +9438,7 @@ FUNCTION idelanguagebox
|
||||||
mouseup = 0
|
mouseup = 0
|
||||||
LOOP
|
LOOP
|
||||||
|
|
||||||
|
idelanguagebox = 0
|
||||||
|
|
||||||
END FUNCTION
|
END FUNCTION
|
||||||
|
|
||||||
|
@ -9595,6 +9598,7 @@ FUNCTION idewarningbox
|
||||||
mouseup = 0
|
mouseup = 0
|
||||||
LOOP
|
LOOP
|
||||||
|
|
||||||
|
idewarningbox = 0
|
||||||
END FUNCTION
|
END FUNCTION
|
||||||
|
|
||||||
SUB ideobjupdate (o AS idedbotype, focus, f, focusoffset, kk$, altletter$, mb, mousedown, mouseup, mx, my, info, mw)
|
SUB ideobjupdate (o AS idedbotype, focus, f, focusoffset, kk$, altletter$, mb, mousedown, mouseup, mx, my, info, mw)
|
||||||
|
@ -9603,7 +9607,7 @@ SUB ideobjupdate (o AS idedbotype, focus, f, focusoffset, kk$, altletter$, mb, m
|
||||||
sep = CHR$(0)
|
sep = CHR$(0)
|
||||||
|
|
||||||
t = o.typ
|
t = o.typ
|
||||||
|
mouseup = mouseup 'just to clear warnings of unused variables
|
||||||
IF t = 1 THEN 'text field
|
IF t = 1 THEN 'text field
|
||||||
IF mousedown THEN
|
IF mousedown THEN
|
||||||
x1 = o.par.x + o.x: y = o.par.y + o.y
|
x1 = o.par.x + o.x: y = o.par.y + o.y
|
||||||
|
@ -10973,6 +10977,7 @@ FUNCTION idemodifycommandbox
|
||||||
mousedown = 0
|
mousedown = 0
|
||||||
mouseup = 0
|
mouseup = 0
|
||||||
LOOP
|
LOOP
|
||||||
|
idemodifycommandbox = 0
|
||||||
END FUNCTION
|
END FUNCTION
|
||||||
|
|
||||||
FUNCTION idegotobox
|
FUNCTION idegotobox
|
||||||
|
@ -11126,6 +11131,8 @@ FUNCTION idegotobox
|
||||||
mousedown = 0
|
mousedown = 0
|
||||||
mouseup = 0
|
mouseup = 0
|
||||||
LOOP
|
LOOP
|
||||||
|
|
||||||
|
idegotobox = 0
|
||||||
END FUNCTION
|
END FUNCTION
|
||||||
|
|
||||||
|
|
||||||
|
@ -11313,6 +11320,8 @@ FUNCTION ideadvancedbox
|
||||||
mousedown = 0
|
mousedown = 0
|
||||||
mouseup = 0
|
mouseup = 0
|
||||||
LOOP
|
LOOP
|
||||||
|
|
||||||
|
ideadvancedbox = 0
|
||||||
END FUNCTION
|
END FUNCTION
|
||||||
|
|
||||||
|
|
||||||
|
@ -12625,6 +12634,9 @@ FUNCTION idechoosecolorsbox
|
||||||
mousedown = 0
|
mousedown = 0
|
||||||
mouseup = 0
|
mouseup = 0
|
||||||
LOOP
|
LOOP
|
||||||
|
|
||||||
|
idechoosecolorsbox = 0
|
||||||
|
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
NewUserScheme:
|
NewUserScheme:
|
||||||
IF SchemeID > 0 AND SchemeID <= PresetColorSchemes THEN
|
IF SchemeID > 0 AND SchemeID <= PresetColorSchemes THEN
|
||||||
|
@ -14750,6 +14762,8 @@ FUNCTION DarkenFGBG (Action AS _BYTE)
|
||||||
_PALETTECOLOR 13, IDETextColor, 0
|
_PALETTECOLOR 13, IDETextColor, 0
|
||||||
_PALETTECOLOR 14, IDEQuoteColor, 0
|
_PALETTECOLOR 14, IDEQuoteColor, 0
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
DarkenFGBG = 0
|
||||||
END SUB
|
END SUB
|
||||||
|
|
||||||
SUB HideBracketHighlight
|
SUB HideBracketHighlight
|
||||||
|
|
Loading…
Reference in a new issue