1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-26 17:10:38 +00:00

Eliminates warnings when compiling qb64.bas

This commit is contained in:
FellippeHeitor 2020-01-02 23:16:02 -03:00
parent 9f89e063f7
commit 7bf3eb09d7

View file

@ -1,6 +1,7 @@
FUNCTION ide (ignore)
'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'
ignore = ignore 'just to clear warnings of unused variables
IF idecommand$ <> "" THEN cmd = ASC(idecommand$)
IF cmd = 3 THEN 'request next line (compiler->ide)
IF idecompiledline < iden THEN
@ -131,6 +132,8 @@ FUNCTION ide2 (ignore)
STATIC wholeword.selecty1, wholeword.idecy
STATIC ForceResize, IDECompilationRequested AS _BYTE
ignore = ignore 'just to clear warnings of unused variables
CONST idesystem2.w = 20 '"Find" field width (Status bar)
char.sep$ = CHR$(34) + " =<>+-/\^:;,*()."
@ -9435,7 +9438,7 @@ FUNCTION idelanguagebox
mouseup = 0
LOOP
idelanguagebox = 0
END FUNCTION
@ -9595,6 +9598,7 @@ FUNCTION idewarningbox
mouseup = 0
LOOP
idewarningbox = 0
END FUNCTION
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)
t = o.typ
mouseup = mouseup 'just to clear warnings of unused variables
IF t = 1 THEN 'text field
IF mousedown THEN
x1 = o.par.x + o.x: y = o.par.y + o.y
@ -10973,6 +10977,7 @@ FUNCTION idemodifycommandbox
mousedown = 0
mouseup = 0
LOOP
idemodifycommandbox = 0
END FUNCTION
FUNCTION idegotobox
@ -11126,6 +11131,8 @@ FUNCTION idegotobox
mousedown = 0
mouseup = 0
LOOP
idegotobox = 0
END FUNCTION
@ -11313,6 +11320,8 @@ FUNCTION ideadvancedbox
mousedown = 0
mouseup = 0
LOOP
ideadvancedbox = 0
END FUNCTION
@ -12625,6 +12634,9 @@ FUNCTION idechoosecolorsbox
mousedown = 0
mouseup = 0
LOOP
idechoosecolorsbox = 0
EXIT FUNCTION
NewUserScheme:
IF SchemeID > 0 AND SchemeID <= PresetColorSchemes THEN
@ -14750,6 +14762,8 @@ FUNCTION DarkenFGBG (Action AS _BYTE)
_PALETTECOLOR 13, IDETextColor, 0
_PALETTECOLOR 14, IDEQuoteColor, 0
END IF
DarkenFGBG = 0
END SUB
SUB HideBracketHighlight