![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to hppa.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Apple XNU] / GNUtools / cctools / libstuff|
Return to hppa.c CVS log | Up to [Apple XNU] / GNUtools / cctools / libstuff |
1.1 root 1: #include "stuff/hppa.h"
2: /*
3: * calc_hppa_HILO() is the specific calculation for all left/right type relocs
4: * for the hppa relocation for the hp field selectors LR% RR% which allow
5: * sharing of the LR% when the round value of the offset is the same.
6: * See hppa/reloc.h for more infomation.
7: */
8: void
9: calc_hppa_HILO(
10: unsigned long base,
11: unsigned long offset,
12: unsigned long *left21,
13: unsigned long *right14)
14: {
15: unsigned long rounded;
16:
17: rounded = (offset + (0x2000/2)) & ~(0x2000 - 1);
18:
19: *left21 = (base + rounded) & 0xfffff800;
20: *right14 = ((base + rounded) & 0x000007ff) + (offset - rounded);
21: }
22:
23: /*
24: * 2 helper routines for branch displacement calculations on hppa
25: */
26: unsigned long
27: assemble_17(
28: unsigned long x,
29: unsigned long y,
30: unsigned long z)
31: {
32: unsigned long temp;
33:
34: temp = ( ( z & 1 ) << 16 ) |
35: ( ( x & 0x1f ) << 11 ) |
36: ( ( y & 1 ) << 10 ) |
37: ( ( y & 0x7fe ) >> 1);
38: if(z)
39: temp |= 0xfffe0000; /* sign extend it */
40: return(temp);
41: }
42:
43: unsigned long
44: assemble_21(
45: unsigned long x)
46: {
47: unsigned long temp;
48:
49: temp = ( ( x & 1 ) << 20 ) |
50: ( ( x & 0xffe ) << 8 ) |
51: ( ( x & 0xc000 ) >> 7 ) |
52: ( ( x & 0x1f0000 ) >> 14 ) |
53: ( ( x & 0x003000 ) >> 12 );
54: return(temp & 0x1fffff);
55: }
56:
57: /*
58: * The following functions are all from hppa_ctrl_funcs.c in the assembler.
59: */
60: unsigned long
61: assemble_12(
62: unsigned long x,
63: unsigned long y)
64: {
65: unsigned long temp;
66:
67: temp = ( ( y & 1 ) << 11 ) |
68: ( ( x & 1 ) << 10 ) |
69: ( ( x & 0x7fe ) >> 1);
70: return(temp & 0xfff);
71: }
72:
73: unsigned long
74: assemble_3(
75: unsigned long x)
76: {
77: unsigned long temp;
78:
79: temp = ( ( x & 1 ) << 2 ) |
80: ( ( x & 6 ) >> 1 );
81: return(temp & 7);
82: }
83:
84: unsigned long
85: sign_ext(
86: unsigned long x,
87: unsigned long len)
88: {
89: unsigned long sign;
90: unsigned long result;
91: unsigned long len_ones;
92: unsigned long i;
93:
94: i = 0;
95: len_ones = 0;
96: while(i < len){
97: len_ones = (len_ones << 1) | 1;
98: i++;
99: }
100:
101: sign = (x >> (len-1)) & 1;
102:
103: if(sign)
104: result = ( ~0 ^ len_ones ) | ( len_ones & x );
105: else
106: result = len_ones & x;
107:
108: return(result);
109: }
110:
111: static
112: unsigned long
113: ones(
114: unsigned long n)
115: {
116: unsigned long len_ones;
117: unsigned long i;
118:
119: i = 0;
120: len_ones = 0;
121: while(i < n){
122: len_ones = (len_ones << 1) | 1;
123: i++;
124: }
125: return(len_ones);
126: }
127:
128: unsigned long
129: low_sign_ext(
130: unsigned long x,
131: unsigned long len)
132: {
133: unsigned long temp1, temp2;
134: unsigned long len_ones;
135:
136: len_ones = ones(len);
137:
138: temp1 = ( x & 1 ) << (len-1);
139: temp2 = ( ( x & 0xfffffffe ) & len_ones ) >> 1;
140: return(sign_ext( (temp1 | temp2),len));
141: }
142:
143: unsigned long
144: dis_assemble_21(
145: unsigned long as21)
146: {
147: unsigned long temp;
148:
149: temp = ( as21 & 0x100000 ) >> 20;
150: temp |= ( as21 & 0x0ffe00 ) >> 8;
151: temp |= ( as21 & 0x000180 ) << 7;
152: temp |= ( as21 & 0x00007c ) << 14;
153: temp |= ( as21 & 0x000003 ) << 12;
154: return(temp);
155: }
156:
157: unsigned long
158: low_sign_unext(
159: unsigned long x,
160: unsigned long len)
161: {
162: unsigned long temp;
163: unsigned long sign;
164: unsigned long rest;
165: unsigned long one_bit_at_len;
166: unsigned long len_ones;
167:
168: len_ones = ones(len);
169: one_bit_at_len = 1 << (len-1);
170:
171: temp = sign_unext(x, len);
172: sign = temp & one_bit_at_len;
173: sign >>= (len - 1);
174:
175: rest = temp & ( len_ones ^ one_bit_at_len );
176: rest <<= 1;
177:
178: return(rest | sign);
179: }
180:
181: void
182: dis_assemble_17(
183: unsigned long as17,
184: unsigned long *x,
185: unsigned long *y,
186: unsigned long *z)
187: {
188: *z = ( as17 & 0x10000 ) >> 16;
189: *x = ( as17 & 0x0f800 ) >> 11;
190: *y = ( ( as17 & 0x00400 ) >> 10 ) | ( ( as17 & 0x3ff ) << 1 );
191: }
192:
193: unsigned long
194: sign_unext(
195: unsigned long x,
196: unsigned long len)
197: {
198: unsigned long len_ones;
199:
200: len_ones = ones(len);
201: return(x & len_ones);
202: }
203:
204: unsigned long
205: dis_assemble_3(
206: unsigned long x)
207: {
208: unsigned long r;
209:
210: r = ( ( (x & 4 ) >> 2 ) | ( ( x & 3 ) << 1 ) ) & 7;
211: return(r);
212: }
213:
214: void
215: dis_assemble_12(
216: unsigned long as12,
217: unsigned long *x,
218: unsigned long *y)
219: {
220: *y = ( as12 & 0x800 ) >> 11;
221: *x = ( ( as12 & 0x3ff ) << 1 ) | ( ( as12 & 0x400 ) >> 10 );
222: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.