|
@@ -954,6 +954,7 @@ interface
|
|
|
function is_addressonly:boolean;override;
|
|
function is_addressonly:boolean;override;
|
|
|
procedure make_external;
|
|
procedure make_external;
|
|
|
procedure init_genericdecl;
|
|
procedure init_genericdecl;
|
|
|
|
|
+ procedure reset_after_conv;
|
|
|
|
|
|
|
|
function get_funcretsym_info(out ressym: tsym; out resdef: tdef): boolean; virtual;
|
|
function get_funcretsym_info(out ressym: tsym; out resdef: tdef): boolean; virtual;
|
|
|
function get_safecall_funcretsym_info(out ressym: tsym; out resdef: tdef): boolean; virtual;
|
|
function get_safecall_funcretsym_info(out ressym: tsym; out resdef: tdef): boolean; virtual;
|
|
@@ -7110,6 +7111,12 @@ implementation
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
+ procedure tprocdef.reset_after_conv;
|
|
|
|
|
+ begin
|
|
|
|
|
+ _parentfpsym:=nil;
|
|
|
|
|
+ end;
|
|
|
|
|
+
|
|
|
|
|
+
|
|
|
function tprocdef.get_funcretsym_info(out ressym: tsym; out resdef: tdef): boolean;
|
|
function tprocdef.get_funcretsym_info(out ressym: tsym; out resdef: tdef): boolean;
|
|
|
begin
|
|
begin
|
|
|
result:=false;
|
|
result:=false;
|