From d50d1a655af080f734ef47d58cd3dcf794df48ea Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 27 Jul 2009 07:22:38 +0000
Subject: [PATCH] * Marked extra constructor as overloaded

git-svn-id: trunk@13467 -
---
 packages/fcl-base/src/idea.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/packages/fcl-base/src/idea.pp b/packages/fcl-base/src/idea.pp
index b752a59e8d..0f3008ed74 100644
--- a/packages/fcl-base/src/idea.pp
+++ b/packages/fcl-base/src/idea.pp
@@ -82,7 +82,7 @@ Type
   Protected
     Procedure CreateCryptKey(Const S : String; Var Key : TIDEACryptKey);
   Public
-    Constructor Create(AKey : TIDEAKey; Dest: TStream);
+    Constructor Create(AKey : TIDEAKey; Dest: TStream); overload;
     Property Key : TIDEAKey Read FKey;
   end;
 
@@ -90,7 +90,7 @@ Type
 
   TIDEAEncryptStream = Class(TIDEAStream)
   public
-    Constructor Create(Const AKey : String; Dest: TStream);
+    Constructor Create(Const AKey : String; Dest: TStream); overload;
     Destructor Destroy; override;
     function Write(const Buffer; Count: Longint): Longint; override;
     function Seek(Offset: Longint; Origin: Word): Longint; override;
@@ -101,7 +101,7 @@ Type
 
   TIDEADeCryptStream = Class(TIDEAStream)
   public
-    Constructor Create(Const AKey : String; Dest: TStream);
+    Constructor Create(Const AKey : String; Dest: TStream); overload;
     function Read(var Buffer; Count: Longint): Longint; override;
     function Seek(Offset: Longint; Origin: Word): Longint; override;
   end;