Changeset 172 for trunk/Target.pas

Timestamp:

Aug 20, 2024, 8:58:56 PM (5 weeks ago)

Author:

chronos

Message:

• Modified: Updated flatpak.
• Modified: fgl unit usage replaced by Generics.Collections.
• Modified: Updated snap file.

File:

• trunk/Target.pas (modified) (5 diffs)

trunk/Target.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, StrUtils, Registry, RegistryEx, fgl, Dialogs,
-  FileUtil, Process, Menus, LazFileUtils;
+  Classes, SysUtils, StrUtils, Registry, RegistryEx, Generics.Collections,
+  Dialogs, FileUtil, Process, Menus, LazFileUtils;
 
 type
@@ -27 +27 @@
   { TDebugSteps }
 
-  TDebugSteps = class(TFPGObjectList<TDebugStep>)
+  TDebugSteps = class(TObjectList<TDebugStep>)
     function SearchBySourcePos(Pos: Integer): TDebugStep;
     function SearchByProgramPos(Pos: Integer): TDebugStep;
@@ -44 +44 @@
   { TBreakPoints }
 
-  TBreakPoints = class(TFPGObjectList<TBreakPoint>)
+  TBreakPoints = class(TObjectList<TBreakPoint>)
     procedure AddItem(TargetAddress: Integer);
     procedure SetSystem(TargetAddress: Integer);
@@ -59 +59 @@
   { TMessages }
 
-  TMessages = class(TFPGObjectList<TMessage>)
+  TMessages = class(TObjectList<TMessage>)
   private
     FOnChange: TNotifyEvent;
@@ -148 +148 @@
   { TTargets }
 
-  TTargets = class(TFPGObjectList<TTarget>)
+  TTargets = class(TObjectList<TTarget>)
     procedure LoadFromRegistry(Context: TRegistryContext);
     procedure SaveToRegistry(Context: TRegistryContext);