paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-12 12:09:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* use dwarf64 numbers for x86_64 stabs registers

Browse Source 
git-svn-id: trunk@16157 -
This commit is contained in:
pierre 2010-10-13 22:56:02 +00:00
parent 84626f3b36
commit 73b1fa667c
2 changed files with 90 additions and 85 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/utils/mkx86reg.pp
View File

@ -375,6 +375,11 @@ begin
begin begin
write(nasmfile,'''',nasmnames[i],''''); write(nasmfile,'''',nasmnames[i],'''');
end; end;
{ stabs uses the same register numbering as dwarf
for x86_64 CPU }
if x86_64 then
write(stabfile,dwarf64[i])
else
write(stabfile,stabs[i]); write(stabfile,stabs[i]);
if x86_64 then if x86_64 then
write(dwrffile,dwarf64[i]) write(dwrffile,dwarf64[i])

168
compiler/x86_64/r8664stab.inc
View File

@ -5,21 +5,29 @@
0, 0,
0, 0,
0, 0,
1,
1,
1,
1,
1,
2, 2,
2, 2,
2, 2,
2, 2,
2, 2,
1,
1,
1,
1,
1,
3, 3,
3, 3,
3, 3,
3, 3,
3, 3,
4,
4,
4,
4,
5,
5,
5,
5,
6, 6,
6, 6,
6, 6,
@ -28,86 +36,82 @@
7, 7,
7, 7,
7, 7,
5, 8,
5, 8,
5, 8,
5, 8,
4, 9,
4, 9,
4, 9,
4, 9,
-1, 10,
-1, 10,
-1, 10,
-1, 10,
-1, 11,
-1, 11,
-1, 11,
-1, 11,
-1, 12,
-1, 12,
-1, 12,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
12, 12,
13, 13,
13,
13,
13,
14,
14,
14,
14, 14,
15, 15,
15,
15,
15,
16, 16,
17, 16,
18, -1,
19, -1,
12, -1,
29, -1,
30, -1,
31, -1,
32, -1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
33, 33,
34, 34,
35, 35,
36, 36,
37,
38,
39,
40,
33,
41,
42,
43,
44,
45,
46,
47,
48,
17,
18,
19,
20,
21, 21,
22, 22,
23, 23,
@ -116,11 +120,7 @@
26, 26,
27, 27,
28, 28,
-1, 29,
-1, 30,
-1, 31,
-1, 32
-1,
-1,
-1,
-1