mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-29 11:39:23 +02:00
instead of supporting SP only, have register A7 defined, and have SP as an alias
git-svn-id: trunk@27572 -
This commit is contained in:
parent
3ac3e69c8a
commit
7ee09b9620
@ -111,12 +111,14 @@ unit cpubase;
|
||||
const
|
||||
{ Available Superregisters }
|
||||
{$i r68ksup.inc}
|
||||
RS_SP = RS_A7;
|
||||
|
||||
{ ? whatever... }
|
||||
R_SUBWHOLE = R_SUBNONE;
|
||||
|
||||
{ Available Registers }
|
||||
{$i r68kcon.inc}
|
||||
NR_SP = NR_A7;
|
||||
|
||||
{ Integer Super registers first and last }
|
||||
first_int_imreg = RS_D7+1;
|
||||
|
@ -41,4 +41,4 @@ A3,$06,$03,a3,%a3,11
|
||||
A4,$06,$04,a4,%a4,12
|
||||
A5,$06,$05,a5,%a5,13
|
||||
A6,$06,$06,a6,%a6,14
|
||||
SP,$06,$07,sp,%sp,15
|
||||
A7,$06,$07,a7,%a7,15
|
||||
|
@ -32,4 +32,4 @@ NR_A3 = tregister($06000003);
|
||||
NR_A4 = tregister($06000004);
|
||||
NR_A5 = tregister($06000005);
|
||||
NR_A6 = tregister($06000006);
|
||||
NR_SP = tregister($06000007);
|
||||
NR_A7 = tregister($06000007);
|
||||
|
@ -32,4 +32,4 @@
|
||||
'%a4',
|
||||
'%a5',
|
||||
'%a6',
|
||||
'%sp'
|
||||
'%a7'
|
||||
|
@ -6,6 +6,7 @@
|
||||
30,
|
||||
31,
|
||||
32,
|
||||
33,
|
||||
18,
|
||||
1,
|
||||
2,
|
||||
@ -28,7 +29,6 @@
|
||||
25,
|
||||
17,
|
||||
23,
|
||||
33,
|
||||
20,
|
||||
21,
|
||||
24,
|
||||
|
@ -7,6 +7,7 @@
|
||||
30,
|
||||
31,
|
||||
32,
|
||||
33,
|
||||
18,
|
||||
1,
|
||||
2,
|
||||
@ -29,7 +30,6 @@
|
||||
25,
|
||||
17,
|
||||
23,
|
||||
33,
|
||||
20,
|
||||
21,
|
||||
24
|
||||
|
@ -32,4 +32,4 @@
|
||||
'a4',
|
||||
'a5',
|
||||
'a6',
|
||||
'sp'
|
||||
'a7'
|
||||
|
@ -32,4 +32,4 @@ RS_A3 = $03;
|
||||
RS_A4 = $04;
|
||||
RS_A5 = $05;
|
||||
RS_A6 = $06;
|
||||
RS_SP = $07;
|
||||
RS_A7 = $07;
|
||||
|
Loading…
Reference in New Issue
Block a user