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

* fixed compilation with -dTest_Double_checksum_write

Browse Source 
git-svn-id: trunk@42314 -
This commit is contained in:
Jonas Maebe 2019-06-30 17:19:31 +00:00
parent 40f6a4ea3c
commit 56acdd3a11
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/fppu.pas
View File

@ -1511,7 +1511,7 @@ var
headerflags:=headerflags or uf_fpu_emulation;
{$endif cpufpemu}
{$ifdef Test_Double_checksum_write}
Assign(CRCFile,s+'.IMP');
Assign(CRCFile,ppufilename+'.IMP');
Rewrite(CRCFile);
{$endif def Test_Double_checksum_write}
@ -1692,7 +1692,7 @@ var
procedure tppumodule.getppucrc;
begin
{$ifdef Test_Double_checksum_write}
Assign(CRCFile,s+'.INT')
Assign(CRCFile,ppufilename+'.INT');
Rewrite(CRCFile);
{$endif def Test_Double_checksum_write}