op-program: Optimise block by header lookup (#13932)

We just requested the header by hash so can skip hashing the header to update the cache and just use the already known hash.

op-program/client/l2/canon.go

@@ -48,8 +48,9 @@ func (o *CanonicalBlockHeaderOracle) GetHeaderByNumber(n uint64) *types.Header {
 
 	h := o.earliestIndexedBlock
 	for h.Number.Uint64() > n {
-		h = o.blockByHashFn(h.ParentHash).Header()
-		o.hashByNum[h.Number.Uint64()] = h.Hash()
+		hash := h.ParentHash
+		h = o.blockByHashFn(hash).Header()
+		o.hashByNum[h.Number.Uint64()] = hash
 	}
 	o.earliestIndexedBlock = h
 	return h