paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 19:20:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* For wince external startup file is used and placed first, because ARM prolog structure must be located at the very beginning of code. Otherwise exceptions do not work properly.

Browse Source 
git-svn-id: trunk@2786 -
This commit is contained in:
yury 2006-03-06 10:53:31 +00:00
parent 4443ce0d2a
commit 8a12d38862
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/systems/t_win.pas
View File

@ -953,6 +953,12 @@ begin
if not ObjectFiles.Empty then if not ObjectFiles.Empty then
begin begin
LinkRes.Add('INPUT('); LinkRes.Add('INPUT(');
{ For wince external startup file is used and placed first, }
{ because ARM prolog structure must be located at the very }
{ beginning of code. Otherwise exceptions do not work properly. }
if target_info.system in [system_arm_wince,system_i386_wince] then
LinkRes.AddFileName(MaybeQuoted(FindObjectFile('wprt0','',false)));
while not ObjectFiles.Empty do while not ObjectFiles.Empty do
begin begin
s:=ObjectFiles.GetFirst; s:=ObjectFiles.GetFirst;

3
rtl/wince/system.pp
View File

@ -23,9 +23,6 @@ interface
{$define WINCE_EXCEPTION_HANDLING} {$define WINCE_EXCEPTION_HANDLING}
{ Startup code }
{$L wprt0.o}
{ include system-independent routine headers } { include system-independent routine headers }
{$I systemh.inc} {$I systemh.inc}