* more mipsel code

git-svn-id: trunk@14340 -

.gitattributes

@@ -6536,6 +6536,7 @@ rtl/linux/mips/stat.inc svneol=native#text/plain
 rtl/linux/mips/syscall.inc svneol=native#text/plain
 rtl/linux/mips/syscallh.inc svneol=native#text/plain
 rtl/linux/mips/sysnr.inc svneol=native#text/plain
+rtl/linux/mipsel/prt0.as svneol=native#text/plain
 rtl/linux/oldlinux.pp svneol=native#text/plain
 rtl/linux/osdefs.inc svneol=native#text/plain
 rtl/linux/osmacro.inc svneol=native#text/plain
@@ -6650,6 +6651,7 @@ rtl/mips/setjump.inc svneol=native#text/plain
 rtl/mips/setjumph.inc svneol=native#text/plain
 rtl/mips/strings.inc svneol=native#text/plain
 rtl/mips/stringss.inc svneol=native#text/plain
+rtl/mipsel/makefile.cpu svneol=native#text/plain
 rtl/morphos/Makefile svneol=native#text/plain
 rtl/morphos/Makefile.fpc svneol=native#text/plain
 rtl/morphos/aboxlib.pas -text svneol=unset#text/plain

compiler/systems/t_linux.pas

@@ -137,7 +137,7 @@ const
 {$ifdef sparc}  platform_select='-b elf32-sparc -m elf32_sparc';{$endif}
 {$ifdef arm}    platform_select='';{$endif} {unknown :( }
 {$ifdef m68k}    platform_select='';{$endif} {unknown :( }
-{$ifdef mips}    platform_select='';{$endif} {unknown :( }
+{$ifdef mipsel}    platform_select='-EL';{$endif} {unknown :( }
 
 var
   defdynlinker: string;

rtl/linux/mipsel/prt0.as

@@ -0,0 +1,91 @@
+/*
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2009 by Michael Van Canneyt and David Zhang
+
+    Startup code for elf32-mipsel
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+*/
+        .set noat
+
+	.section ".text"
+	.align 4
+	.global _start
+	.type _start,@function
+/*  This is the canonical entry point, usually the first thing in the text
+    segment.  The SVR4/Mips ABI (pages 3-31, 3-32) says that when the entry
+    point runs, most registers' values are unspecified, except for:
+
+    v0 ($2)	Contains a function pointer to be registered with `atexit'.
+ 		This is how the dynamic linker arranges to have DT_FINI
+ 		functions called for shared libraries that have been loaded
+ 		before this code runs.
+
+    sp ($29)	The stack contains the arguments and environment:
+ 		0(%esp)			argc
+ 		4(%esp)			argv[0]
+ 		...
+ 		(4*argc)(%esp)		NULL
+ 		(4*(argc+1))(%esp)	envp[0]
+ 		...
+ 					NULL
+    ra ($31)	The return address register is set to zero so that programs
+ 		that search backword through stack frames recognize the last
+ 		stack frame.
+_start:
+        /* load fp */
+        move    $s8,$sp
+
+        /* align stack */
+        li      $at,-8
+        and     $sp,$sp,$at
+
+        addiu   $sp,$sp,-32
+
+        lui     $s7,0x3d
+        addiu   $s7,$s7,2304
+        li      $at,-8
+        and     $s7,$s7,$at
+        addiu   $s7,$s7,-32
+
+        /* store argc */
+        lw      $a0,0($s8)
+        lui     $a1,%hi(operatingsystem_parameter_argc)
+        sw      $a0,%lo(operatingsystem_parameter_argc)($a1)
+
+        /* store argv */
+        addiu   $a1,$s8,4
+        lui     $a2,%hi(operatingsystem_parameter_argv)
+        sw      $a1,%lo(operatingsystem_parameter_argv)($a2)
+
+        /* store envp */
+        addiu   $a2,$a0,1
+        sll     $a2,$a2,0x2
+        addu    $a2,$a2,$a1
+        lui     $a3,$hi(operatingsystem_parameter_envp)
+        jal     PASCALMAIN
+        sw      $a2,%lo(operatingsystem_parameter_envp)($a3)
+        nop
+
+.globl  _haltproc
+.type   _haltproc,@function
+_haltproc:
+        li      $v0,4001
+        lui     $a0,0x0
+        lw      $a0,0($a0)
+        syscall
+        b       _haltproc
+        nop
+
+	.size _start, .-_start
+
+        .comm __stkptr,4
+
+        .comm operatingsystem_parameter_envp,4
+        .comm operatingsystem_parameter_argc,4
+        .comm operatingsystem_parameter_argv,4

rtl/mipsel/makefile.cpu

@@ -0,0 +1,6 @@
+#
+# Here we set processor dependent include file names.
+#
+
+CPUNAMES=mips math set
+CPUINCNAMES=$(addsuffix .inc,$(CPUNAMES))