* small updates to make playing with sparc/sunos easier

compiler/systems/i_sunos.pas

@@ -91,6 +91,68 @@ unit i_sunos;
             use_function_relative_addresses : true
           );
 
+       system_sparc_sunos_info : tsysteminfo =
+          (
+            system       : system_sparc_sunos;
+            name         : 'SunOS for SPARC';
+            shortname    : 'SunOS';
+            flags        : [tf_needs_symbol_size];
+            cpu          : cpu_SPARC;
+            unit_env     : 'SUNOSUNITS';
+            extradefines : 'UNIX;HASUNIX';
+            sourceext    : '.pp';
+            pasext       : '.pas';
+            exeext       : '';
+            defext       : '.def';
+            scriptext    : '.sh';
+            smartext     : '.sl';
+            unitext      : '.ppu';
+            unitlibext   : '.ppl';
+            asmext       : '.s';
+            objext       : '.o';
+            resext       : '.res';
+            resobjext    : '.or';
+            sharedlibext : '.so';
+            staticlibext : '.a';
+            staticlibprefix : 'libp';
+            sharedlibprefix : 'lib';
+            sharedClibext : '.so';
+            staticClibext : '.a';
+            staticClibprefix : 'lib';
+            sharedClibprefix : 'lib';
+            Cprefix      : '';
+            newline      : #10;
+            dirsep       : '/';
+            files_case_relevent : true;
+            assem        : as_gas;
+            assemextern  : as_gas;
+            link         : nil;
+            linkextern   : nil;
+            ar           : ar_gnu_ar;
+            res          : res_none;
+            script       : script_unix;
+            endian       : endian_big;
+            alignment    :
+              (
+                procalign       : 4;
+                loopalign       : 4;
+                jumpalign       : 0;
+                constalignmin   : 0;
+                constalignmax   : 8;
+                varalignmin     : 0;
+                varalignmax     : 8;
+                localalignmin   : 4;
+                localalignmax   : 8;
+                recordalignmin  : 0;
+                recordalignmax  : 8;
+                maxCrecordalign : 8
+              );
+            first_parm_offset : 92;
+            heapsize     : 256*1024;
+            stacksize    : 262144;
+            DllScanSupported:false;
+            use_function_relative_addresses : true
+          );
 
   implementation
 
@@ -100,10 +162,19 @@ initialization
     set_source_info(system_i386_sunos_info);
   {$endif sunos}
 {$endif CPU86}
+{$ifdef CPUSparc}
+  {$ifdef sunos}
+    set_source_info(system_sparc_sunos_info);
+  {$endif sunos}
+{$endif CPUSparc}
+
 end.
 {
   $Log$
-  Revision 1.3  2004-06-20 08:55:32  florian
+  Revision 1.4  2004-10-01 17:41:21  marco
+   * small updates to make playing with sparc/sunos easier
+
+  Revision 1.3  2004/06/20 08:55:32  florian
     * logs truncated
 
 }

compiler/systems/t_sunos.pas

@@ -486,10 +486,18 @@ initialization
   RegisterImport(system_i386_sunos,TImportLibSunos);
   RegisterExport(system_i386_sunos,TExportLibSunos);
   RegisterTarget(system_i386_sunos_info);
+
+  RegisterExternalLinker(system_sparc_sunos_info,TLinkerSunos);
+  RegisterImport(system_sparc_sunos,TImportLibSunos);
+  RegisterExport(system_sparc_sunos,TExportLibSunos);
+  RegisterTarget(system_sparc_sunos_info);
 end.
 {
   $Log$
-  Revision 1.10  2004-09-22 15:25:14  mazen
+  Revision 1.11  2004-10-01 17:41:21  marco
+   * small updates to make playing with sparc/sunos easier
+
+  Revision 1.10  2004/09/22 15:25:14  mazen
   * Fix error committing : previous version must be in branch USE_SYSUTILS
 
   Revision 1.8  2004/06/20 08:55:32  florian