New POPCNT tests to evaluate new optimisations

tests/test/opt/tpopcnt1.pp

@@ -0,0 +1,26 @@
+{ %CPU=i386,x86_64 }
+{ %OPT=-O2 -CpCOREAVX }
+
+var
+  X: LongWord;
+begin
+  for X := 0 to 9 do
+    if PopCnt(X) = 0 then
+      begin
+        if X <> 0 then
+          begin
+            WriteLn('FAIL: PopCnt(', X, ') = 0 returned True');
+            Halt(1);
+          end;
+      end
+    else
+      begin
+        if X = 0 then
+          begin
+            WriteLn('FAIL: PopCnt(0) = 0 returned False');
+            Halt(1);
+          end;
+      end;
+
+  WriteLn('ok');
+end.

tests/test/opt/tpopcnt2.pp

@@ -0,0 +1,20 @@
+{ %CPU=i386,x86_64 }
+{ %OPT=-O2 -CpCOREAVX }
+
+var
+  X, Y: LongWord;
+begin
+  for X := 0 to 9 do
+    begin
+      Y := PopCnt(X);
+      { Condition arranged this way so the input of PopCnt is checked first.
+        If both X and Y are zero or both X and Y are not zero, then all is well. }
+      if (X = 0) xor (Y = 0) then
+        begin
+          WriteLn('FAIL: Condition implies PopCnt(', X, ') = ', Y, ' and not ', PopCnt(X));
+          Halt(1);
+        end;
+    end;
+
+  WriteLn('ok');
+end.