Add ProcessorCount parameter

Author: OttoCoddo

entries/ocoddo/README.md

@@ -13,8 +13,9 @@ Hope you find this interesting.
 - Make sure you set build mode to `Release`
 - Build
 - Run as `./ocoddo ./input.txt`
-- You can try different parameters for your hardware: `./ocoddo ./input.txt --jumper-count=192 --part-size=192`. Try values from `128`, `192`, `256`, and up
+- You can try different parameters for your hardware: `./ocoddo ./input.txt --jumper-count=192 --part-size=192 --processor-count=32`. Try values from `128`, `192`, `256`, and up
 
 
 
 Made by O
+

entries/ocoddo/src/Project1.lpr

@@ -31,6 +31,7 @@
 var
   JumperCount: UPS;
   PartSize: UPS;
+  ProcessorCount: U8;
 
 type
   THash = U32;
@@ -240,11 +241,6 @@   TStationSummary = record
 
     procedure Process(out AStations: TStationResultArray); overload;
 
-      function ProcessorCount: U8;
-      begin
-        Result := LogicalProcessorCount;
-      end;
-
       procedure Initialize(out AContext: TContext);
       var
         I: Ind;
@@ -376,6 +372,7 @@   TStationSummary = record
   if Length(Parameters) = 0 then
     Exit;
 
+  ProcessorCount := LogicalProcessorCount;
   JumperCount := 256 * 1024;
   PartSize := 192 * 1024 - ReadMargin;
 
@@ -387,7 +384,9 @@   TStationSummary = record
     if N = 'jumper-count' then
       JumperCount := V * 1024
     else if N = 'part-size' then
-      PartSize := (V * 1024) - ReadMargin;
+      PartSize := (V * 1024) - ReadMargin
+    else if N = 'processor-count' then
+      ProcessorCount := V;
   end;
 
   Run(&File(Fix(Value(Parameters[0]))));