Browse Source

Add all CRC values into .INT and .IMP files

Pierre Muller 3 months ago
parent
commit
9d85249ee5
1 changed files with 3 additions and 3 deletions
  1. 3 3
      compiler/ppu.pas

+ 3 - 3
compiler/ppu.pas

@@ -441,7 +441,7 @@ begin
            end
            end
          else
          else
            begin
            begin
-             Writeln(CRCFile,'imp_crc ',implementation_read_crc_index:5,' OK');
+             Writeln(CRCFile,'imp_crc ',implementation_read_crc_index:5,' $',hexstr(crc,8),' OK');
 {$endif Test_Double_checksum_write}
 {$endif Test_Double_checksum_write}
            end;
            end;
          inc(implementation_read_crc_index);
          inc(implementation_read_crc_index);
@@ -480,7 +480,7 @@ begin
               end
               end
             else
             else
               begin
               begin
-                Writeln(CRCFile,'int_crc ',interface_read_crc_index:5,' OK');
+                Writeln(CRCFile,'int_crc ',interface_read_crc_index:5,' $',hexstr(interface_crc,8),' OK');
 {$endif Test_Double_checksum_write}
 {$endif Test_Double_checksum_write}
               end;
               end;
             inc(interface_read_crc_index);
             inc(interface_read_crc_index);
@@ -522,7 +522,7 @@ begin
                    end
                    end
                  else
                  else
                    begin
                    begin
-                     Writeln(CRCFile,'ind_crc ',indirect_read_crc_index:5,' OK');
+                     Writeln(CRCFile,'ind_crc ',indirect_read_crc_index:5,' $',hexstr(indirect_crc,8),' OK');
 {$endif Test_Double_checksum_write}
 {$endif Test_Double_checksum_write}
                    end;
                    end;
                  inc(indirect_read_crc_index);
                  inc(indirect_read_crc_index);