Changeset 238 for branches/CpuSingleSize/Assembler.pas

Timestamp:

Jul 15, 2023, 12:51:15 AM (16 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.
• Fixed: Memory leaks.

File:

• branches/CpuSingleSize/Assembler.pas (moved) (moved from branches/CpuSingleSize/UAssembler.pas ) (6 diffs)

branches/CpuSingleSize/Assembler.pas

@@ -1 @@
-unit UAssembler;
+unit Assembler;
 
 interface
 
 uses
-  Classes, SysUtils, UInstructions, UCpu, Generics.Collections,
-  UMemory, UMessages, UParser;
+  Classes, SysUtils, Instructions, Cpu, Generics.Collections,
+  Memory, Message, Parser;
 
 type
@@ -36 +36 @@
     LabelRefs: TList<TLabelRef>;
     Variables: TDictionary<string, Integer>;
-    Messages: TMessages;
+    Message: TMessages;
     procedure Error(Text: string; Pos: TPoint);
     procedure Compile(Source: string);
@@ -95 +95 @@
 procedure TAssembler.Error(Text: string; Pos: TPoint);
 begin
-  Messages.AddMessage(Text, Pos);
+  Message.AddMessage(Text, Pos);
   if Assigned(FOnError) then
     FOnError(Text, Pos);
@@ -102 +102 @@
 procedure TAssembler.Compile(Source: string);
 begin
-  Messages.Clear;
+  Message.Clear;
   Memory.Size := 0;
   Labels.Clear;
@@ -319 +319 @@
   Parser := TParser.Create;
   Parser.OnError := Error;
-  Messages := TMessages.Create;
+  Message := TMessages.Create;
   Memory := TMemory.Create;
   InstructionSet := TInstructionSet.Create;
@@ -334 +334 @@
   FreeAndNil(InstructionSet);
   FreeAndNil(Memory);
-  FreeAndNil(Messages);
+  FreeAndNil(Message);
   FreeAndNil(Parser);
   inherited;