Browse Source

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

Pierre Muller 3 months ago
parent
commit
ee5903fe3e
1 changed files with 4 additions and 3 deletions
  1. 4 3
      compiler/fppu.pas

+ 4 - 3
compiler/fppu.pas

@@ -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^);