paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 04:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* indention fixed

Browse Source 
git-svn-id: trunk@18150 -
This commit is contained in:
florian 2011-08-08 20:09:39 +00:00
parent 7b5196a4bc
commit 144e59a1a7
1 changed files with 79 additions and 77 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/embedded/arm/stellaris.pp
View File

@ -4,9 +4,8 @@ Preliminary startup code
Geoffrey Barton 2010 08 01 gjb@periphon.net
based on stm32f103 created by Jeppe Johansen 2009 - jepjoh2@kom.aau.dk
}
unit stellaris;
{$goto on}
unit stellaris;
interface
@ -33,20 +32,20 @@ sysconoffset=APBbase+$fe000;
type
TgpioPort=record
data:array[0..255] of dword;dir,is,ibe,iev,im,ris,mis,icr,
data:array[0..255] of dword;dir,_is,ibe,iev,im,ris,mis,icr,
afsel:dword;dummy1:array[0..54] of dword;dr2r,dr4r,dr8r,odr,pur,pdr,slr,den,lock,cr,amsel,pctl:dword;
end;
Tsyscon=record
did0,did1,dc0,res0c,dc1,dc2,dc3,dc4,dc5,dc6,dc7,dc8,borc,res34,res38,res3c,
src0,src1,src2,res4c,ris,imc,misc,resc,rcc,pllcfg,res68,gpiohbctl,rcc2,res74,res78,moscctl:dword;res80:array[0..31] of dword;rcgc0,
rcgc1,rcgc2,res10,scgc0,scgc1,scgc2,
src0,src1,src2,res4c,ris,imc,misc,resc,rcc,pllcfg,res68,gpiohbctl,rcc2,res74,res78,moscctl:dword;res80:array[0..31] of dword;
rcgc0,rcgc1,rcgc2,res10,scgc0,scgc1,scgc2,
res11,dcgc0,dcgc1,dcgc2,res12c,res130,res134,res138,res13c,res140,dsplpclk,res13,res14,res15,piosccal,
i2smclk,res174,res178,res17c,res180,res184,res188,res18c,dc9,res194,res198,res19c,nvmstat:dword;
end;
{$ALIGN 4}
var
PortA :Tgpioport absolute portAoffset;
PortB :Tgpioport absolute portBoffset;
PortC :Tgpioport absolute portCoffset;
@ -62,6 +61,7 @@ var
rcgc1 :dword absolute (sysconoffset+$104);
rcgc2 :dword absolute (sysconoffset+$108);
var
NMI_Handler,
HardFault_Handler,
@ -91,8 +91,10 @@ asm
b .Lhalt
end;
procedure _FPC_start; assembler; nostackframe;
label _start;
label
_start;
asm
.init
.align 16