paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 02:28:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Need IFDEF, compiler stops "with unreachable code"

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-07-15 17:18:09 +02:00
parent 8e79108e51
commit 02e90adfe1
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ppu.pas
View File

@ -419,8 +419,10 @@ 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));
{$IFDEF TEST_CRC_ERROR}
if CRC_implementation_Change_Message_Level=V_Error then
do_internalerror(2020113001);
{$ENDIF}
{$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
@ -455,8 +457,10 @@ 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));
{$IFDEF TEST_CRC_ERROR}
if CRC_interface_Change_Message_Level=V_Error then
do_internalerror(2020113002);
{$ENDIF}
{$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
@ -494,8 +498,10 @@ 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));
{$IFDEF TEST_CRC_ERROR}
if CRC_indirect_Change_Message_Level=V_Error then
do_internalerror(2020113003);
{$ENDIF}
{$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