Changeset 37 for branches/DelphiToC/Analyze/UPascalParser.pas

Timestamp:

Aug 4, 2010, 4:10:35 PM (14 years ago)

Author:

george

Message:

Fixed parsing array range error.

File:

• branches/DelphiToC/Analyze/UPascalParser.pas (modified) (4 diffs)

branches/DelphiToC/Analyze/UPascalParser.pas

@@ -6 +6 @@
 
 uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, UPascalSource, FileUtil;
 
@@ -183 +183 @@
 var
   I: Integer;
-//  II: Integer;
+  II: Integer;
   J: Integer;
 const
   SpecChar: set of char = [';', '.', ',', ':', '(', ')', '[', ']', '+', '-', '/', '*',
     '^', '=', '<' , '>' , '@'];
-  DoubleSpecChar : array[1..7] of string = (':=', '..', '<=', '>=', '<>', '+=', '-=');
+  DoubleSpecChar : array[0..6] of string = (':=', '..', '<=', '>=', '<>', '+=', '-=');
 begin
   Result := '';
@@ -217 +217 @@
     if (Text[J] in SpecChar) then begin
       if (Text[J + 1] in SpecChar) then begin
-        for I := 0 to High(DoubleSpecChar) do
-          if Copy(Text, J, 2) = DoubleSpecChar[I] then begin
+        for II := 0 to High(DoubleSpecChar) do
+          if Copy(Text, J, 2) = DoubleSpecChar[II] then begin
             Result := Copy(Text, J, 2);
             Inc(J, 2);
@@ -549 +549 @@
 begin
   with Parser do begin
-    if NextCode = 'program' then ParseProgram(Parser)
-    else if NextCode = 'unit' then ParseUnit(Parser)
+    if NextCode = 'program' then
+      ParseProgram(Parser)
+    else if NextCode = 'unit' then
+      ParseUnit(Parser)
     else ParseProgram(Parser);
   end;