Changeset 9 for branches/ByteArray/Assembler.pas

Timestamp:

Aug 6, 2024, 10:31:16 PM (2 months ago)

Author:

chronos

Message:

• Modified: Optimized DeviceMapper read/write handlers calls without case statement.
• Modified: Use TInt as base data type which can be redefined to different higher integer type. For start it is Int64.

Location:

branches/ByteArray

Files:

• . (modified) (1 prop)
• Assembler.pas (modified) (14 diffs)

branches/ByteArray/Assembler.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Instructions, Cpu, Generics.Collections, BigInt,
+  Classes, SysUtils, Instructions, Cpu, Generics.Collections, Int,
   Memory, Message, Parser;
 
@@ -23 +23 @@
     FOnError: TErrorEvent;
     Parser: TParser;
-    InstDataWidth: TBigIntSize;
-    InstAddressWidth: TBigIntSize;
+    InstDataWidth: TIntSize;
+    InstAddressWidth: TIntSize;
     function ParseVar: Boolean;
     function ParseDb: Boolean;
@@ -32 +32 @@
     function ParseLabel: Boolean;
     procedure UpdateLabelRefs;
-    function ParseNumParam(out Number: TBigInt): Boolean;
+    function ParseNumParam(out Number: TInt): Boolean;
     function ParseReg(out RegIndex: TRegIndex): Boolean;
-    function ParseDataWidth(out Size: TBigIntSize): Boolean;
-    function ParseAddressWidth(out Size: TBigIntSize): Boolean;
+    function ParseDataWidth(out Size: TIntSize): Boolean;
+    function ParseAddressWidth(out Size: TIntSize): Boolean;
   public
     InstructionSet: TInstructionInfos;
     Memory: TMemory;
-    Labels: TDictionary<string, TBigInt>;
+    Labels: TDictionary<string, TInt>;
     LabelRefs: TList<TLabelRef>;
-    Variables: TDictionary<string, TBigInt>;
+    Variables: TDictionary<string, TInt>;
     Messages: TMessages;
-    DataWidth: TBigIntSize;
-    AddressWidth: TBigIntSize;
+    DataWidth: TIntSize;
+    AddressWidth: TIntSize;
     procedure Error(Text: string; Pos: TPoint);
     procedure Compile(Source: string);
@@ -86 +86 @@
 var
   I: Integer;
-  Addr: TBigInt;
+  Addr: TInt;
 begin
   for I := 0 to LabelRefs.Count - 1 do begin
@@ -96 +96 @@
 end;
 
-function TAssembler.ParseNumParam(out Number: TBigInt): Boolean;
+function TAssembler.ParseNumParam(out Number: TInt): Boolean;
 var
   Token: TToken;
@@ -105 +105 @@
   Token := Parser.ReadNext;
   if Token.Kind = tkNumber then begin
-    if TryStrToBigInt(Token.Value, Number) then begin
+    if TryStrToInt64(Token.Value, Number) then begin
       Result := True;
     end;
@@ -142 +142 @@
 end;
 
-function TAssembler.ParseDataWidth(out Size: TBigIntSize): Boolean;
+function TAssembler.ParseDataWidth(out Size: TIntSize): Boolean;
 var
   LastPos: TParserPos;
@@ -160 +160 @@
 end;
 
-function TAssembler.ParseAddressWidth(out Size: TBigIntSize): Boolean;
+function TAssembler.ParseAddressWidth(out Size: TIntSize): Boolean;
 var
   LastPos: TParserPos;
@@ -218 +218 @@
   TokenName: TToken;
   TokenValue: TToken;
-  Number: TBigInt;
+  Number: TInt;
 begin
   Result := False;
@@ -229 +229 @@
         if TokenValue.Kind = tkNumber then begin
           if not Labels.ContainsKey(TokenName.Value) and not Variables.ContainsKey(TokenName.Value) then begin
-            if TryStrToBigInt(TokenValue.Value, Number) then
+            if TryStrToInt64(TokenValue.Value, Number) then
               Variables.Add(TokenName.Value, Number)
             else Error(SExpectedNumber, TokenValue.Pos);
@@ -246 +246 @@
 var
   Token: TToken;
-  Number: TBigInt;
+  Number: TInt;
 begin
   Result := False;
@@ -384 +384 @@
   I: Integer;
   RegIndex: TRegIndex;
-  Number: TBigInt;
+  Number: TInt;
   Token: TToken;
 begin
@@ -464 +464 @@
   LastPos: TParserPos;
   Token: TToken;
-  Addr: TBigInt;
+  Addr: TInt;
 begin
   Result := False;
@@ -513 +513 @@
   InstructionSet := TInstructionInfos.Create;
   InstructionSet.Init;
-  Labels := TDictionary<string, TBigInt>.Create;
+  Labels := TDictionary<string, TInt>.Create;
   LabelRefs := TList<TLabelRef>.Create;
-  Variables := TDictionary<string, TBigInt>.Create;
+  Variables := TDictionary<string, TInt>.Create;
 end;