mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-08 20:55:01 +00:00
179 lines
4.0 KiB
ArmAsm
179 lines
4.0 KiB
ArmAsm
#if defined(__ppc64__)
|
|
#define MODE_CHOICE(x, y) y
|
|
#else
|
|
#define MODE_CHOICE(x, y) x
|
|
#endif
|
|
|
|
#define machine_choice MODE_CHOICE(ppc7400,ppc64)
|
|
|
|
; Define some pseudo-opcodes for size-independent load & store of GPRs ...
|
|
#define lgu MODE_CHOICE(lwzu, ldu)
|
|
#define lg MODE_CHOICE(lwz,ld)
|
|
#define sg MODE_CHOICE(stw,std)
|
|
#define sgu MODE_CHOICE(stwu,stdu)
|
|
|
|
; ... and the size of GPRs and their storage indicator.
|
|
#define GPR_BYTES MODE_CHOICE(4,8)
|
|
#define LOG2_GPR_BYTES MODE_CHOICE(2,3) /* log2(GPR_BYTES) */
|
|
#define g_long MODE_CHOICE(long, quad) /* usage is ".g_long" */
|
|
|
|
; From the ABI doc: "Mac OS X ABI Function Call Guide" Version 2009-02-04.
|
|
#define LINKAGE_SIZE MODE_CHOICE(24,48)
|
|
#define PARAM_AREA MODE_CHOICE(32,64)
|
|
#define SAVED_LR_OFFSET MODE_CHOICE(8,16) /* save position for lr */
|
|
|
|
; The whole stack frame **MUST** be 16byte-aligned.
|
|
#define SAVE_SIZE (LINKAGE_SIZE+PARAM_AREA)
|
|
|
|
#if defined(__ENVIRONMENT_MAC_OS_X_VERSION_MIN_REQUIRED__) && __ENVIRONMENT_MAC_OS_X_VERSION_MIN_REQUIRED__ >= 1050
|
|
; We no longer need the pic symbol stub for Darwin >= 9.
|
|
#define BLGCP1 _GC_push_one
|
|
#undef WANT_STUB
|
|
#else
|
|
#define BLGCP1 L_GC_push_one$stub
|
|
#define WANT_STUB
|
|
#endif
|
|
|
|
.machine machine_choice
|
|
|
|
; GC_push_regs function. Under some optimization levels GCC will clobber
|
|
; some of the non-volatile registers before we get a chance to save them
|
|
; therefore, this cannot be inline asm.
|
|
|
|
.text
|
|
.align LOG2_GPR_BYTES
|
|
.globl _GC_push_regs
|
|
_GC_push_regs:
|
|
|
|
; Prolog
|
|
mflr r0
|
|
sg r0,SAVED_LR_OFFSET(r1)
|
|
sgu r1,-SAVE_SIZE(r1)
|
|
|
|
L_body:
|
|
; 'Push' r13-r31
|
|
mr r3,r13
|
|
bl BLGCP1
|
|
mr r3,r14
|
|
bl BLGCP1
|
|
mr r3,r15
|
|
bl BLGCP1
|
|
mr r3,r16
|
|
bl BLGCP1
|
|
mr r3,r17
|
|
bl BLGCP1
|
|
mr r3,r18
|
|
bl BLGCP1
|
|
mr r3,r19
|
|
bl BLGCP1
|
|
mr r3,r20
|
|
bl BLGCP1
|
|
mr r3,r21
|
|
bl BLGCP1
|
|
mr r3,r22
|
|
bl BLGCP1
|
|
mr r3,r23
|
|
bl BLGCP1
|
|
mr r3,r24
|
|
bl BLGCP1
|
|
mr r3,r25
|
|
bl BLGCP1
|
|
mr r3,r26
|
|
bl BLGCP1
|
|
mr r3,r27
|
|
bl BLGCP1
|
|
mr r3,r28
|
|
bl BLGCP1
|
|
mr r3,r29
|
|
bl BLGCP1
|
|
mr r3,r30
|
|
bl BLGCP1
|
|
mr r3,r31
|
|
bl BLGCP1
|
|
|
|
L_epilog:
|
|
; Epilog
|
|
lg r0,SAVE_SIZE+SAVED_LR_OFFSET(r1)
|
|
addi r1,r1,SAVE_SIZE
|
|
mtlr r0
|
|
|
|
; Return
|
|
blr
|
|
LFE0:
|
|
|
|
; eh frames, for those that want 'em.
|
|
|
|
#define EH_DATA_ALIGN_FACT MODE_CHOICE(0x7c,0x78)
|
|
#define EH_FRAME_OFFSET MODE_CHOICE(0x40,0x70)
|
|
|
|
.section __TEXT,__eh_frame,coalesced,no_toc+strip_static_syms+live_support
|
|
EH_frame1:
|
|
.set L$set$0,LECIE1-LSCIE1
|
|
.long L$set$0 ; Length of Common Information Entry
|
|
LSCIE1:
|
|
.long 0 ; CIE Identifier Tag
|
|
.byte 0x1 ; CIE Version
|
|
.ascii "zR\0" ; CIE Augmentation
|
|
.byte 0x1 ; uleb128 0x1; CIE Code Alignment Factor
|
|
.byte EH_DATA_ALIGN_FACT ; sleb128 -4/-8; CIE Data Alignment Factor
|
|
.byte 0x41 ; CIE RA Column
|
|
.byte 0x1 ; uleb128 0x1; Augmentation size
|
|
.byte 0x10 ; FDE Encoding (pcrel)
|
|
.byte 0xc ; DW_CFA_def_cfa
|
|
.byte 0x1 ; uleb128 0x1
|
|
.byte 0 ; uleb128 0
|
|
.align LOG2_GPR_BYTES
|
|
LECIE1:
|
|
|
|
.globl _GC_push_regs.eh
|
|
_GC_push_regs.eh:
|
|
LSFDE1:
|
|
.set L$set$1,LEFDE1-LASFDE1
|
|
.long L$set$1 ; FDE Length
|
|
LASFDE1:
|
|
.long LASFDE1-EH_frame1 ; FDE CIE offset
|
|
.g_long _GC_push_regs-. ; FDE initial location
|
|
.set L$set$2,LFE0-_GC_push_regs
|
|
.g_long L$set$2 ; FDE address range
|
|
.byte 0 ; uleb128 0; Augmentation size
|
|
.byte 0x4 ; DW_CFA_advance_loc4
|
|
.set L$set$3,L_body-_GC_push_regs
|
|
.long L$set$3
|
|
.byte 0xe ; DW_CFA_def_cfa_offset
|
|
.byte EH_FRAME_OFFSET ; uleb128 0x40/0x70
|
|
.byte 0x11 ; DW_CFA_offset_extended_sf
|
|
.byte 0x41 ; uleb128 0x41
|
|
.byte 0x7e ; sleb128 -2
|
|
.byte 0x4 ; DW_CFA_advance_loc4
|
|
.set L$set$4,L_epilog-L_body
|
|
.long L$set$4
|
|
.byte 0xe ; DW_CFA_def_cfa_offset
|
|
.byte 0 ; uleb128 0
|
|
.align LOG2_GPR_BYTES
|
|
LEFDE1:
|
|
|
|
.data
|
|
#ifdef WANT_STUB
|
|
; PIC stub stuff, generated by GCC
|
|
|
|
.section __TEXT,__picsymbolstub1,symbol_stubs,pure_instructions,32
|
|
.align LOG2_GPR_BYTES
|
|
L_GC_push_one$stub:
|
|
.indirect_symbol _GC_push_one
|
|
mflr r0
|
|
bcl 20,31,L0$_GC_push_one
|
|
L0$_GC_push_one:
|
|
mflr r11
|
|
addis r11,r11,ha16(L_GC_push_one$lazy_ptr-L0$_GC_push_one)
|
|
mtlr r0
|
|
lgu r12,lo16(L_GC_push_one$lazy_ptr-L0$_GC_push_one)(r11)
|
|
mtctr r12
|
|
bctr
|
|
|
|
.data
|
|
.lazy_symbol_pointer
|
|
L_GC_push_one$lazy_ptr:
|
|
.indirect_symbol _GC_push_one
|
|
.g_long dyld_stub_binding_helper
|
|
#endif
|