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

Use same order in writeppu and getppucrc to get same output in debug files

Browse Source
This commit is contained in:
Pierre Muller 2025-04-26 22:16:42 +00:00
parent 5e7bc906e5
commit ee5903fe3e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/fppu.pas
View File

@ -1854,19 +1854,20 @@ var
Writeln(ppufile.CRCFile,'CRC of getppucrc of ',ppufilename,
' defsgeneration=',defsgeneration);
{$endif def Test_Double_checksum_write}
{ extra header (sub version, module flags) }
writeextraheader;
{ first the (JVM) namespace }
if assigned(namespace) then
begin
ppufile.putstring(namespace^);
ppufile.writeentry(ibjvmnamespace);
end;
{ the unitname }
ppufile.putstring(realmodulename^);
ppufile.writeentry(ibmodulename);
{ extra header (sub version, module flags) }
writeextraheader;
ppufile.putset(tppuset1(moduleoptions));
if mo_has_deprecated_msg in moduleoptions then
ppufile.putstring(deprecatedmsg^);