From 7ee09b96201d5b65593438ea65516bc491089338 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Sun, 13 Apr 2014 21:02:16 +0000
Subject: [PATCH] instead of supporting SP only, have register A7 defined, and
 have SP as an alias

git-svn-id: trunk@27572 -
---
 compiler/m68k/cpubase.pas | 2 ++
 compiler/m68k/m68kreg.dat | 2 +-
 compiler/m68k/r68kcon.inc | 2 +-
 compiler/m68k/r68kgas.inc | 2 +-
 compiler/m68k/r68kgri.inc | 2 +-
 compiler/m68k/r68ksri.inc | 2 +-
 compiler/m68k/r68kstd.inc | 2 +-
 compiler/m68k/r68ksup.inc | 2 +-
 8 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/compiler/m68k/cpubase.pas b/compiler/m68k/cpubase.pas
index 23e30ef07e..5280f5dbc4 100644
--- a/compiler/m68k/cpubase.pas
+++ b/compiler/m68k/cpubase.pas
@@ -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;
diff --git a/compiler/m68k/m68kreg.dat b/compiler/m68k/m68kreg.dat
index 9ff2289155..a33be1a47d 100644
--- a/compiler/m68k/m68kreg.dat
+++ b/compiler/m68k/m68kreg.dat
@@ -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
diff --git a/compiler/m68k/r68kcon.inc b/compiler/m68k/r68kcon.inc
index 2e8f8716fb..4a21cc15bb 100644
--- a/compiler/m68k/r68kcon.inc
+++ b/compiler/m68k/r68kcon.inc
@@ -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);
diff --git a/compiler/m68k/r68kgas.inc b/compiler/m68k/r68kgas.inc
index ee47e9ad64..8f1f99fd59 100644
--- a/compiler/m68k/r68kgas.inc
+++ b/compiler/m68k/r68kgas.inc
@@ -32,4 +32,4 @@
 '%a4',
 '%a5',
 '%a6',
-'%sp'
+'%a7'
diff --git a/compiler/m68k/r68kgri.inc b/compiler/m68k/r68kgri.inc
index 17ba5dc3a9..43f743d38d 100644
--- a/compiler/m68k/r68kgri.inc
+++ b/compiler/m68k/r68kgri.inc
@@ -6,6 +6,7 @@
 30,
 31,
 32,
+33,
 18,
 1,
 2,
@@ -28,7 +29,6 @@
 25,
 17,
 23,
-33,
 20,
 21,
 24,
diff --git a/compiler/m68k/r68ksri.inc b/compiler/m68k/r68ksri.inc
index 44010ba66a..19f6bdbbde 100644
--- a/compiler/m68k/r68ksri.inc
+++ b/compiler/m68k/r68ksri.inc
@@ -7,6 +7,7 @@
 30,
 31,
 32,
+33,
 18,
 1,
 2,
@@ -29,7 +30,6 @@
 25,
 17,
 23,
-33,
 20,
 21,
 24
diff --git a/compiler/m68k/r68kstd.inc b/compiler/m68k/r68kstd.inc
index 3719f1f96b..103d3b250e 100644
--- a/compiler/m68k/r68kstd.inc
+++ b/compiler/m68k/r68kstd.inc
@@ -32,4 +32,4 @@
 'a4',
 'a5',
 'a6',
-'sp'
+'a7'
diff --git a/compiler/m68k/r68ksup.inc b/compiler/m68k/r68ksup.inc
index 8677c2a633..89a275d366 100644
--- a/compiler/m68k/r68ksup.inc
+++ b/compiler/m68k/r68ksup.inc
@@ -32,4 +32,4 @@ RS_A3 = $03;
 RS_A4 = $04;
 RS_A5 = $05;
 RS_A6 = $06;
-RS_SP = $07;
+RS_A7 = $07;