Sfoglia il codice sorgente

+ add method to reset a procdef after its been converted to another kind of procdef

Sven/Sarah Barth 1 mese fa
parent
commit
ce61e52266
1 ha cambiato i file con 7 aggiunte e 0 eliminazioni
  1. 7 0
      compiler/symdef.pas

+ 7 - 0
compiler/symdef.pas

@@ -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;