From 71f5fd320a7a128c4e638f0e7fddec9a11d50487 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sun, 24 Jan 2021 02:46:31 +0000
Subject: [PATCH] + insert hlcg.g_ptrtypecast_reg calls in
 tcgvecnode.update_reference_reg_mul and update_reference_reg_packed

git-svn-id: branches/wasm@48376 -
---
 compiler/ncgmem.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/ncgmem.pas b/compiler/ncgmem.pas
index f0558b55fb..8c1d06c126 100644
--- a/compiler/ncgmem.pas
+++ b/compiler/ncgmem.pas
@@ -643,6 +643,7 @@ implementation
        var
          hreg: tregister;
        begin
+         hlcg.g_ptrtypecast_reg(current_asmdata.CurrAsmList,regsize,get_address_type,maybe_const_reg);
          if l<>1 then
            begin
              hreg:=hlcg.getaddressregister(current_asmdata.CurrAsmList,get_address_type);
@@ -692,6 +693,7 @@ implementation
            end;
          if (l > 8*sizeof(aint)) then
            internalerror(200608051);
+         hlcg.g_ptrtypecast_reg(current_asmdata.CurrAsmList,regsize,get_address_type,maybe_const_reg);
          sref.ref := location.reference;
          hreg := hlcg.getaddressregister(current_asmdata.CurrAsmList,get_address_type);
          hlcg.a_op_const_reg_reg(current_asmdata.CurrAsmList,OP_SUB,get_address_type,tarraydef(left.resultdef).lowrange,maybe_const_reg,hreg);