Add internalerror when V_Error level is used in Test_double_checksum code, only with TEST_CRC_ERROR macro set

git-svn-id: trunk@47657 -

compiler/ppu.pas

@@ -418,6 +418,8 @@ begin
             (implementation_crc_array^[implementation_read_crc_index]<>crc) then
            begin
              do_comment(CRC_implementation_Change_Message_Level,'implementation CRC changed at index '+tostr(implementation_read_crc_index));
+             if CRC_implementation_Change_Message_Level=V_Error then
+               do_internalerror(2020113001);
 {$ifdef Test_Double_checksum_write}
              Writeln(CRCFile,'!!!imp_crc ',implementation_read_crc_index:5,'$',hexstr(crc,8),'<>$',hexstr(implementation_crc_array^[implementation_read_crc_index],8));
            end
@@ -452,6 +454,8 @@ begin
                (interface_crc_array^[interface_read_crc_index]<>interface_crc) then
               begin
                 do_comment(CRC_Interface_Change_Message_Level,'interface CRC changed at index '+tostr(interface_read_crc_index));
+                if CRC_interface_Change_Message_Level=V_Error then
+                  do_internalerror(2020113002);
 {$ifdef Test_Double_checksum_write}
                 Writeln(CRCFile,'!!!int_crc ',interface_read_crc_index:5,'$',hexstr(interface_crc,8),'<>$',hexstr(interface_crc_array^[interface_read_crc_index],8));
               end
@@ -489,6 +493,8 @@ begin
                     (indirect_crc_array^[indirect_read_crc_index]<>indirect_crc) then
                    begin
                      do_comment(CRC_Indirect_Change_Message_Level,'Indirect CRC changed at index '+tostr(indirect_read_crc_index));
+                     if CRC_indirect_Change_Message_Level=V_Error then
+                       do_internalerror(2020113003);
 {$ifdef Test_Double_checksum_write}
                      Writeln(CRCFile,'!!!ind_crc ',indirect_read_crc_index:5,'$',hexstr(indirect_crc,8),'<>$',hexstr(indirect_crc_array^[indirect_read_crc_index],8));
                    end