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

Remove all traces of the interrupt vector table generation mechanism

Browse Source 
Clean up cpuinfo tables
Fixed ARMv7M bug(BLX <label> doesn't exist on that version)

git-svn-id: branches/laksen/arm-embedded@22579 -
This commit is contained in:
Jeppe Johansen 2012-10-08 00:10:52 +00:00
parent f67a330519
commit 8b17a358e4
9 changed files with 79 additions and 306 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

242
compiler/arm/cpuinfo.pas
View File

@ -239,7 +239,6 @@ Const
(( ((
controllertypestr:''; controllertypestr:'';
controllerunitstr:''; controllerunitstr:'';
interruptvectors:0;
flashbase:0; flashbase:0;
flashsize:0; flashsize:0;
srambase:0; srambase:0;
@ -249,8 +248,7 @@ Const
( (
controllertypestr:'LPC2114'; controllertypestr:'LPC2114';
controllerunitstr:'LPC21x4'; controllerunitstr:'LPC21x4';
interruptvectors:8; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$40000000; srambase:$40000000;
sramsize:$00004000 sramsize:$00004000
@ -259,8 +257,7 @@ Const
( (
controllertypestr:'LPC2124'; controllertypestr:'LPC2124';
controllerunitstr:'LPC21x4'; controllerunitstr:'LPC21x4';
interruptvectors:8; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$40000000; srambase:$40000000;
sramsize:$00004000 sramsize:$00004000
@ -269,8 +266,7 @@ Const
( (
controllertypestr:'LPC2194'; controllertypestr:'LPC2194';
controllerunitstr:'LPC21x4'; controllerunitstr:'LPC21x4';
interruptvectors:8; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$40000000; srambase:$40000000;
sramsize:$00004000 sramsize:$00004000
@ -279,8 +275,7 @@ Const
( (
controllertypestr:'LPC1754'; controllertypestr:'LPC1754';
controllerunitstr:'LPC1754'; controllerunitstr:'LPC1754';
interruptvectors:12; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$10000000; srambase:$10000000;
sramsize:$00004000 sramsize:$00004000
@ -289,8 +284,7 @@ Const
( (
controllertypestr:'LPC1756'; controllertypestr:'LPC1756';
controllerunitstr:'LPC1756'; controllerunitstr:'LPC1756';
interruptvectors:12; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$10000000; srambase:$10000000;
sramsize:$00004000 sramsize:$00004000
@ -299,8 +293,7 @@ Const
( (
controllertypestr:'LPC1758'; controllertypestr:'LPC1758';
controllerunitstr:'LPC1758'; controllerunitstr:'LPC1758';
interruptvectors:12; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00080000; flashsize:$00080000;
srambase:$10000000; srambase:$10000000;
sramsize:$00008000 sramsize:$00008000
@ -309,8 +302,7 @@ Const
( (
controllertypestr:'LPC1764'; controllertypestr:'LPC1764';
controllerunitstr:'LPC1764'; controllerunitstr:'LPC1764';
interruptvectors:12; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$10000000; srambase:$10000000;
sramsize:$00004000 sramsize:$00004000
@ -319,8 +311,7 @@ Const
( (
controllertypestr:'LPC1766'; controllertypestr:'LPC1766';
controllerunitstr:'LPC1766'; controllerunitstr:'LPC1766';
interruptvectors:12; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$10000000; srambase:$10000000;
sramsize:$00008000 sramsize:$00008000
@ -329,8 +320,7 @@ Const
( (
controllertypestr:'LPC1768'; controllertypestr:'LPC1768';
controllerunitstr:'LPC1768'; controllerunitstr:'LPC1768';
interruptvectors:12; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00080000; flashsize:$00080000;
srambase:$10000000; srambase:$10000000;
sramsize:$00008000 sramsize:$00008000
@ -339,7 +329,6 @@ Const
( (
controllertypestr:'AT91SAM7S256'; controllertypestr:'AT91SAM7S256';
controllerunitstr:'AT91SAM7x256'; controllerunitstr:'AT91SAM7x256';
interruptvectors:8;
flashbase:$00000000; flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$00200000; srambase:$00200000;
@ -349,7 +338,6 @@ Const
( (
controllertypestr:'AT91SAM7SE256'; controllertypestr:'AT91SAM7SE256';
controllerunitstr:'AT91SAM7x256'; controllerunitstr:'AT91SAM7x256';
interruptvectors:8;
flashbase:$00000000; flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$00200000; srambase:$00200000;
@ -359,7 +347,6 @@ Const
( (
controllertypestr:'AT91SAM7X256'; controllertypestr:'AT91SAM7X256';
controllerunitstr:'AT91SAM7x256'; controllerunitstr:'AT91SAM7x256';
interruptvectors:8;
flashbase:$00000000; flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$00200000; srambase:$00200000;
@ -369,8 +356,7 @@ Const
( (
controllertypestr:'AT91SAM7XC256'; controllertypestr:'AT91SAM7XC256';
controllerunitstr:'AT91SAM7x256'; controllerunitstr:'AT91SAM7x256';
interruptvectors:8; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$00200000; srambase:$00200000;
sramsize:$00010000 sramsize:$00010000
@ -380,7 +366,6 @@ Const
( (
controllertypestr:'STM32F103RB'; controllertypestr:'STM32F103RB';
controllerunitstr:'STM32F103'; controllerunitstr:'STM32F103';
interruptvectors:12;
flashbase:$08000000; flashbase:$08000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$20000000; srambase:$20000000;
@ -390,7 +375,6 @@ Const
( (
controllertypestr:'STM32F103RE'; controllertypestr:'STM32F103RE';
controllerunitstr:'STM32F103'; controllerunitstr:'STM32F103';
interruptvectors:12;
flashbase:$08000000; flashbase:$08000000;
flashsize:$00080000; flashsize:$00080000;
srambase:$20000000; srambase:$20000000;
@ -400,7 +384,6 @@ Const
( (
controllertypestr:'STM32F103C4T'; controllertypestr:'STM32F103C4T';
controllerunitstr:'STM32F103'; controllerunitstr:'STM32F103';
interruptvectors:12;
flashbase:$08000000; flashbase:$08000000;
flashsize:$00004000; flashsize:$00004000;
srambase:$20000000; srambase:$20000000;
@ -412,8 +395,7 @@ Const
( (
controllertypestr:'LM3S1110'; controllertypestr:'LM3S1110';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00010000; flashsize:$00010000;
srambase:$20000000; srambase:$20000000;
sramsize:$00004000 sramsize:$00004000
@ -422,8 +404,7 @@ Const
( (
controllertypestr:'LM3S1133'; controllertypestr:'LM3S1133';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00010000; flashsize:$00010000;
srambase:$20000000; srambase:$20000000;
sramsize:$00004000 sramsize:$00004000
@ -432,8 +413,7 @@ Const
( (
controllertypestr:'LM3S1138'; controllertypestr:'LM3S1138';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00010000; flashsize:$00010000;
srambase:$20000000; srambase:$20000000;
sramsize:$00004000 sramsize:$00004000
@ -442,8 +422,7 @@ Const
( (
controllertypestr:'LM3S1150'; controllertypestr:'LM3S1150';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00010000; flashsize:$00010000;
srambase:$20000000; srambase:$20000000;
sramsize:$00004000 sramsize:$00004000
@ -452,8 +431,7 @@ Const
( (
controllertypestr:'LM3S1162'; controllertypestr:'LM3S1162';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00010000; flashsize:$00010000;
srambase:$20000000; srambase:$20000000;
sramsize:$00004000 sramsize:$00004000
@ -462,8 +440,7 @@ Const
( (
controllertypestr:'LM3S1165'; controllertypestr:'LM3S1165';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00010000; flashsize:$00010000;
srambase:$20000000; srambase:$20000000;
sramsize:$00004000 sramsize:$00004000
@ -472,8 +449,7 @@ Const
( (
controllertypestr:'LM3S1166'; controllertypestr:'LM3S1166';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00010000; flashsize:$00010000;
srambase:$20000000; srambase:$20000000;
sramsize:$00004000 sramsize:$00004000
@ -482,8 +458,7 @@ Const
( (
controllertypestr:'LM3S2110'; controllertypestr:'LM3S2110';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00010000; flashsize:$00010000;
srambase:$20000000; srambase:$20000000;
sramsize:$00004000 sramsize:$00004000
@ -492,8 +467,7 @@ Const
( (
controllertypestr:'LM3S2139'; controllertypestr:'LM3S2139';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00010000; flashsize:$00010000;
srambase:$20000000; srambase:$20000000;
sramsize:$00004000 sramsize:$00004000
@ -502,8 +476,7 @@ Const
( (
controllertypestr:'LM3S6100'; controllertypestr:'LM3S6100';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00010000; flashsize:$00010000;
srambase:$20000000; srambase:$20000000;
sramsize:$00004000 sramsize:$00004000
@ -512,8 +485,7 @@ Const
( (
controllertypestr:'LM3S6110'; controllertypestr:'LM3S6110';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00010000; flashsize:$00010000;
srambase:$20000000; srambase:$20000000;
sramsize:$00004000 sramsize:$00004000
@ -524,8 +496,7 @@ Const
( (
controllertypestr:'LM3S1601'; controllertypestr:'LM3S1601';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$20000000; srambase:$20000000;
sramsize:$00008000 sramsize:$00008000
@ -534,8 +505,7 @@ Const
( (
controllertypestr:'LM3S1608'; controllertypestr:'LM3S1608';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$20000000; srambase:$20000000;
sramsize:$00008000 sramsize:$00008000
@ -544,8 +514,7 @@ Const
( (
controllertypestr:'LM3S1620'; controllertypestr:'LM3S1620';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$20000000; srambase:$20000000;
sramsize:$00008000 sramsize:$00008000
@ -554,8 +523,7 @@ Const
( (
controllertypestr:'LM3S1635'; controllertypestr:'LM3S1635';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$20000000; srambase:$20000000;
sramsize:$00008000 sramsize:$00008000
@ -564,8 +532,7 @@ Const
( (
controllertypestr:'LM3S1636'; controllertypestr:'LM3S1636';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$20000000; srambase:$20000000;
sramsize:$00008000 sramsize:$00008000
@ -574,8 +541,7 @@ Const
( (
controllertypestr:'LM3S1637'; controllertypestr:'LM3S1637';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$20000000; srambase:$20000000;
sramsize:$00008000 sramsize:$00008000
@ -584,8 +550,7 @@ Const
( (
controllertypestr:'LM3S1651'; controllertypestr:'LM3S1651';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$20000000; srambase:$20000000;
sramsize:$00008000 sramsize:$00008000
@ -594,8 +559,7 @@ Const
( (
controllertypestr:'LM3S2601'; controllertypestr:'LM3S2601';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$20000000; srambase:$20000000;
sramsize:$00008000 sramsize:$00008000
@ -604,8 +568,7 @@ Const
( (
controllertypestr:'LM3S2608'; controllertypestr:'LM3S2608';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$20000000; srambase:$20000000;
sramsize:$00008000 sramsize:$00008000
@ -614,8 +577,7 @@ Const
( (
controllertypestr:'LM3S2620'; controllertypestr:'LM3S2620';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$20000000; srambase:$20000000;
sramsize:$00008000 sramsize:$00008000
@ -624,8 +586,7 @@ Const
( (
controllertypestr:'LM3S2637'; controllertypestr:'LM3S2637';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$20000000; srambase:$20000000;
sramsize:$00008000 sramsize:$00008000
@ -634,8 +595,7 @@ Const
( (
controllertypestr:'LM3S2651'; controllertypestr:'LM3S2651';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$20000000; srambase:$20000000;
sramsize:$00008000 sramsize:$00008000
@ -644,8 +604,7 @@ Const
( (
controllertypestr:'LM3S6610'; controllertypestr:'LM3S6610';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$20000000; srambase:$20000000;
sramsize:$00008000 sramsize:$00008000
@ -654,8 +613,7 @@ Const
( (
controllertypestr:'LM3S6611'; controllertypestr:'LM3S6611';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$20000000; srambase:$20000000;
sramsize:$00008000 sramsize:$00008000
@ -664,8 +622,7 @@ Const
( (
controllertypestr:'LM3S6618'; controllertypestr:'LM3S6618';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$20000000; srambase:$20000000;
sramsize:$00008000 sramsize:$00008000
@ -674,8 +631,7 @@ Const
( (
controllertypestr:'LM3S6633'; controllertypestr:'LM3S6633';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$20000000; srambase:$20000000;
sramsize:$00008000 sramsize:$00008000
@ -684,8 +640,7 @@ Const
( (
controllertypestr:'LM3S6637'; controllertypestr:'LM3S6637';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$20000000; srambase:$20000000;
sramsize:$00008000 sramsize:$00008000
@ -694,8 +649,7 @@ Const
( (
controllertypestr:'LM3S8630'; controllertypestr:'LM3S8630';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00020000; flashsize:$00020000;
srambase:$20000000; srambase:$20000000;
sramsize:$00008000 sramsize:$00008000
@ -706,8 +660,7 @@ Const
( (
controllertypestr:'LM3S1911'; controllertypestr:'LM3S1911';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -716,8 +669,7 @@ Const
( (
controllertypestr:'LM3S1918'; controllertypestr:'LM3S1918';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -726,8 +678,7 @@ Const
( (
controllertypestr:'LM3S1937'; controllertypestr:'LM3S1937';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -736,8 +687,7 @@ Const
( (
controllertypestr:'LM3S1958'; controllertypestr:'LM3S1958';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -746,8 +696,7 @@ Const
( (
controllertypestr:'LM3S1960'; controllertypestr:'LM3S1960';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -756,8 +705,7 @@ Const
( (
controllertypestr:'LM3S1968'; controllertypestr:'LM3S1968';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -766,8 +714,7 @@ Const
( (
controllertypestr:'LM3S1969'; controllertypestr:'LM3S1969';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -776,8 +723,7 @@ Const
( (
controllertypestr:'LM3S2911'; controllertypestr:'LM3S2911';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -786,8 +732,7 @@ Const
( (
controllertypestr:'LM3S2918'; controllertypestr:'LM3S2918';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -796,8 +741,7 @@ Const
( (
controllertypestr:'LM3S2919'; controllertypestr:'LM3S2919';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -806,8 +750,7 @@ Const
( (
controllertypestr:'LM3S2939'; controllertypestr:'LM3S2939';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -816,8 +759,7 @@ Const
( (
controllertypestr:'LM3S2948'; controllertypestr:'LM3S2948';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -826,8 +768,7 @@ Const
( (
controllertypestr:'LM3S2950'; controllertypestr:'LM3S2950';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -836,8 +777,7 @@ Const
( (
controllertypestr:'LM3S2965'; controllertypestr:'LM3S2965';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -846,8 +786,7 @@ Const
( (
controllertypestr:'LM3S6911'; controllertypestr:'LM3S6911';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -856,8 +795,7 @@ Const
( (
controllertypestr:'LM3S6918'; controllertypestr:'LM3S6918';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -866,8 +804,7 @@ Const
( (
controllertypestr:'LM3S6938'; controllertypestr:'LM3S6938';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -876,8 +813,7 @@ Const
( (
controllertypestr:'LM3S6950'; controllertypestr:'LM3S6950';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -886,8 +822,7 @@ Const
( (
controllertypestr:'LM3S6952'; controllertypestr:'LM3S6952';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -896,8 +831,7 @@ Const
( (
controllertypestr:'LM3S6965'; controllertypestr:'LM3S6965';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -906,8 +840,7 @@ Const
( (
controllertypestr:'LM3S8930'; controllertypestr:'LM3S8930';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -916,8 +849,7 @@ Const
( (
controllertypestr:'LM3S8933'; controllertypestr:'LM3S8933';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -926,8 +858,7 @@ Const
( (
controllertypestr:'LM3S8938'; controllertypestr:'LM3S8938';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -936,8 +867,7 @@ Const
( (
controllertypestr:'LM3S8962'; controllertypestr:'LM3S8962';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -946,8 +876,7 @@ Const
( (
controllertypestr:'LM3S8970'; controllertypestr:'LM3S8970';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -956,8 +885,7 @@ Const
( (
controllertypestr:'LM3S8971'; controllertypestr:'LM3S8971';
controllerunitstr:'LM3FURY'; controllerunitstr:'LM3FURY';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -968,8 +896,7 @@ Const
( (
controllertypestr:'LM3S5951'; controllertypestr:'LM3S5951';
controllerunitstr:'LM3TEMPEST'; controllerunitstr:'LM3TEMPEST';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -978,8 +905,7 @@ Const
( (
controllertypestr:'LM3S5956'; controllertypestr:'LM3S5956';
controllerunitstr:'LM3TEMPEST'; controllerunitstr:'LM3TEMPEST';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -988,8 +914,7 @@ Const
( (
controllertypestr:'LM3S1B21'; controllertypestr:'LM3S1B21';
controllerunitstr:'LM3TEMPEST'; controllerunitstr:'LM3TEMPEST';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -998,8 +923,7 @@ Const
( (
controllertypestr:'LM3S2B93'; controllertypestr:'LM3S2B93';
controllerunitstr:'LM3TEMPEST'; controllerunitstr:'LM3TEMPEST';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -1008,8 +932,7 @@ Const
( (
controllertypestr:'LM3S5B91'; controllertypestr:'LM3S5B91';
controllerunitstr:'LM3TEMPEST'; controllerunitstr:'LM3TEMPEST';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -1018,8 +941,7 @@ Const
( (
controllertypestr:'LM3S9B81'; controllertypestr:'LM3S9B81';
controllerunitstr:'LM3TEMPEST'; controllerunitstr:'LM3TEMPEST';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -1028,8 +950,7 @@ Const
( (
controllertypestr:'LM3S9B90'; controllertypestr:'LM3S9B90';
controllerunitstr:'LM3TEMPEST'; controllerunitstr:'LM3TEMPEST';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -1038,8 +959,7 @@ Const
( (
controllertypestr:'LM3S9B92'; controllertypestr:'LM3S9B92';
controllerunitstr:'LM3TEMPEST'; controllerunitstr:'LM3TEMPEST';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -1048,8 +968,7 @@ Const
( (
controllertypestr:'LM3S9B95'; controllertypestr:'LM3S9B95';
controllerunitstr:'LM3TEMPEST'; controllerunitstr:'LM3TEMPEST';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -1058,8 +977,7 @@ Const
( (
controllertypestr:'LM3S9B96'; controllertypestr:'LM3S9B96';
controllerunitstr:'LM3TEMPEST'; controllerunitstr:'LM3TEMPEST';
interruptvectors:72; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00040000; flashsize:$00040000;
srambase:$20000000; srambase:$20000000;
sramsize:$00010000 sramsize:$00010000
@ -1069,8 +987,7 @@ Const
( (
controllertypestr:'SC32442B'; controllertypestr:'SC32442B';
controllerunitstr:'sc32442b'; controllerunitstr:'sc32442b';
interruptvectors:7; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00000000; flashsize:$00000000;
srambase:$00000000; srambase:$00000000;
sramsize:$08000000 sramsize:$08000000
@ -1080,8 +997,7 @@ Const
( (
controllertypestr:'THUMB2_BARE'; controllertypestr:'THUMB2_BARE';
controllerunitstr:'THUMB2_BARE'; controllerunitstr:'THUMB2_BARE';
interruptvectors:128; flashbase:$00000000;
flashbase:$00000000;
flashsize:$00100000; flashsize:$00100000;
srambase:$20000000; srambase:$20000000;
sramsize:$00100000 sramsize:$00100000
@ -1135,8 +1051,8 @@ Const
{ cpu_armv7 } [CPUARM_HAS_BX,CPUARM_HAS_BLX,CPUARM_HAS_BLX_LABEL,CPUARM_HAS_CLZ,CPUARM_HAS_EDSP,CPUARM_HAS_REV,CPUARM_HAS_LDREX], { cpu_armv7 } [CPUARM_HAS_BX,CPUARM_HAS_BLX,CPUARM_HAS_BLX_LABEL,CPUARM_HAS_CLZ,CPUARM_HAS_EDSP,CPUARM_HAS_REV,CPUARM_HAS_LDREX],
{ cpu_armv7a } [CPUARM_HAS_BX,CPUARM_HAS_BLX,CPUARM_HAS_BLX_LABEL,CPUARM_HAS_CLZ,CPUARM_HAS_EDSP,CPUARM_HAS_REV,CPUARM_HAS_LDREX], { cpu_armv7a } [CPUARM_HAS_BX,CPUARM_HAS_BLX,CPUARM_HAS_BLX_LABEL,CPUARM_HAS_CLZ,CPUARM_HAS_EDSP,CPUARM_HAS_REV,CPUARM_HAS_LDREX],
{ cpu_armv7r } [CPUARM_HAS_BX,CPUARM_HAS_BLX,CPUARM_HAS_BLX_LABEL,CPUARM_HAS_CLZ,CPUARM_HAS_EDSP,CPUARM_HAS_REV,CPUARM_HAS_LDREX], { cpu_armv7r } [CPUARM_HAS_BX,CPUARM_HAS_BLX,CPUARM_HAS_BLX_LABEL,CPUARM_HAS_CLZ,CPUARM_HAS_EDSP,CPUARM_HAS_REV,CPUARM_HAS_LDREX],
{ cpu_armv7m } [CPUARM_HAS_BX,CPUARM_HAS_BLX,CPUARM_HAS_BLX_LABEL,CPUARM_HAS_CLZ,CPUARM_HAS_EDSP,CPUARM_HAS_REV,CPUARM_HAS_LDREX,CPUARM_HAS_IDIV], { cpu_armv7m } [CPUARM_HAS_BX,CPUARM_HAS_BLX,CPUARM_HAS_CLZ,CPUARM_HAS_EDSP,CPUARM_HAS_REV,CPUARM_HAS_LDREX,CPUARM_HAS_IDIV],
{ cpu_armv7em } [CPUARM_HAS_BX,CPUARM_HAS_BLX,CPUARM_HAS_BLX_LABEL,CPUARM_HAS_CLZ,CPUARM_HAS_EDSP,CPUARM_HAS_REV,CPUARM_HAS_LDREX,CPUARM_HAS_IDIV] { cpu_armv7em } [CPUARM_HAS_BX,CPUARM_HAS_BLX,CPUARM_HAS_CLZ,CPUARM_HAS_EDSP,CPUARM_HAS_REV,CPUARM_HAS_LDREX,CPUARM_HAS_IDIV]
); );
Implementation Implementation

6
compiler/avr/cpuinfo.pas
View File

@ -104,7 +104,6 @@ Const
(( ((
controllertypestr:''; controllertypestr:'';
controllerunitstr:''; controllerunitstr:'';
interruptvectors:0;
flashbase:0; flashbase:0;
flashsize:0; flashsize:0;
srambase:0; srambase:0;
@ -115,7 +114,6 @@ Const
( (
controllertypestr:'ATMEGA16'; controllertypestr:'ATMEGA16';
controllerunitstr:'ATMEGA16'; controllerunitstr:'ATMEGA16';
interruptvectors:0;
flashbase:0; flashbase:0;
flashsize:$4000; flashsize:$4000;
srambase:0; srambase:0;
@ -126,7 +124,6 @@ Const
( (
controllertypestr:'ATMEGA32'; controllertypestr:'ATMEGA32';
controllerunitstr:'ATMEGA32'; controllerunitstr:'ATMEGA32';
interruptvectors:0;
flashbase:0; flashbase:0;
flashsize:$8000; flashsize:$8000;
srambase:0; srambase:0;
@ -137,7 +134,6 @@ Const
( (
controllertypestr:'ATMEGA48'; controllertypestr:'ATMEGA48';
controllerunitstr:'ATMEGA48'; controllerunitstr:'ATMEGA48';
interruptvectors:0;
flashbase:0; flashbase:0;
flashsize:$1000; flashsize:$1000;
srambase:0; srambase:0;
@ -148,7 +144,6 @@ Const
( (
controllertypestr:'ATMEGA64'; controllertypestr:'ATMEGA64';
controllerunitstr:'ATMEGA64'; controllerunitstr:'ATMEGA64';
interruptvectors:0;
flashbase:0; flashbase:0;
flashsize:$10000; flashsize:$10000;
srambase:0; srambase:0;
@ -159,7 +154,6 @@ Const
( (
controllertypestr:'ATMEGA128'; controllertypestr:'ATMEGA128';
controllerunitstr:'ATMEGA128'; controllerunitstr:'ATMEGA128';
interruptvectors:0;
flashbase:0; flashbase:0;
flashsize:$20000; flashsize:$20000;
srambase:0; srambase:0;

7
compiler/fpcdefs.inc
View File

@ -28,13 +28,6 @@
{$define USEEXCEPT} {$define USEEXCEPT}
{ If anyone wants to use interrupt for
a specific target, add a
$define FPC_HAS_SYSTEMS_INTERRUPT_TABLE
to fpcdefs.inc to reactivate
the corresponding code }
{$undef FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
{ This fake CPU is used to allow incorporation of globtype unit { This fake CPU is used to allow incorporation of globtype unit
into utils/ppudump without any CPU specific code PM } into utils/ppudump without any CPU specific code PM }
{$ifdef generic_cpu} {$ifdef generic_cpu}

1
compiler/globtype.pas
View File

@ -267,7 +267,6 @@ interface
{ Used by ARM / AVR to differentiate between specific microcontrollers } { Used by ARM / AVR to differentiate between specific microcontrollers }
tcontrollerdatatype = record tcontrollerdatatype = record
controllertypestr, controllerunitstr: string[20]; controllertypestr, controllerunitstr: string[20];
interruptvectors:integer;
flashbase, flashsize, srambase, sramsize, eeprombase, eepromsize: dword; flashbase, flashsize, srambase, sramsize, eeprombase, eepromsize: dword;
end; end;

87
compiler/ncgutil.pas
View File

@ -146,8 +146,6 @@ interface
procedure gen_fpc_dummy(list : TAsmList); procedure gen_fpc_dummy(list : TAsmList);
procedure InsertInterruptTable;
implementation implementation
uses uses
@ -2143,89 +2141,4 @@ implementation
end; end;
procedure InsertInterruptTable;
procedure WriteVector(const name: string);
{$IFDEF arm}
var
ai: taicpu;
{$ENDIF arm}
begin
{$IFDEF arm}
if current_settings.cputype in [cpu_armv7m] then
current_asmdata.asmlists[al_globals].concat(tai_const.Createname(name,0))
else
begin
ai:=taicpu.op_sym(A_B,current_asmdata.RefAsmSymbol(name));
ai.is_jmp:=true;
current_asmdata.asmlists[al_globals].concat(ai);
end;
{$ENDIF arm}
end;
function GetInterruptTableLength: longint;
begin
{$if defined(ARM)}
result:=embedded_controllers[current_settings.controllertype].interruptvectors;
{$else}
result:=0;
{$endif}
end;
var
hp: tused_unit;
sym: tsym;
i, i2: longint;
interruptTable: array of tprocdef;
pd: tprocdef;
begin
SetLength(interruptTable, GetInterruptTableLength);
FillChar(interruptTable[0], length(interruptTable)*sizeof(pointer), 0);
hp:=tused_unit(usedunits.first);
while assigned(hp) do
begin
for i := 0 to hp.u.symlist.Count-1 do
begin
sym:=tsym(hp.u.symlist[i]);
if not assigned(sym) then
continue;
if sym.typ = procsym then
begin
for i2 := 0 to tprocsym(sym).ProcdefList.Count-1 do
begin
pd:=tprocdef(tprocsym(sym).ProcdefList[i2]);
if pd.interruptvector >= 0 then
begin
if pd.interruptvector > high(interruptTable) then
Internalerror(2011030602);
if interruptTable[pd.interruptvector] <> nil then
internalerror(2011030601);
interruptTable[pd.interruptvector]:=pd;
break;
end;
end;
end;
end;
hp:=tused_unit(hp.next);
end;
new_section(current_asmdata.asmlists[al_globals],sec_init,'VECTORS',sizeof(pint));
current_asmdata.asmlists[al_globals].concat(Tai_symbol.Createname_global('VECTORS',AT_DATA,0));
{$IFDEF arm}
if current_settings.cputype in [cpu_armv7m] then
current_asmdata.asmlists[al_globals].concat(tai_const.Createname('_stack_top',0)); { ARMv7-M processors have the initial stack value at address 0 }
{$ENDIF arm}
for i:=0 to high(interruptTable) do
begin
if interruptTable[i]<>nil then
writeVector(interruptTable[i].mangledname)
else
writeVector('DefaultHandler'); { Default handler name }
end;
end;
end. end.

17
compiler/pdecsub.pas
View File

@ -1484,26 +1484,9 @@ begin
end; end;
procedure pd_interrupt(pd:tabstractprocdef); procedure pd_interrupt(pd:tabstractprocdef);
{$ifdef FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
var v: Tconstexprint;
{$endif FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
begin begin
if pd.parast.symtablelevel>normal_function_level then if pd.parast.symtablelevel>normal_function_level then
Message(parser_e_dont_nest_interrupt); Message(parser_e_dont_nest_interrupt);
{$ifdef FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
if target_info.system in systems_interrupt_table then
begin
if token<>_SEMICOLON then
begin
pd.proccalloption:=pocall_interrupt;
v:=get_intconst;
Tprocdef(pd).interruptvector:=v.uvalue;
end;
end;
{$endif FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
end; end;
procedure pd_abstract(pd:tabstractprocdef); procedure pd_abstract(pd:tabstractprocdef);

5
compiler/pmodules.pas
View File

@ -2225,11 +2225,6 @@ type
cnodeutils.InsertResStrTablesTable; cnodeutils.InsertResStrTablesTable;
cnodeutils.InsertMemorySizes; cnodeutils.InsertMemorySizes;
{$ifdef FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
if target_info.system in systems_interrupt_table then
InsertInterruptTable;
{$endif FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
{ Insert symbol to resource info } { Insert symbol to resource info }
cnodeutils.InsertResourceInfo(resources_used); cnodeutils.InsertResourceInfo(resources_used);

11
compiler/symdef.pas
View File

@ -638,8 +638,6 @@ interface
{$ifdef oldregvars} {$ifdef oldregvars}
regvarinfo: pregvarinfo; regvarinfo: pregvarinfo;
{$endif oldregvars} {$endif oldregvars}
{ interrupt vector }
interruptvector : longint;
{ First/last assembler symbol/instruction in aasmoutput list. { First/last assembler symbol/instruction in aasmoutput list.
Note: initialised after compiling the code for the procdef, but Note: initialised after compiling the code for the procdef, but
not saved to/restored from ppu. Used when inserting debug info } not saved to/restored from ppu. Used when inserting debug info }
@ -4079,7 +4077,6 @@ implementation
{$ifdef i386} {$ifdef i386}
fpu_used:=maxfpuregs; fpu_used:=maxfpuregs;
{$endif i386} {$endif i386}
interruptvector:=-1;
end; end;
@ -4125,10 +4122,6 @@ implementation
else else
import_name:=nil; import_name:=nil;
import_nr:=ppufile.getword; import_nr:=ppufile.getword;
{$ifdef FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
if target_info.system in systems_interrupt_table then
interruptvector:=ppufile.getlongint;
{$endif FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
if (po_msgint in procoptions) then if (po_msgint in procoptions) then
messageinf.i:=ppufile.getlongint; messageinf.i:=ppufile.getlongint;
if (po_msgstr in procoptions) then if (po_msgstr in procoptions) then
@ -4275,10 +4268,6 @@ implementation
if po_has_importname in procoptions then if po_has_importname in procoptions then
ppufile.putstring(import_name^); ppufile.putstring(import_name^);
ppufile.putword(import_nr); ppufile.putword(import_nr);
{$ifdef FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
if target_info.system in systems_interrupt_table then
ppufile.putlongint(interruptvector);
{$endif FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
if (po_msgint in procoptions) then if (po_msgint in procoptions) then
ppufile.putlongint(messageinf.i); ppufile.putlongint(messageinf.i);
if (po_msgstr in procoptions) then if (po_msgstr in procoptions) then

9
compiler/systems.pas
View File

@ -303,15 +303,6 @@ interface
systems_internal_sysinit = [system_i386_linux,system_i386_win32]; systems_internal_sysinit = [system_i386_linux,system_i386_win32];
{$ifdef FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
{ If anyone wants to use interrupt for
a specific target, add a
$define FPC_HAS_SYSTEMS_INTERRUPT_TABLE
to fpcdefs.inc to reactivate
the corresponding code }
systems_interrupt_table = [{system_arm_embedded}];
{$endif FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
{ all systems that use garbage collection for reference-counted types } { all systems that use garbage collection for reference-counted types }
systems_garbage_collected_managed_types = [ systems_garbage_collected_managed_types = [
system_jvm_java32, system_jvm_java32,