Fixed a bug in the Code-Inspector

Added madExcept again
This commit is contained in:
Christian Hammacher 2006-01-12 19:14:56 +00:00
parent 564dfbf329
commit 7183954b08
4 changed files with 7 additions and 14 deletions

View File

@ -115,7 +115,7 @@ AutoIncBuild=1
MajorVer=1 MajorVer=1
MinorVer=4 MinorVer=4
Release=0 Release=0
Build=12 Build=13
Debug=0 Debug=0
PreRelease=0 PreRelease=0
Special=0 Special=0
@ -126,7 +126,7 @@ CodePage=1252
[Version Info Keys] [Version Info Keys]
CompanyName=AMX Mod X Dev Team CompanyName=AMX Mod X Dev Team
FileDescription= FileDescription=
FileVersion=1.4.0.12 FileVersion=1.4.0.13
InternalName=gaben InternalName=gaben
LegalCopyright=AMX Mod X Dev Team LegalCopyright=AMX Mod X Dev Team
LegalTrademarks= LegalTrademarks=

Binary file not shown.

Binary file not shown.

View File

@ -408,7 +408,6 @@ begin
FItems.Clear; FItems.Clear;
eVarCount := 0; eVarCount := 0;
eConstCount := 0; eConstCount := 0;
eCILine := eLine;
{ Constants and Variables } { Constants and Variables }
if (IsAtStart('new', eCurrLine, False)) or ((IsAtStart('stock', eCurrLine, False) and (CountChars(RemoveStringsAndComments(eCurrLine, True, True), '(') = 0) and (CountChars(RemoveStringsAndComments(eCurrLine, True, True), ')') = 0))) then begin if (IsAtStart('new', eCurrLine, False)) or ((IsAtStart('stock', eCurrLine, False) and (CountChars(RemoveStringsAndComments(eCurrLine, True, True), '(') = 0) and (CountChars(RemoveStringsAndComments(eCurrLine, True, True), ')') = 0))) then begin
@ -467,9 +466,7 @@ begin
eStr.Free; eStr.Free;
frmMain.jviCode.EndUpdate; frmMain.jviCode.EndUpdate;
if eLine <> eCILine then if eLine <> eCILine then
UpdateCI_Pawn(eLine) UpdateCI_Pawn(eLine);
else
eCILine := -1;
exit; exit;
end; end;
{ Conditions } { Conditions }
@ -512,10 +509,10 @@ begin
eCurrLine := Trim(StringReplace(eBackupLine, #9, #32, [rfReplaceAll])); eCurrLine := Trim(StringReplace(eBackupLine, #9, #32, [rfReplaceAll]));
eCurrLine := RemoveStringsAndComments(eCurrLine, False, True); eCurrLine := RemoveStringsAndComments(eCurrLine, False, True);
eCurrLine := Trim(Copy(eCurrLine, GetMatchingBrace(eCurrLine) + 1, Length(eCurrLine))); eCurrLine := Trim(Copy(eCurrLine, GetMatchingBrace(eCurrLine) + 1, Length(eCurrLine)));
if eCurrLine = '{' then { if eCurrLine = '{' then
AddField('Action', 'If-Condition', 'New Code-Block').ReadOnly := True AddField('Action', 'If-Condition', 'New Code-Block').ReadOnly := True
else else
AddFunc('Action', eCurrLine, 'If-Condition'); AddFunc('Action', eCurrLine, 'If-Condition'); }
end; end;
{--> Analyze comments } {--> Analyze comments }
eCurrLine := Trim(StringReplace(eBackupLine, #9, #32, [rfReplaceAll])); eCurrLine := Trim(StringReplace(eBackupLine, #9, #32, [rfReplaceAll]));
@ -526,9 +523,7 @@ begin
eStr.Free; eStr.Free;
frmMain.jviCode.EndUpdate; frmMain.jviCode.EndUpdate;
if eLine <> eCILine then if eLine <> eCILine then
UpdateCI_Pawn(eLine) UpdateCI_Pawn(eLine);
else
eCILine := -1;
exit; exit;
end; end;
{ Defined } { Defined }
@ -555,9 +550,7 @@ begin
eStr.Free; eStr.Free;
frmMain.jviCode.EndUpdate; frmMain.jviCode.EndUpdate;
if eLine <> eCILine then if eLine <> eCILine then
UpdateCI_Pawn(eLine) UpdateCI_Pawn(eLine);
else
eCILine := -1;
exit; exit;
end; end;
{ Included } { Included }