paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:49:18 +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; unit atmega128;
{$goto on} {$goto on}
{$macro on}
interface interface
const const
@ -506,9 +505,6 @@ unit atmega128;
MUX1 = 1; MUX1 = 1;
MUX0 = 0; MUX0 = 0;
{$define DOCALL:=call}
{$define DOJMP:=jmp}
implementation implementation
{$i avrcommon.inc} {$i avrcommon.inc}
@ -555,7 +551,7 @@ unit atmega128;
asm asm
.init .init
.globl _start .globl _start
// .org 0x00
jmp _start jmp _start
jmp Int00Handler jmp Int00Handler
jmp Int01Handler jmp Int01Handler

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

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

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

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