Index: compiler/fppu.pas
===================================================================
--- compiler/fppu.pas	(revision 33492)
+++ compiler/fppu.pas	(working copy)
@@ -605,7 +605,7 @@
         for i:=0 to unitimportsyms.count-1 do
           begin
             new(deref);
-            deref^.build(unitimportsyms[i]);
+            deref^.build(unitimportsyms[i], True);
             unitimportsymsderefs.add(deref);
           end;
       end;
Index: compiler/symtype.pas
===================================================================
--- compiler/symtype.pas	(revision 33492)
+++ compiler/symtype.pas	(working copy)
@@ -146,7 +146,7 @@
       tderef = object
         dataidx : longint;
         procedure reset;
-        procedure build(s:TObject);
+        procedure build(s:TObject; SideEffectWorkaround: Boolean = false);
         function  resolve:TObject;
      end;
      pderef = ^tderef;
@@ -728,7 +728,7 @@
       end;
 
 
-    procedure tderef.build(s:TObject);
+    procedure tderef.build(s:TObject; SideEffectWorkaround: Boolean);
       var
         len  : byte;
         st   : TSymtable;
@@ -747,6 +747,7 @@
                  this symbol shouldn't be written to a ppu }
                if tsym(s).SymId=symid_registered_nost then
                  Internalerror(2015102504);
+               if not SideEffectWorkaround then
                if not tsym(s).registered then
                  tsym(s).register_sym;
                st:=FindUnitSymtable(tsym(s).owner)
@@ -803,7 +804,6 @@
         current_module.derefdata.write(data,len);
       end;
 
-
     function tderef.resolve:TObject;
       var
         pm     : tmodule;

diff --git a/compiler/fppu.pas b/compiler/fppu.pas
index fd68399..b3b8a74 100644
--- a/compiler/fppu.pas
+++ b/compiler/fppu.pas
@@ -173,6 +173,8 @@ var
            ppufile.free;
            ppufile:=nil;
          end;
+        freederefunitimportsyms;
+        unitimportsymsderefs:=tfplist.create;
         inherited reset;
       end;