Code editor: Take static local variables declaration into account in automatic variable declaration.

[DEVELOPMENT ENVIRONMENT]
* NEW: Code editor: Take static local variables declaration into account in automatic variable declaration.
This commit is contained in:
gambas 2021-06-03 00:14:31 +02:00
parent e0434b8814
commit 486937b358
5 changed files with 9 additions and 8 deletions

View file

@ -45,7 +45,7 @@ NameList: AGL For New Fonts
DisplaySize: 16
AntiAlias: 1
FitToEm: 0
WinInfo: 0 38 13
WinInfo: 38 38 13
OnlyBitmaps: 1
BeginPrivate: 0
EndPrivate
@ -32705,8 +32705,8 @@ BDFChar: 91 122 9 1 7 0 7
rWWcJ0OV]q
BDFChar: 92 123 9 2 7 -1 11
*&''#0JME=0JG17)uos=
BDFChar: 93 124 9 3 4 -3 10
^qdb$^qdb$^qdb$^q]pM
BDFChar: 93 124 9 3 4 -1 11
^qdb$^qdb$^qdb$^]4?7
BDFChar: 94 125 9 2 7 -1 11
i%Qi=0JFJ#0JG17huE`W
BDFChar: 95 126 9 0 7 9 11

View file

@ -50,7 +50,7 @@ NameList: AGL For New Fonts
DisplaySize: 16
AntiAlias: 1
FitToEm: 0
WinInfo: 0 51 15
WinInfo: 51 51 15
OnlyBitmaps: 1
BeginPrivate: 0
EndPrivate
@ -33104,8 +33104,8 @@ BDFChar: 91 122 9 1 6 0 7
qud9:+@(JT
BDFChar: 92 123 9 2 6 -1 11
(a'qD+<\HB+<VdL(]XO9
BDFChar: 93 124 9 3 3 -3 10
J:N0#J:N0#J:N0#J:IV"
BDFChar: 93 124 9 3 3 -1 11
J:N0#J:N0#J:N0#J,fQL
BDFChar: 94 125 9 2 6 -1 11
^`XaB+<VLD+<VdL^]4?7
BDFChar: 95 126 9 1 7 9 11

View file

@ -1597,7 +1597,7 @@ Public Function GetSymbolType(sSymbol As String, Optional bPoint As Boolean) As
If aSym[0] = "END" Then Break
Endif
If aSym.Count >= 4 Then
If aSym[0] = "DIM" Then
If aSym[0] = "DIM" Or If aSym[0] = "STATIC" Then
If ReadLocalSymbolType(aSym, 1, sSymbol, $hVirtualSymbol) Then
With $hVirtualSymbol
'.Name = aSym[1]
@ -1605,6 +1605,7 @@ Public Function GetSymbolType(sSymbol As String, Optional bPoint As Boolean) As
.Kind = "l"
.LineNumber = iLine + 1
.NotPublic = True
.IsStatic = aSym[0] = "STATIC"
'.Type = sType
End With
$hSymbol = $hVirtualSymbol
@ -3657,7 +3658,7 @@ Private Sub AddLocalVariable(sName As String, sType As String)
If sLine And If Left(sLine) <> "'" Then
Highlight.Analyze(sLine)
If Highlight.Symbols[0] = "DIM" Then
If Highlight.Symbols[0] = "DIM" Or If Highlight.Symbols[0] = "STATIC" Then
iIndent = GetIndent($hEditor[I].Text)
Else If GetIndent($hEditor[I].Text) <= iIndent Then
Break