|
@@ -45,11 +45,11 @@ interface
|
|
procedure prot_get_procdefs_recursive(ImplProt:TImplementedInterface;ProtDef:TObjectDef);
|
|
procedure prot_get_procdefs_recursive(ImplProt:TImplementedInterface;ProtDef:TObjectDef);
|
|
procedure intf_optimize_vtbls;
|
|
procedure intf_optimize_vtbls;
|
|
procedure intf_allocate_vtbls;
|
|
procedure intf_allocate_vtbls;
|
|
- procedure generate_vmt_def;
|
|
|
|
|
|
+ procedure create_vmt_def;
|
|
procedure build_interface_mappings;
|
|
procedure build_interface_mappings;
|
|
public
|
|
public
|
|
constructor create(c:tobjectdef);
|
|
constructor create(c:tobjectdef);
|
|
- procedure generate_vmt;
|
|
|
|
|
|
+ procedure build;
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
@@ -800,7 +800,7 @@ implementation
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
- procedure TVMTBuilder.generate_vmt_def;
|
|
|
|
|
|
+ procedure TVMTBuilder.create_vmt_def;
|
|
var
|
|
var
|
|
i: longint;
|
|
i: longint;
|
|
vmtdef: trecorddef;
|
|
vmtdef: trecorddef;
|
|
@@ -896,7 +896,7 @@ implementation
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
- procedure TVMTBuilder.generate_vmt;
|
|
|
|
|
|
+ procedure TVMTBuilder.build;
|
|
var
|
|
var
|
|
i : longint;
|
|
i : longint;
|
|
def : tdef;
|
|
def : tdef;
|
|
@@ -934,7 +934,7 @@ implementation
|
|
{ Allocate interface tables }
|
|
{ Allocate interface tables }
|
|
intf_allocate_vtbls;
|
|
intf_allocate_vtbls;
|
|
end;
|
|
end;
|
|
- generate_vmt_def;
|
|
|
|
|
|
+ create_vmt_def;
|
|
current_structdef:=old_current_structdef;
|
|
current_structdef:=old_current_structdef;
|
|
end;
|
|
end;
|
|
|
|
|
|
@@ -990,7 +990,7 @@ implementation
|
|
vmtbuilder : TVMTBuilder;
|
|
vmtbuilder : TVMTBuilder;
|
|
begin
|
|
begin
|
|
vmtbuilder:=TVMTBuilder.create(def);
|
|
vmtbuilder:=TVMTBuilder.create(def);
|
|
- vmtbuilder.generate_vmt;
|
|
|
|
|
|
+ vmtbuilder.build;
|
|
vmtbuilder.free;
|
|
vmtbuilder.free;
|
|
end;
|
|
end;
|
|
|
|
|