From 36e32ee607b644e0f2f4d963b0916b75e501e606 Mon Sep 17 00:00:00 2001 From: svenbarth Date: Wed, 11 Dec 2019 22:43:00 +0000 Subject: [PATCH] * more correct method names (based on patch by Blaise.ru) git-svn-id: trunk@43676 - --- compiler/nobj.pas | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/compiler/nobj.pas b/compiler/nobj.pas index 2d171882d9..fd92b39a81 100644 --- a/compiler/nobj.pas +++ b/compiler/nobj.pas @@ -45,11 +45,11 @@ interface procedure prot_get_procdefs_recursive(ImplProt:TImplementedInterface;ProtDef:TObjectDef); procedure intf_optimize_vtbls; procedure intf_allocate_vtbls; - procedure generate_vmt_def; + procedure create_vmt_def; procedure build_interface_mappings; public constructor create(c:tobjectdef); - procedure generate_vmt; + procedure build; end; @@ -800,7 +800,7 @@ implementation end; - procedure TVMTBuilder.generate_vmt_def; + procedure TVMTBuilder.create_vmt_def; var i: longint; vmtdef: trecorddef; @@ -896,7 +896,7 @@ implementation end; - procedure TVMTBuilder.generate_vmt; + procedure TVMTBuilder.build; var i : longint; def : tdef; @@ -934,7 +934,7 @@ implementation { Allocate interface tables } intf_allocate_vtbls; end; - generate_vmt_def; + create_vmt_def; current_structdef:=old_current_structdef; end; @@ -990,7 +990,7 @@ implementation vmtbuilder : TVMTBuilder; begin vmtbuilder:=TVMTBuilder.create(def); - vmtbuilder.generate_vmt; + vmtbuilder.build; vmtbuilder.free; end;