README changes for Protocol 5

README.md

@@ -34,6 +34,11 @@ Also, consider a donation at PascalCoin development account: "0-10"
 
 ## History:  
 
+### Current Build (Pending release date)
+- Upgrade to Protocol 5 (Hard fork)
+- Implementation of PIP-0030 -> https://github.com/PascalCoin/PascalCoin/blob/master/PIP/PIP-0030.md
+
+
 ### Build 4.0.3.1 - 2019-04-12
 - Fixed core bug #182 in RPC calls
 

src/core/UConst.pas

@@ -109,6 +109,7 @@ Const
   CT_PROTOCOL_2 = 2;
   CT_PROTOCOL_3 = 3;
   CT_PROTOCOL_4 = 4;
+  CT_PROTOCOL_5 = 5;
   CT_BUILD_PROTOCOL = CT_PROTOCOL_4;
 
   CT_BlockChain_Protocol_Available: Word = 4; // Protocol 4 flag

src/core/UPCSafeBoxRootHash.pas

@@ -238,7 +238,6 @@ begin
   LLevelItemIndex := ABlockIndex;
   SetLength(LRawToHash,32 * 2);
   LPreviousHashedValue := AProofLevels.Levels[0];
-  //LHashedLevel := LPreviousHashedValue;
   while (iLevel<Length(AProofLevels.Levels)) do begin
     // Left or right?
     if (LLevelItemIndex MOD 2)=0 then begin