summaryrefslogtreecommitdiff
path: root/dev-lisp/gcl/files/gcl-2.6.15-riscv.patch
blob: 1250ac2cf1e00946592ac75bd5a00af188121a96 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
From bc3324432b859477feed47e7db0e97dd33b61d1f Mon Sep 17 00:00:00 2001
From: Camm Maguire <camm@transcendence.maguirefamily.org>
Date: Fri, 23 Feb 2024 07:47:26 -0500
Subject: update relocs for riscv64

---
 gcl/h/elf64_riscv64_reloc.h | 44 +++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 43 insertions(+), 1 deletion(-)

diff --git a/gcl/h/elf64_riscv64_reloc.h b/gcl/h/elf64_riscv64_reloc.h
index c2f8232..08e94ce 100644
--- a/h/elf64_riscv64_reloc.h
+++ b/h/elf64_riscv64_reloc.h
@@ -23,8 +23,50 @@
     case R_RISCV_JAL:
       break;
     case R_RISCV_64:
-      store_val(where,MASK(64),(s+a));
+      store_val(where,~0L,(s+a));
       break;
     case R_RISCV_32:
       store_val(where,MASK(32),(s+a));
       break;
+    case R_RISCV_32_PCREL:
+      store_val(where,MASK(32),(s+a)-p);
+      break;
+    case R_RISCV_ADD8:
+      add_val(where,MASK(8),(s+a));
+      break;
+    case R_RISCV_ADD16:
+      add_val(where,MASK(16),(s+a));
+      break;
+    case R_RISCV_ADD32:
+      add_val(where,MASK(32),(s+a));
+      break;
+    case R_RISCV_ADD64:
+      add_val(where,~0L,(s+a));
+      break;
+    case R_RISCV_SUB6:
+      add_val(where,MASK(6),-(s+a));
+      break;
+    case R_RISCV_SUB8:
+      add_val(where,MASK(8),-(s+a));
+      break;
+    case R_RISCV_SUB16:
+      add_val(where,MASK(16),-(s+a));
+      break;
+    case R_RISCV_SUB32:
+      add_val(where,MASK(32),-(s+a));
+      break;
+    case R_RISCV_SUB64:
+      add_val(where,~0L,-(s+a));
+      break;
+    case R_RISCV_SET6:
+      store_val(where,MASK(6),(s+a));
+      break;
+    case R_RISCV_SET8:
+      store_val(where,MASK(8),(s+a));
+      break;
+    case R_RISCV_SET16:
+      store_val(where,MASK(16),(s+a));
+      break;
+    case R_RISCV_SET32:
+      store_val(where,MASK(32),(s+a));
+      break;
-- 
cgit v1.1