call value transfer cost fix, added non-accumulating method for touchCodeChunks

Signed-off-by: garyschulte <garyschulte@gmail.com>

datatypes/src/main/java/org/hyperledger/besu/datatypes/AccessWitness.java

@@ -35,4 +35,9 @@ public interface AccessWitness {
   long touchCodeChunksUponContractCreation(Address address, long codeLength);
 
   long touchCodeChunks(Address address, long offset, long readSize, long codeLength);
+
+  default long touchCodeChunksWithoutAccessCost(
+      final Address address, final long offset, final long readSize, final long codeLength) {
+    return touchCodeChunks(address, offset, readSize, codeLength);
+  }
 }

ethereum/core/src/main/java/org/hyperledger/besu/ethereum/core/AccessWitness.java

@@ -198,7 +198,9 @@ public class AccessWitness implements org.hyperledger.besu.datatypes.AccessWitne
       endPc -= 1;
     }
     for (long i = startPc / 31; i <= endPc / 31; i++) {
-      gas = clampedAdd(gas,
+      gas =
+          clampedAdd(
+              gas,
               touchAddressOnReadAndComputeGas(
                   address,
                   CODE_OFFSET.add(i).divide(VERKLE_NODE_WIDTH),

evm/src/main/java/org/hyperledger/besu/evm/gascalculator/ShanghaiGasCalculator.java

@@ -174,7 +174,7 @@ public class ShanghaiGasCalculator extends LondonGasCalculator {
     if (!transferValue.isZero()) {
       cost =
           clampedAdd(
-              baseCost,
+              cost,
               frame.getAccessWitness().touchAndChargeValueTransfer(recipient.getAddress(), to));
     }
     return cost;