+ override TInternalLinkerZXSpectrum.InitSysInitUnitName

git-svn-id: trunk@45546 -

compiler/systems/t_zxspectrum.pas

@@ -65,6 +65,7 @@ implementation
          procedure DefaultLinkScript;override;
        public
          constructor create;override;
+         procedure InitSysInitUnitName;override;
        end;
 
 
@@ -334,6 +335,11 @@ constructor TInternalLinkerZXSpectrum.create;
     CObjInput:=TRelObjInput;
   end;
 
+procedure TInternalLinkerZXSpectrum.InitSysInitUnitName;
+  begin
+    sysinitunit:='si_prc';
+  end;
+
 {*****************************************************************************
                                      Initialize
 *****************************************************************************}