feat: Adding boolean good-hash

Author: gcarreno

utilities/common/utilities.data.entries.pas

@@ -43,6 +43,7 @@   TEntry = class(TObject)
     FLPI: TJSONStringType;
     FDPROJ: TJSONStringType;
     FHasRelease: Boolean;
+    FGoodHash: Boolean;
     FThreads: Integer;
     FRunParams: TJSONStringType;
 
@@ -87,6 +88,9 @@   TEntry = class(TObject)
     property HasRelease: Boolean
       read FHasRelease
       write FHasRelease;
+    property GoodHash: Boolean
+      read FGoodHash
+      write FGoodHash;
     property Threads: Integer
       read FThreads
       write FThreads;
@@ -156,6 +160,7 @@ implementation
   cJSONLPI         = 'lpi';
   cJSONDPROJ       = 'dproj';
   cJSONHasRelease  = 'has-release';
+  cJSONGoodHash    = 'good-hash';
   cJSONThreads     = 'threads';
   cJSONRunParams   = 'run-params';
 
@@ -216,6 +221,7 @@ procedure TEntry.setFromJSONObject(const AJSONObject: TJSONObject);
   FLPI:= AJSONObject.Get(cJSONLPI, FLPI);
   FDPROJ:= AJSONObject.Get(cJSONDPROJ, FDPROJ);
   FHasRelease:= AJSONObject.Get(cJSONHasRelease, FHasRelease);
+  FGoodHash:= AJSONObject.Get(cJSONGoodHash, FGoodHash);
   FThreads:= AJSONObject.Get(cJSONThreads, FThreads);
   FRunParams:= AJSONObject.Get(cJSONRunParams, FRunParams);
 end;

utilities/results_generator/Common/resultsgenerator.common.pas

@@ -22,6 +22,7 @@   TResult = class
     Name: String;
     Notes: String;
     Compiler: String;
+    GoodHash: Boolean;
     Result: Double;
     Count: Integer;
     constructor Create;
@@ -77,6 +78,7 @@ constructor TResult.Create;
   Name := '';
   Notes := '';
   Compiler := '';
+  GoodHash := False;
   Result := 0;
   Count := 0;
 end;
@@ -171,6 +173,7 @@ procedure TResults.Generate;
           FList[index2].Name:= UTF8Encode(FConfig.Entries[index].Name);
           FList[index2].Notes:= UTF8Encode(FConfig.Entries[index].Notes);
           FList[index2].Count := FResult.times.Count;
+          FList[index2].GoodHash := FConfig.Entries[index].GoodHash;
           FList[index2].Result:= FResult.times.AvgValueWithOutMinMax;
         finally
           FResult.Free;
@@ -191,6 +194,7 @@ procedure TResults.Generate;
   content:= '';
   for index:= 0 to FList.Count - 1 do
   begin
+    if not FList[index].GoodHash then FList[index].Notes:= FList[index].Notes + ' (**failed hash)**';
     content:= content + Format('| %d | %s | %s | %s | %s | |'+LineEnding, [
       index + 1,
       FormatTime(FList[index].Result),