2
0
Эх сурвалжийг харах

Change do_internalerror into do_internalerrorex to avoid warning when TEST_CRC_ERROR macro is set

Pierre Muller 1 долоо хоног өмнө
parent
commit
b4d0489148
1 өөрчлөгдсөн 3 нэмэгдсэн , 3 устгасан
  1. 3 3
      compiler/ppu.pas

+ 3 - 3
compiler/ppu.pas

@@ -466,7 +466,7 @@ begin
              do_comment(CRC_implementation_Change_Message_Level,'implementation CRC changed at index '+tostr(implementation_read_crc_index));
              {$IFDEF TEST_CRC_ERROR}
              if CRC_implementation_Change_Message_Level=V_Error then
-               do_internalerror(2020113001);
+               do_internalerrorex(2020113001,'');
              {$ENDIF}
 {$ifdef Test_Double_checksum_write}
              Write(CRCFile,'!!!imp_crc ',implementation_read_crc_index:5,' $',hexstr(crc,8),'<>$',hexstr(implementation_crc_array^[implementation_read_crc_index],8),' ',len);
@@ -517,7 +517,7 @@ begin
                 do_comment(CRC_Interface_Change_Message_Level,'interface CRC changed at index '+tostr(interface_read_crc_index));
                 {$IFDEF TEST_CRC_ERROR}
                 if CRC_interface_Change_Message_Level=V_Error then
-                  do_internalerror(2020113002);
+                  do_internalerrorex(2020113002,'');
                 {$ENDIF}
 {$ifdef Test_Double_checksum_write}
                 Write(CRCFile,'!!!int_crc ',interface_read_crc_index:5,' $',hexstr(interface_crc,8),'<>$',hexstr(interface_crc_array^[interface_read_crc_index],8),' ',len);
@@ -571,7 +571,7 @@ begin
                      do_comment(CRC_Indirect_Change_Message_Level,'Indirect CRC changed at index '+tostr(indirect_read_crc_index));
                      {$IFDEF TEST_CRC_ERROR}
                      if CRC_indirect_Change_Message_Level=V_Error then
-                       do_internalerror(2020113003);
+                       do_internalerrorex(2020113003,'');
                      {$ENDIF}
 {$ifdef Test_Double_checksum_write}
                      Write(CRCFile,'!!!ind_crc ',indirect_read_crc_index:5,' $',hexstr(indirect_crc,8),'<>$',hexstr(indirect_crc_array^[indirect_read_crc_index],8),' ',len);