paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 06:47:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Pierre Muller 2025-10-10 22:55:29 +02:00
parent a5f0fb8b67
commit b4d0489148
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ppu.pas
View File

@ -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);