Changeset 138 for branches/virt simple/UCompiler.pas

Timestamp:

Jan 4, 2018, 2:00:49 PM (7 years ago)

Author:

chronos

Message:

• Modified: Preparation for support for multiple memory types.

File:

• branches/virt simple/UCompiler.pas (modified) (3 diffs)

branches/virt simple/UCompiler.pas

@@ -47 +47 @@
   Param2: string;
   ParamType1: TParamType;
-  Indirect1: Boolean;
+  Indirect1: TMemoryType;
   Value1: Integer;
   ParamType2: TParamType;
-  Indirect2: Boolean;
+  Indirect2: TMemoryType;
   Value2: Integer;
   OutValue: Integer;
@@ -74 +74 @@
     if Param1 <> '' then begin
     if (Copy(Param1, 1, 1) = '[') and (Copy(Param1, Length(Param1), 1) = ']') then begin
-      Indirect1 := True;
+      Indirect1 := mtData;
       Param1 := Trim(Copy(Param1, 2, Length(Param1) - 2));
-    end else Indirect1 := False;
+    end else Indirect1 := mtNone;
     if Copy(Param1, 1, 1) = 'R' then begin
       ParamType1 := ptRegister;
@@ -103 +103 @@
     if Param2 <> '' then begin
     if (Copy(Param2, 1, 1) = '[') and (Copy(Param2, Length(Param2), 1) = ']') then begin
-      Indirect2 := True;
+      Indirect2 := mtData;
       Param2 := Trim(Copy(Param2, 2, Length(Param2) - 2));
-    end else Indirect2 := False;
+    end else Indirect2 := mtNone;
     if Copy(Param2, 1, 1) = 'R' then begin
       ParamType2 := ptRegister;