paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 13:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cleanup

Browse Source 
git-svn-id: trunk@30931 -
This commit is contained in:
florian 2015-05-28 21:10:58 +00:00
parent 0f73675354
commit e9d886cdfc
3 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/embedded/avr/atmega128.pp
View File

@ -5,7 +5,6 @@ Register definitions and startup code for ATMEL ATmega128
unit atmega128;
{$goto on}
{$macro on}
interface
const
@ -506,9 +505,6 @@ unit atmega128;
MUX1 = 1;
MUX0 = 0;
{$define DOCALL:=call}
{$define DOJMP:=jmp}
implementation
{$i avrcommon.inc}
@ -555,7 +551,7 @@ unit atmega128;
asm
.init
.globl _start
// .org 0x00
jmp _start
jmp Int00Handler
jmp Int01Handler

6
rtl/embedded/avr/atmega8.pp
View File

@ -5,7 +5,6 @@ Register definitions and startup code for ATMEL ATmega128
unit atmega8;
{$goto on}
{$macro on}
interface
const
@ -253,9 +252,6 @@ unit atmega8;
MUX1 = 1;
MUX0 = 0;
{$define DOCALL:=call}
{$define DOJMP:=jmp}
implementation
{$i avrcommon.inc}
@ -286,7 +282,7 @@ unit atmega8;
asm
.init
.globl _start
// .org 0x00
jmp _start
jmp Int00Handler
jmp Int01Handler

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

@ -4,13 +4,13 @@
asm
cli
.Lhalt:
jmp .Lhalt
rjmp .Lhalt
end;
procedure Default_IRQ_handler; assembler; nostackframe; public name '_Default_IRQ_handler';noreturn;
asm
.Lloop:
jmp .Lloop
rjmp .Lloop
end;
var