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

@@ -190,15 +190,17 @@ public class AccessWitness implements org.hyperledger.besu.datatypes.AccessWitne
     if ((readSize == 0 && codeLength == 0) || startPc > codeLength) {
       return 0;
     }
-    long endPc = startPc+readSize;
+    long endPc = startPc + readSize;
-    if(endPc>codeLength){
+    if (endPc > codeLength) {
       endPc = codeLength;
     }
-    if(endPc>0){
+    if (endPc > 0) {
-      endPc-=1;
+      endPc -= 1;
     }
-    for (long i = startPc / 31; i <= endPc/31; i++) {
+    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;