Ver Fonte

Manually increase refs of newly created labelsymbol in insertpcrelativedata

Pierre Muller há 3 anos atrás
pai
commit
2cdbdcd5c5
1 ficheiros alterados com 1 adições e 0 exclusões
  1. 1 0
      compiler/arm/aasmcpu.pas

+ 1 - 0
compiler/arm/aasmcpu.pas

@@ -1131,6 +1131,7 @@ implementation
                                   listtoinsert.Concat(hp2);
                                   listtoinsert.Concat(hp2);
                                   taicpu(curtai).oper[curop]^.ref^.symboldata:=hp;
                                   taicpu(curtai).oper[curop]^.ref^.symboldata:=hp;
                                   taicpu(curtai).oper[curop]^.ref^.symbol:=l;
                                   taicpu(curtai).oper[curop]^.ref^.symbol:=l;
+                                  l.increfs;
                                   curdatatai:=hp;
                                   curdatatai:=hp;
                                 end;
                                 end;