* AArch64: fix spilling integer registers to stack offsets that cannot be

    encoded directly into the spilling instructions (second part of
    mantis #38053)

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49207 3ad0048d-3df7-0310-abae-a5850022a9f2

2 files changed, 74 insertions, 3 deletions

diff --git a/compiler/aarch64/rgcpu.pas b/compiler/aarch64/rgcpu.pas
index 268c0913fa..875cc04ee9 100644
--- a/compiler/aarch64/rgcpu.pas
+++ b/compiler/aarch64/rgcpu.pas
@@ -1,7 +1,7 @@
 {
     Copyright (c) 1998-2002 by Florian Klaempfl
 
-    This unit implements the SPARC specific class for the register
+    This unit implements the AArch64 specific class for the register
     allocator
 
     This program is free software; you can redistribute it and/or modify
@@ -87,8 +87,8 @@ implementation
           begin
             helplist:=TAsmList.create;
 
-            if getregtype(tempreg)=R_INTREGISTER then
-              hreg:=tempreg
+            if (getregtype(tempreg)=R_INTREGISTER) then
+              hreg:=getregisterinline(helplist,[R_SUBWHOLE])
             else
               hreg:=cg.getaddressregister(helplist);
 
@@ -100,6 +100,8 @@ implementation
             else
               helpins:=spilling_create_store(tempreg,tmpref);
             helplist.concat(helpins);
+            if (getregtype(tempreg)=R_INTREGISTER) then
+              ungetregisterinline(helplist,hreg);
             add_cpu_interferences(helpins);
             list.insertlistafter(pos,helplist);
             helplist.free;
diff --git a/tests/webtbs/tw38053.pp b/tests/webtbs/tw38053.pp
new file mode 100644
index 0000000000..384b234e75
--- /dev/null
+++ b/tests/webtbs/tw38053.pp
@@ -0,0 +1,69 @@
+{ %opt=-Sg }
+
+program fsz;
+// fpc -OoREGVAR az.pas; ./az
+// fpc -OoNoREGVAR az.pas; ./az
+
+// {$mode delphi}
+{$mode objfpc}
+
+Type
+  ByteRA0 = array [0..0] of byte;
+  Bytep0 = ^ByteRA0;
+TNIFTIhdr =  record //Next: analyze Format Header structure
+   HdrSz : longint; //MUST BE 348
+end;
+
+function readTiff(fnm: string; nhdr: TNIFTIhdr; img: byteP0): string;
+label
+  555;
+type
+  TTIFFhdr =  record
+        Compression, ImageHeight, ImageWidth,
+        NewSubfileType: uint32;
+  end;
+const
+  kMaxIFD = 2200;
+  kVal = 1050090;
+var
+  fsz, i, ok1: integer{int64};
+  jj,w, nTag, nIFD: uint32 {uint64};
+  hdr: array[1..kMaxIFD] of TTIFFhdr;
+begin
+	result := '';
+	fsz := kVal;
+	ok1 := kVal;
+        jj  := kVal;
+        w := kVal;
+        i := kVal;
+        nTag := kVal;
+        nIFD := kVal;
+	writeln('Value ', fsz,' ',ok1,' ',jj,' ',w,' ',i,' ',nTag,' ',nIFD,' -- ', kVal);
+        if fsz <> kVal then
+          halt(1);
+        if ok1 <> kVal then
+          halt(2);
+        if jj <> kVal then
+          halt(3);
+        if w <> kVal then
+          halt(4);
+        if i <> kVal then
+          halt(5);
+        if nTag <> kVal then
+          halt(6);
+        if nIFD <> kVal then
+          halt(7);
+	555:
+end;
+
+procedure ReportTiff();
+var
+	img: byteP0;
+    nhdr: TNIFTIhdr;
+begin
+  readTiff('xxx', nhdr, img);
+end;
+
+begin
+	ReportTiff();
+end.