EIP-4788: set nonce of beacon root history address to nonzero (#7952)

See ethereum/EIPs#7431

consensus/misc/eip4788.go

@@ -4,6 +4,7 @@ import (
 	"github.com/holiman/uint256"
 
 	libcommon "github.com/ledgerwatch/erigon-lib/common"
+
 	"github.com/ledgerwatch/erigon/consensus"
 	"github.com/ledgerwatch/erigon/core/state"
 	"github.com/ledgerwatch/erigon/core/types"
@@ -20,4 +21,11 @@ func ApplyBeaconRootEip4788(chain consensus.ChainHeaderReader, header *types.Hea
 	parentBeaconBlockRootInt := *uint256.NewInt(0).SetBytes(header.ParentBeaconBlockRoot.Bytes())
 	state.SetState(historyStorageAddress, &timestampIndex, *uint256.NewInt(header.Time))
 	state.SetState(historyStorageAddress, &rootIndex, parentBeaconBlockRootInt)
+
+	// Ensure that the historyStorageAddress has nonzero nonce to prevent wipe-out of its storage stipulated by EIP-161
+	// (when the historyStorageAddress has zero balance).
+	// See https://github.com/ethereum/EIPs/pull/7431
+	if state.GetNonce(historyStorageAddress) == 0 {
+		state.SetNonce(historyStorageAddress, 1)
+	}
 }