gcc/ada/sigtramp-vxworks-target.inc

79 #undef TCR
80 #define TCR(S) TAB(CR(S))
252 TCR(COMMON_CFI(GR(0)))  \
253 TCR(COMMON_CFI(GR(1)))  \
254 TCR(COMMON_CFI(GR(2)))  \
255 TCR(COMMON_CFI(GR(3)))  \
256 TCR(COMMON_CFI(GR(4)))  \
257 TCR(COMMON_CFI(GR(5)))  \
258 TCR(COMMON_CFI(GR(6)))  \
259 TCR(COMMON_CFI(GR(7)))  \
260 TCR(COMMON_CFI(GR(8)))  \
261 TCR(COMMON_CFI(GR(9)))  \
262 TCR(COMMON_CFI(GR(10)))  \
263 TCR(COMMON_CFI(GR(11)))  \
264 TCR(COMMON_CFI(GR(12)))  \
265 TCR(COMMON_CFI(GR(13)))  \
266 TCR(COMMON_CFI(GR(14))) \
267 TCR(COMMON_CFI(GR(15))) \
268 TCR(COMMON_CFI(GR(16))) \
269 TCR(COMMON_CFI(GR(17))) \
270 TCR(COMMON_CFI(GR(18))) \
271 TCR(COMMON_CFI(GR(19))) \
272 TCR(COMMON_CFI(GR(20))) \
273 TCR(COMMON_CFI(GR(21))) \
274 TCR(COMMON_CFI(GR(22))) \
275 TCR(COMMON_CFI(GR(23))) \
276 TCR(COMMON_CFI(GR(24))) \
277 TCR(COMMON_CFI(GR(25))) \
278 TCR(COMMON_CFI(GR(26))) \
279 TCR(COMMON_CFI(GR(27))) \
280 TCR(COMMON_CFI(GR(28))) \
281 TCR(COMMON_CFI(GR(29))) \
282 TCR(COMMON_CFI(GR(30))) \
283 TCR(COMMON_CFI(GR(31))) \
284 TCR(COMMON_CFI(LR)) \
285 TCR(COMMON_CFI(CR)) \
286 TCR(COMMON_CFI(CTR)) \
287 TCR(COMMON_CFI(XER)) \
288 TCR(COMMON_CFI(PC)) \
289 TCR(".cfi_return_column " S(REGNO_PC))
297 TCR("# Allocate frame and save the non-volatile") \
298 TCR("# registers we're going to modify") \
299 TCR("stwu %r1,-16(%r1)")  \
300 TCR("mflr %r0")	\
301 TCR("stw %r0,20(%r1)")	\
302 TCR("stw %r" S(CFA_REG) ",8(%r1)")	\
303 TCR("")			\
304 TCR("# Setup CFA_REG = context, which we'll retrieve as our CFA value") \
305 TCR("mr %r" S(CFA_REG) ", %r7") \
306 TCR("")			\
307 TCR("# Call the real handler. The signo, siginfo and sigcontext") \
308 TCR("# arguments are the same as those we received in r3, r4 and r5") \
309 TCR("mtctr %r6") \
310 TCR("bctrl")	\
311 TCR("")		\
312 TCR("# Restore our callee-saved items, release our frame and return") \
313 TCR("lwz %r" S(CFA_REG) ",8(%r1)")	\
314 TCR("lwz %r0,20(%r1)")	\
315 TCR("mtlr %r0")		\
316 TCR("")			\
317 TCR("addi %r1,%r1,16")	\
318 TCR("blr")
322 TCR("0:") \
323 TCR("addis 2,12,.TOC.-0@ha") \
324 TCR("addi 2,2,.TOC.-0@l") \
325 TCR(".localentry	__gnat_sigtramp_common,.-__gnat_sigtramp_common") \
326 TCR("# Allocate frame and save the non-volatile") \
327 TCR("# registers we're going to modify") \
328 TCR("mflr %r0")	\
329 TCR("std %r0,16(%r1)")	\
330 TCR("stdu %r1,-32(%r1)")  \
331 TCR("std %r2,24(%r1)")	\
332 TCR("std %r" S(CFA_REG) ",8(%r1)")	\
333 TCR("")			\
334 TCR("# Setup CFA_REG = context, which we'll retrieve as our CFA value") \
335 TCR("mr %r" S(CFA_REG) ", %r7") \
336 TCR("")			\
337 TCR("# Call the real handler. The signo, siginfo and sigcontext") \
338 TCR("# arguments are the same as those we received in r3, r4 and r5") \
339 TCR("mr %r12,%r6") \
340 TCR("mtctr %r6") \
341 TCR("bctrl")	\
342 TCR("")		\
343 TCR("# Restore our callee-saved items, release our frame and return") \
344 TCR("ld %r" S(CFA_REG) ",8(%r1)")	\
345 TCR("ld %r2,24(%r1)")	\
346 TCR("addi %r1,%r1,32")  \
347 TCR("ld %r0,16(%r1)")	\
348 TCR("mtlr %r0")		\
349 TCR("blr")
360 TCR(COMMON_CFI(G_REG_OFFSET(0)))  \
361 TCR(COMMON_CFI(G_REG_OFFSET(1)))  \
362 TCR(COMMON_CFI(G_REG_OFFSET(2)))  \
363 TCR(COMMON_CFI(G_REG_OFFSET(3)))  \
364 TCR(COMMON_CFI(G_REG_OFFSET(4)))  \
365 TCR(COMMON_CFI(G_REG_OFFSET(5)))  \
366 TCR(COMMON_CFI(G_REG_OFFSET(6)))  \
367 TCR(COMMON_CFI(G_REG_OFFSET(7)))  \
368 TCR(COMMON_CFI(G_REG_OFFSET(8)))  \
369 TCR(COMMON_CFI(G_REG_OFFSET(9)))  \
370 TCR(COMMON_CFI(G_REG_OFFSET(10)))  \
371 TCR(COMMON_CFI(G_REG_OFFSET(11)))  \
372 TCR(COMMON_CFI(G_REG_OFFSET(12)))  \
373 TCR(COMMON_CFI(G_REG_OFFSET(13)))  \
374 TCR(COMMON_CFI(G_REG_OFFSET(14))) \
375 TCR(COMMON_CFI(G_REG_OFFSET(15))) \
376 TCR(COMMON_CFI(G_REG_OFFSET(16))) \
377 TCR(COMMON_CFI(G_REG_OFFSET(17))) \
378 TCR(COMMON_CFI(G_REG_OFFSET(18))) \
379 TCR(COMMON_CFI(G_REG_OFFSET(19))) \
380 TCR(COMMON_CFI(G_REG_OFFSET(20))) \
381 TCR(COMMON_CFI(G_REG_OFFSET(21))) \
382 TCR(COMMON_CFI(G_REG_OFFSET(22))) \
383 TCR(COMMON_CFI(G_REG_OFFSET(23))) \
384 TCR(COMMON_CFI(G_REG_OFFSET(24))) \
385 TCR(COMMON_CFI(G_REG_OFFSET(25))) \
386 TCR(COMMON_CFI(G_REG_OFFSET(26))) \
387 TCR(COMMON_CFI(G_REG_OFFSET(27))) \
388 TCR(COMMON_CFI(G_REG_OFFSET(28))) \
389 TCR(COMMON_CFI(G_REG_OFFSET(29))) \
390 TCR(COMMON_CFI(G_REG_OFFSET(30))) \
391 TCR(COMMON_CFI(G_REG_OFFSET(31))) \
392 TCR(COMMON_CFI(PC_OFFSET)) \
393 TCR(".cfi_return_column " S(REGNO_PC_OFFSET))
397 TCR(COMMON_CFI(G_REG_OFFSET(0)))  \
398 TCR(COMMON_CFI(G_REG_OFFSET(1)))  \
399 TCR(COMMON_CFI(G_REG_OFFSET(2)))  \
400 TCR(COMMON_CFI(G_REG_OFFSET(3)))  \
401 TCR(COMMON_CFI(G_REG_OFFSET(4)))  \
402 TCR(COMMON_CFI(G_REG_OFFSET(5)))  \
403 TCR(COMMON_CFI(G_REG_OFFSET(6)))  \
404 TCR(COMMON_CFI(G_REG_OFFSET(7)))  \
405 TCR(COMMON_CFI(G_REG_OFFSET(8)))  \
406 TCR(COMMON_CFI(G_REG_OFFSET(9)))  \
407 TCR(COMMON_CFI(G_REG_OFFSET(10)))  \
408 TCR(COMMON_CFI(G_REG_OFFSET(11)))  \
409 TCR(COMMON_CFI(G_REG_OFFSET(12)))  \
410 TCR(COMMON_CFI(G_REG_OFFSET(13)))  \
411 TCR(COMMON_CFI(G_REG_OFFSET(14))) \
412 TCR(COMMON_CFI(PC_OFFSET)) \
413 TCR(".cfi_return_column " S(REGNO_PC_OFFSET))
421 TCR("# Allocate the frame (16bytes aligned) and push FP and LR") \
422 TCR("stp x29, x30, [sp, #-32]!") \
423 TCR("add x29, sp, 0") \
424 TCR("# Store register used to hold the CFA on stack (pro forma)") \
425 TCR("str x" S(CFA_REG) ", [sp, 16]")  \
426 TCR("# Set the CFA reg from the 5th arg") \
427 TCR("mov x" S(CFA_REG) ", x4") \
428 TCR("# Call the handler") \
429 TCR("blr x3") \
430 TCR("# Release our frame and return (should never get here!).") \
431 TCR("ldr x" S(CFA_REG) ", [sp, 16]") \
432 TCR("ldp x29, x30, [sp], 32") \
433 TCR("ret")
437 TCR("# Allocate frame and save the non-volatile") \
438 TCR("# registers we're going to modify") \
439 TCR("mov	ip, sp") \
440 TCR("stmfd	sp!, {r"S(CFA_REG)", fp, ip, lr, pc}") \
441 TCR("# Setup CFA_REG = context, which we'll retrieve as our CFA value") \
442 TCR("ldr	r"S(CFA_REG)", [ip]") \
443 TCR("")                 \
444 TCR("# Call the real handler. The signo, siginfo and sigcontext") \
445 TCR("# arguments are the same as those we received in r0, r1 and r2") \
446 TCR("sub	fp, ip, #4") \
447 TCR("blx	r3") \
448 TCR("# Restore our callee-saved items, release our frame and return") \
449 TCR("ldmfd	sp, {r"S(CFA_REG)", fp, sp, pc}")
467 TCR(COMMON_CFI(EDI)) \
468 TCR(COMMON_CFI(ESI)) \
469 TCR(COMMON_CFI(EBP)) \
470 TCR(COMMON_CFI(ESP)) \
471 TCR(COMMON_CFI(EBX)) \
472 TCR(COMMON_CFI(EDX)) \
473 TCR(COMMON_CFI(ECX)) \
474 TCR(COMMON_CFI(EAX)) \
475 TCR(COMMON_CFI(EFLAGS)) \
476 TCR(PC_CFI(SET_PC)) \
477 TCR(".cfi_return_column " S(REGNO_SET_PC))
484 TCR("# Allocate frame and save the non-volatile") \
485 TCR("# registers we're going to modify") \
486 TCR("pushl	%ebp") \
487 TCR("movl	%esp, %ebp") \
488 TCR("pushl	%edi") \
489 TCR("subl	$24, %esp") \
490 TCR("# Setup CFA_REG = context, which we'll retrieve as our CFA value") \
491 TCR("movl	24(%ebp), %edi") \
492 TCR("# Call the real handler. The signo, siginfo and sigcontext") \
493 TCR("# arguments are the same as those we received") \
494 TCR("movl	16(%ebp), %eax") \
495 TCR("movl	%eax, 8(%esp)") \
496 TCR("movl	12(%ebp), %eax") \
497 TCR("movl	%eax, 4(%esp)") \
498 TCR("movl	8(%ebp), %eax") \
499 TCR("movl	%eax, (%esp)") \
500 TCR("call	*20(%ebp)") \
501 TCR("# Restore our callee-saved items, release our frame and return") \
502 TCR("popl	%edi") \
503 TCR("leave") \
504 TCR("ret")
513 TCR(COMMON_CFI(R15)) \
514 TCR(COMMON_CFI(R14)) \
515 TCR(COMMON_CFI(R13)) \
516 TCR(COMMON_CFI(R12)) \
517 TCR(COMMON_CFI(R11)) \
518 TCR(COMMON_CFI(R10)) \
519 TCR(COMMON_CFI(R9)) \
520 TCR(COMMON_CFI(R8)) \
521 TCR(COMMON_CFI(RDI)) \
522 TCR(COMMON_CFI(RSI)) \
523 TCR(COMMON_CFI(RBP)) \
524 TCR(COMMON_CFI(RSP)) \
525 TCR(COMMON_CFI(RBX)) \
526 TCR(COMMON_CFI(RDX)) \
527 TCR(COMMON_CFI(RCX)) \
528 TCR(COMMON_CFI(RAX)) \
529 TCR(COMMON_CFI(RPC)) \
530 TCR(".cfi_return_column " S(REGNO_RPC))
537 TCR("# Allocate frame and save the non-volatile") \
538 TCR("# registers we're going to modify") \
539 TCR("subq	$8, %rsp") \
540 TCR("# Setup CFA_REG = context, which we'll retrieve as our CFA value") \
541 TCR("movq	%r8, %r15") \
542 TCR("# Call the real handler. The signo, siginfo and sigcontext") \
543 TCR("# arguments are the same as those we received") \
544 TCR("call	*%rcx") \
545 TCR("# This part should never be executed") \
546 TCR("addq	$8, %rsp") \
547 TCR("ret")
557 #define FUNC_ALIGN TCR(".p2align 4,,15")
564 TCR(".type " S(SYM) ", "FUNCTION) \
568 TCR(".cfi_startproc") \
569 TCR(".cfi_signal_frame")
576 TCR(".size " S(SYM) ", .-" S(SYM))
585      TCR(".align 2"));