paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-04 06:58:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* implemented _FPC_haltproc and Default_IRQ_handler in pascal, resolves issue #32633

Browse Source 
git-svn-id: trunk@37545 -
This commit is contained in:
florian 2017-11-01 16:33:36 +00:00
parent c7d5525b56
commit 3a6f1fda78
1 changed files with 12 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
rtl/embedded/avr/avrcommon.inc
View File

@ -1,24 +1,19 @@
uses
intrinsics;
procedure PASCALMAIN; external name 'PASCALMAIN';
procedure _FPC_haltproc; assembler; nostackframe; public name '_haltproc';noreturn;
asm
cli
.Lhalt:
{$ifdef RELBRANCHES}
rjmp .Lhalt
{$else RELBRANCHES}
jmp .Lhalt
{$endif RELBRANCHES}
procedure _FPC_haltproc; public name '_haltproc';noreturn;
begin
avr_cli;
while true do
;
end;
procedure Default_IRQ_handler; assembler; nostackframe; public name '_Default_IRQ_handler';noreturn;
asm
.Lloop:
{$ifdef RELBRANCHES}
rjmp .Lloop
{$else RELBRANCHES}
jmp .Lloop
{$endif RELBRANCHES}
procedure Default_IRQ_handler; public name '_Default_IRQ_handler';noreturn;
begin
while true do
;
end;
var