Changeset 223 for branches/CpuSingleSize/UAssembler.pas

Timestamp:

Jul 12, 2022, 10:43:40 PM (2 years ago)

Author:

chronos

Message:

• Modified: More instructions.
• Modified: Optimized instruction execution with procedure array instead case.

File:

• branches/CpuSingleSize/UAssembler.pas (modified) (2 diffs)

branches/CpuSingleSize/UAssembler.pas

@@ -1 +1 @@
 unit UAssembler;
-
-{$mode delphi}
 
 interface
@@ -142 +140 @@
         TokenValue := Parser.ReadNext;
         if TokenValue.Kind = tkNumber then begin
-          if not Labels.ContainsKey(TokenName.Value) then begin
+          if not Labels.ContainsKey(TokenName.Value) and not Variables.ContainsKey(TokenName.Value) then begin
             if TryStrToInt(TokenValue.Value, Number) then
               Variables.Add(TokenName.Value, Number)