Browse Source

TESTNET 3.0.6

Updated testnet version to solve FreePascal ZLIB bug
PascalCoin 6 years ago
parent
commit
9b1a2497c8
2 changed files with 3 additions and 3 deletions
  1. 2 2
      src/core/UChunk.pas
  2. 1 1
      src/core/UConst.pas

+ 2 - 2
src/core/UChunk.pas

@@ -89,10 +89,10 @@ begin
       DestStream.Write(c,SizeOf(c)); // Save 4 random bytes, latter will be changed
       //
       // Zip it and add to Stream
-      cs := Tcompressionstream.create(clMax,DestStream);
+      cs := Tcompressionstream.create(clFastest,DestStream);
         // Note: Previously was using clDefault, but found a bug for FreePascal 3.0.4
         // https://bugs.freepascal.org/view.php?id=34422
-        // On 2018-10-15 changed clDefault to cl Max
+        // On 2018-10-15 changed clDefault to clFastest
       try
         cs.CopyFrom(auxStream,auxStream.Size); // compressing
       finally

+ 1 - 1
src/core/UConst.pas

@@ -167,7 +167,7 @@ Const
   CT_OpSubtype_Data_Signer                = 103;
   CT_OpSubtype_Data_Receiver              = 104;
 
-  CT_ClientAppVersion : AnsiString = {$IFDEF PRODUCTION}'3.0.2'{$ELSE}{$IFDEF TESTNET}'TESTNET 3.0.5'{$ELSE}{$ENDIF}{$ENDIF};
+  CT_ClientAppVersion : AnsiString = {$IFDEF PRODUCTION}'3.0.2'{$ELSE}{$IFDEF TESTNET}'TESTNET 3.0.6'{$ELSE}{$ENDIF}{$ENDIF};
 
   CT_Discover_IPs =  'bpascal1.dynamic-dns.net;bpascal2.dynamic-dns.net;pascalcoin1.dynamic-dns.net;pascalcoin2.dynamic-dns.net;pascalcoin1.dns1.us;pascalcoin2.dns1.us;pascalcoin1.dns2.us;pascalcoin2.dns2.us'{$IFDEF TESTNET}+';99.254.181.147;159.89.12.242;18.236.158.185'{$ENDIF};