(***********************************************************************)

(* Delphi Code Coverage *)

(* *)

(* A quick hack of a Code Coverage Tool for Delphi *)

(* by Christer Fahlgren and Nick Ring *)

(* *)

(* This Source Code Form is subject to the terms of the Mozilla Public *)

(* License, v. 2.0. If a copy of the MPL was not distributed with this *)

(* file, You can obtain one at http://mozilla.org/MPL/2.0/. *)

unit DebugModule;

interface

uses

System.Classes,

I_DebugModule,

JCLDebug;

type

TDebugModule = class(TInterfacedObject, IDebugModule)

strict private

FName: String;

FBase: HMODULE;

FSize: Cardinal;

FMapScanner: TJCLMapScanner;

public

function Name: string;

function Base: HMODULE;

function Size: Cardinal;

function MapScanner: TJCLMapScanner;

constructor Create(

const AName: string;

const ABase: HMODULE;

const ASize: Cardinal;

const AMapScanner: TJCLMapScanner);

end;

implementation

constructor TDebugModule.Create(

const AName: string;

const ABase: HMODULE;

const ASize: Cardinal;

const AMapScanner: TJCLMapScanner);

begin

inherited Create;

FName := AName;

FBase := ABase;

FSize := ASize;

FMapScanner := AMapScanner;

end;

function TDebugModule.Name: string;

begin

Result := FName;

end;

function TDebugModule.Base: HMODULE;

begin

Result := FBase;

end;

function TDebugModule.Size: Cardinal;

begin

Result := FSize;

end;

function TDebugModule.MapScanner: TJCLMapScanner;

begin

Result := FMapScanner;

end;

end.