Changeset 18 for trunk/Compiler/Analyze

Timestamp:

Nov 9, 2010, 8:10:12 AM (14 years ago)

Author:

george

Message:

• Modified: Generation of types in ProducerPascal.

File:

• trunk/Compiler/Analyze/UAnalyzerPascal.pas (modified) (2 diffs)

trunk/Compiler/Analyze/UAnalyzerPascal.pas

@@ -1198 +1198 @@
       UseName := NextToken;
       if NextTokenType = ttIdentifier then begin
-        UseType := TypeList.Parent.Types.Search(UseName);
+        TTypeArray(Result).IndexType := TypeList.Parent.Types.Search(UseName);
         if not Assigned(TTypeArray(Result).IndexType) then
           ErrorMessage(SUndefinedType, [UseName], -1) else
@@ -1204 +1204 @@
       end else
       if NextTokenType = ttConstantNumber then begin
-        UseType := ParseTypeSubRange(TypeList, Name);
-        if not Assigned(UseType) then begin
+        TTypeArray(Result).IndexType := ParseTypeSubRange(TypeList, Name);
+        if not Assigned(TTypeArray(Result).IndexType) then begin
           ErrorMessage(SInvalidConstruction, [], -1);
         end;