* Updated nds to devkitARM r33

git-svn-id: trunk@17843 -

compiler/systems/t_nds.pas

@@ -451,16 +451,11 @@ begin
         add('		*(.bss*)');
         add('		*(COMMON)');
         add('		. = ALIGN(4);    /* REQUIRED. LD is flaky without it. */');
-        add('		__bss_end = ABSOLUTE(.) ;');
-        add('		__bss_end__ = __bss_end ;');
+        add('		__bss_end__ = ABSOLUTE(.) ;');
+        add('		__end__ = ABSOLUTE(.) ;');
         add('	} AT>ewram');
         add('');
         add('');
-        add(' _end = __bss_end__ ;');
-        add(' __end__ = __bss_end__ ;');
-        add('');
-        add('');
-        add('');
         add('	/* Stabs debugging sections.  */');
         add('	.stab 0 : { *(.stab) }');
         add('	.stabstr 0 : { *(.stabstr) }');
@@ -650,15 +645,10 @@ begin
         add('		*(.bss*)');
         add('		*(COMMON)');
         add('		. = ALIGN(4);    /* REQUIRED. LD is flaky without it. */');
+        add('		__bss_end__ = ABSOLUTE(.);');
+        add('		__end__ = ABSOLUTE(.);');
         add('	} >iwram');
         add('');
-        add('	__bss_end = . ;');
-        add('	__bss_end__ = . ;');
-        add('');
-        add('	_end = . ;');
-        add('	__end__ = . ;');
-        add('	PROVIDE (end = _end);');
-        add('');
         add('	/* Stabs debugging sections.  */');
         add('	.stab 0 : { *(.stab) }');
         add('	.stabstr 0 : { *(.stabstr) }');

rtl/nds/cprt07.as

@@ -23,8 +23,8 @@ _start:
 	msr	cpsr, r0
 	ldr	sp, =__sp_usr		@ Set user stack
 
-	ldr	r0, =__bss_start	@ Clear BSS section to 0x00
-	ldr	r1, =__bss_end
+	ldr	r0, =__bss_start__	@ Clear BSS section to 0x00
+	ldr	r1, =__bss_end__
 	sub	r1, r1, r0
 	bl	ClearMem
 

rtl/nds/cprt09.as

@@ -64,8 +64,8 @@ _start:
 
 	bl	checkARGV					@	check and process argv trickery
 
-	ldr	r0, =__bss_start	@ Clear BSS section
-	ldr	r1, =__bss_end
+	ldr	r0, =__bss_start__	@ Clear BSS section
+	ldr	r1, =__bss_end__
 	sub	r1, r1, r0
 	bl	ClearMem
 

rtl/nds/libch.inc

@@ -216,7 +216,6 @@ function FpWrite(fildes:longint; buf:pointer; nbytes:dword):longint;cdecl;extern
 function FpWrite(fildes:longint; var buf; nbytes:dword):longint;cdecl;external name 'write';
 function fplseek(fildes:longint; offset:longint; whence:longint):longint;cdecl;external name 'lseek';
 function FpClose(fildes:longint):longint;cdecl;external name 'close';
-function FpChsize(fildes:longint; size:dword):longint;cdecl;external name 'chsize';
 function FpUnlink(path:Pchar):longint;cdecl;external name 'unlink';
 function FpRename(para1: Pchar; para2: Pchar): longint; cdecl; external name 'rename';
 function Fpstat(path:Pchar; buf:Pstat):longint;cdecl;external name 'stat';

rtl/nds/prt07.as

@@ -23,8 +23,8 @@ _start:
 	msr	cpsr, r0
 	ldr	sp, =__sp_usr		@ Set user stack
 
-	ldr	r0, =__bss_start	@ Clear BSS section to 0x00
-	ldr	r1, =__bss_end
+	ldr	r0, =__bss_start__	@ Clear BSS section to 0x00
+	ldr	r1, =__bss_end__
 	sub	r1, r1, r0
 	bl	ClearMem
 

rtl/nds/prt09.as

@@ -64,8 +64,8 @@ _start:
 	
 	bl	checkARGV					@	check and process argv trickery
 
-	ldr	r0, =__bss_start	@ Clear BSS section
-	ldr	r1, =__bss_end
+	ldr	r0, =__bss_start__	@ Clear BSS section
+	ldr	r1, =__bss_end__
 	sub	r1, r1, r0
 	bl	ClearMem
 

rtl/nds/sysutils.pp

@@ -123,7 +123,7 @@ begin
   if Size > high (longint) then
     FileTruncate := false
   else
-    FileTruncate:=(fpchsize(Handle,Size) = 0);
+    FileTruncate:=(ftruncate(Handle,Size) = 0);
 end;