diff options
| author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2012-03-01 21:47:32 +0000 |
|---|---|---|
| committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2012-03-01 21:47:32 +0000 |
| commit | cde65b89bb160b8c37bd98c2696494896d6dc2c7 (patch) | |
| tree | ff9dfbd44d682f3467733998cfac2032b045ffec /rtl | |
| parent | a72c0a5630c32706d6ac8c6da20737e8c7718935 (diff) | |
| download | fpc-cde65b89bb160b8c37bd98c2696494896d6dc2c7.tar.gz | |
* remove empty override tpersist.destroy(), patch by Luiz Americo, Mantis #21387
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@20460 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl')
| -rw-r--r-- | rtl/objpas/classes/classesh.inc | 1 | ||||
| -rw-r--r-- | rtl/objpas/classes/persist.inc | 7 |
2 files changed, 0 insertions, 8 deletions
diff --git a/rtl/objpas/classes/classesh.inc b/rtl/objpas/classes/classesh.inc index 13c218775d..e804d180e2 100644 --- a/rtl/objpas/classes/classesh.inc +++ b/rtl/objpas/classes/classesh.inc @@ -396,7 +396,6 @@ type procedure DefineProperties(Filer: TFiler); virtual; function GetOwner: TPersistent; dynamic; public - destructor Destroy; override; procedure Assign(Source: TPersistent); virtual; function GetNamePath: string; virtual; {dynamic;} end; diff --git a/rtl/objpas/classes/persist.inc b/rtl/objpas/classes/persist.inc index c970715195..9eb85acd7b 100644 --- a/rtl/objpas/classes/persist.inc +++ b/rtl/objpas/classes/persist.inc @@ -49,13 +49,6 @@ begin Result:=Nil; end; -destructor TPersistent.Destroy; - -begin - Inherited Destroy; -end; - - procedure TPersistent.Assign(Source: TPersistent); begin |