diff options
Diffstat (limited to 'closures/compiler/pdecobj.pas')
| -rw-r--r-- | closures/compiler/pdecobj.pas | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/closures/compiler/pdecobj.pas b/closures/compiler/pdecobj.pas index 1c29df2437..098dcc67d1 100644 --- a/closures/compiler/pdecobj.pas +++ b/closures/compiler/pdecobj.pas @@ -268,13 +268,7 @@ implementation if current_objectdef.find_implemented_interface(intfdef)<>nil then Message1(sym_e_duplicate_id,intfdef.objname^) else - begin - { allocate and prepare the GUID only if the class - implements some interfaces. } - if current_objectdef.ImplementedInterfaces.count = 0 then - current_objectdef.prepareguid; - current_objectdef.ImplementedInterfaces.Add(TImplementedInterface.Create(intfdef)); - end; + current_objectdef.register_implemented_interface(intfdef); end; |