sys/lib/acid/arm64

   1 // ARM64 support
   2
   3 defn acidinit()                 // Called after all the init modules are loaded
   4 {
   5         bplist = {};
   6         bpfmt = 'Y';
   7         wplist = {};
   8         wpflush();
   9
  10         srcpath = {
  11                 "./",
  12                 "/sys/src/libc/port/",
  13                 "/sys/src/libc/9sys/",
  14                 "/sys/src/libc/arm64/"
  15         };
  16
  17         srcfiles = {};                  // list of loaded files
  18         srctext = {};                   // the text of the files
  19 }
  20
  21 defn linkreg(addr)
  22 {
  23         return *R30;
  24 }
  25
  26 defn stk()                              // trace
  27 {
  28         _stk(*PC, *SP, linkreg(0), 0);
  29 }
  30
  31 defn lstk()                             // trace with locals
  32 {
  33         _stk(*PC, *SP, linkreg(0), 1);
  34 }
  35
  36 defn gpr()                      // print general purpose registers
  37 {
  38         print("R0\t", *R0, " R1\t", *R1, " R2\t", *R2, "\n");
  39         print("R3\t", *R3, " R4\t", *R4, " R5\t", *R5, "\n");
  40         print("R6\t", *R6, " R7\t", *R7, " R8\t", *R8, "\n");
  41         print("R9\t", *R9, " R10\t", *R10, " R11\t", *R11, "\n");
  42         print("R12\t", *R12, " R13\t", *R13, " R14\t", *R14, "\n");
  43         print("R15\t", *R15, " R16\t", *R16, " R17\t", *R17, "\n");
  44         print("R18\t", *R18, " R19\t", *R19, " R20\t", *R20, "\n");
  45         print("R21\t", *R21, " R22\t", *R22, " R23\t", *R23, "\n");
  46         print("R24\t", *R24, " R25\t", *R25, " R26\t", *R26, "\n");
  47         print("R27\t", *R27, " R28\t", *R28, " R29\t", *R29, "\n");
  48         print("R30\t", *R30, "\n");
  49 }
  50
  51 defn regs()                             // print all registers
  52 {
  53         gpr();
  54 }
  55
  56 defn pstop(pid)
  57 {
  58         local l;
  59         local pc;
  60
  61         pc = *PC;
  62
  63         print(pid,": ", reason(*TYPE), "\t");
  64         print(fmt(pc, 'a'), "\t", fmt(pc, 'i'), "\n");
  65
  66         if notes then {
  67                 if notes[0] != "sys: breakpoint" then {
  68                         print("Notes pending:\n");
  69                         l = notes;
  70                         while l do {
  71                                 print("\t", head l, "\n");
  72                                 l = tail l;
  73                         }
  74                 }
  75         }
  76 }
  77
  78 sizeofUreg = 272;
  79 aggr Ureg
  80 {
  81         'W' 0 r0;
  82         'W' 8 r1;
  83         'W' 16 r2;
  84         'W' 24 r3;
  85         'W' 32 r4;
  86         'W' 40 r5;
  87         'W' 48 r6;
  88         'W' 56 r7;
  89         'W' 64 r8;
  90         'W' 72 r9;
  91         'W' 80 r10;
  92         'W' 88 r11;
  93         'W' 96 r12;
  94         'W' 104 r13;
  95         'W' 112 r14;
  96         'W' 120 r15;
  97         'W' 128 r16;
  98         'W' 136 r17;
  99         'W' 144 r18;
 100         'W' 152 r19;
 101         'W' 160 r20;
 102         'W' 168 r21;
 103         'W' 176 r22;
 104         'W' 184 r23;
 105         'W' 192 r24;
 106         'W' 200 r25;
 107         'W' 208 r26;
 108         'W' 216 r27;
 109         'W' 224 r28;
 110         'W' 232 r29;
 111         'W' 240 r30;
 112         'W' 248 type;
 113         'W' 256 psr;
 114         'W' 264 pc;
 115 };
 116
 117 defn
 118 Ureg(addr) {
 119         complex Ureg addr;
 120         print(" r0      ", addr.r0, "\n");
 121         print(" r1      ", addr.r1, "\n");
 122         print(" r2      ", addr.r2, "\n");
 123         print(" r3      ", addr.r3, "\n");
 124         print(" r4      ", addr.r4, "\n");
 125         print(" r5      ", addr.r5, "\n");
 126         print(" r6      ", addr.r6, "\n");
 127         print(" r7      ", addr.r7, "\n");
 128         print(" r8      ", addr.r8, "\n");
 129         print(" r9      ", addr.r9, "\n");
 130         print(" r10     ", addr.r10, "\n");
 131         print(" r11     ", addr.r11, "\n");
 132         print(" r12     ", addr.r12, "\n");
 133         print(" r13     ", addr.r13, "\n");
 134         print(" r14     ", addr.r14, "\n");
 135         print(" r15     ", addr.r15, "\n");
 136         print(" r16     ", addr.r16, "\n");
 137         print(" r17     ", addr.r17, "\n");
 138         print(" r18     ", addr.r18, "\n");
 139         print(" r19     ", addr.r19, "\n");
 140         print(" r20     ", addr.r20, "\n");
 141         print(" r21     ", addr.r21, "\n");
 142         print(" r22     ", addr.r22, "\n");
 143         print(" r23     ", addr.r23, "\n");
 144         print(" r24     ", addr.r24, "\n");
 145         print(" r25     ", addr.r25, "\n");
 146         print(" r26     ", addr.r26, "\n");
 147         print(" r27     ", addr.r27, "\n");
 148         print(" r28     ", addr.r28, "\n");
 149         print(" r29     ", addr.r29, "\n");
 150         print(" r30     ", addr.r30, "\n");
 151         print(" type    ", addr.type, "\n");
 152         print(" psr     ", addr.psr, "\n");
 153         print(" pc      ", addr.pc, "\n");
 154 };
 155
 156 print("/sys/lib/acid/arm64");