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

* write interface crc to .ppu.intf when enabled

Browse Source 
* when a unit is compiled with -Ur check only interface crc
This commit is contained in:
peter 2003-05-23 17:04:37 +00:00
parent 895e03b854
commit e13e129c3c
1 changed files with 24 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/fppu.pas
View File

@ -1002,6 +1002,17 @@ uses
close(CRCFile); close(CRCFile);
{$endif Test_Double_checksum_write} {$endif Test_Double_checksum_write}
{ create and write header, this will only be used
for debugging purposes }
ppufile.header.size:=ppufile.size;
ppufile.header.checksum:=ppufile.crc;
ppufile.header.interface_checksum:=ppufile.interface_crc;
ppufile.header.compiler:=wordversion;
ppufile.header.cpu:=word(target_cpu);
ppufile.header.target:=word(target_info.system);
ppufile.header.flags:=flags;
ppufile.writeheader;
ppufile.closefile; ppufile.closefile;
ppufile.free; ppufile.free;
ppufile:=nil; ppufile:=nil;
@ -1035,8 +1046,14 @@ uses
exit; exit;
{ add this unit to the dependencies } { add this unit to the dependencies }
pu.u.adddependency(self); pu.u.adddependency(self);
{ need to recompile the current unit ? } { need to recompile the current unit, check the interface
if pu.u.crc<>pu.checksum then crc. And when not compiled with -Ur then check the complete
crc }
if (pu.u.interface_crc<>pu.interface_checksum) or
(
((ppufile.header.flags and uf_release)=0) and
(pu.u.crc<>pu.checksum)
) then
begin begin
Message2(unit_u_recompile_crc_change,realmodulename^,pu.u.realmodulename^); Message2(unit_u_recompile_crc_change,realmodulename^,pu.u.realmodulename^);
recompile_reason:=rr_crcchanged; recompile_reason:=rr_crcchanged;
@ -1342,7 +1359,11 @@ uses
end. end.
{ {
$Log$ $Log$
Revision 1.33 2003-04-27 11:21:32 peter Revision 1.34 2003-05-23 17:04:37 peter
* write interface crc to .ppu.intf when enabled
* when a unit is compiled with -Ur check only interface crc
Revision 1.33 2003/04/27 11:21:32 peter
* aktprocdef renamed to current_procdef * aktprocdef renamed to current_procdef
* procinfo renamed to current_procinfo * procinfo renamed to current_procinfo
* procinfo will now be stored in current_module so it can be * procinfo will now be stored in current_module so it can be