Changeset 98 for branches/interpreter/Parser3.pas

Timestamp:

Feb 3, 2017, 10:48:19 PM (8 years ago)

Author:

chronos

Message:

• Modified: Handling of constant and variables values with different type.

File:

• branches/interpreter/Parser3.pas (modified) (1 diff)

branches/interpreter/Parser3.pas

@@ -409 +409 @@
 begin
   SetLength(ProgramCode^.Types.Items, 0);
-  ProgramCode^.Types.Add(TypeCreate('string'));
+  ProgramCode^.Types.Add(TypeCreate('string', btInteger));
   TypeString := ProgramCode^.Types.GetLast;
-  ProgramCode^.Types.Add(TypeCreate('Boolean'));
+  ProgramCode^.Types.Add(TypeCreate('Boolean', btBoolean));
   TypeBoolean := ProgramCode^.Types.GetLast;
-  ProgramCode^.Types.Add(TypeCreate('Integer'));
+  ProgramCode^.Types.Add(TypeCreate('Integer', btInteger));
   TypeInteger := ProgramCode^.Types.GetLast;
-  ProgramCode^.Types.Add(TypeCreate('Char'));
+  ProgramCode^.Types.Add(TypeCreate('Char', btChar));
   TypeChar := ProgramCode^.Types.GetLast;
-  ProgramCode^.Types.Add(TypeCreate('Array'));
+  ProgramCode^.Types.Add(TypeCreate('Array', btArray));
   TypeArray := ProgramCode^.Types.GetLast;