jory/upx
1
0
Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

stub: arm64: rename some files, remove unused files.

Browse Source
This commit is contained in:
Markus F.X.J. Oberhumer 2016-09-22 09:54:39 +02:00
parent 493d9f1b9d
commit 053c9dc0e1
13 changed files with 9 additions and 731 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
src/stub/src/arch/arm/v8a/lzma_d-arm.S → src/stub/src/arch/arm64/v8/lzma_d-arm.S
View File

0
src/stub/src/arch/arm/v8a/lzma_d.S → src/stub/src/arch/arm64/v8/lzma_d.S
View File

0
src/stub/src/arch/arm/v8a/lzma_d_cf.S → src/stub/src/arch/arm64/v8/lzma_d_cf.S
View File

0
src/stub/src/arch/arm/v8a/macros.S → src/stub/src/arch/arm64/v8/macros.S
View File

0
src/stub/src/arch/arm/v8a/nrv2b_d8.S → src/stub/src/arch/arm64/v8/nrv2b_d8.S
View File

0
src/stub/src/arch/arm/v8a/nrv2d_d8.S → src/stub/src/arch/arm64/v8/nrv2d_d8.S
View File

0
src/stub/src/arch/arm/v8a/nrv2e_d32.S → src/stub/src/arch/arm64/v8/nrv2e_d32.S
View File

0
src/stub/src/arch/arm/v8a/nrv2e_d8.S → src/stub/src/arch/arm64/v8/nrv2e_d8.S
View File

12
src/stub/src/arm64-darwin.macho-entry.S
View File

@ -1,4 +1,4 @@
/* arm-darwin.macho-entry.S -- iPhone program entry point & decompressor (Elf binary) /* arm64-darwin.macho-entry.S -- iPhone program entry point & decompressor (Elf binary)
* *
* This file is part of the UPX executable compressor. * This file is part of the UPX executable compressor.
* *
@ -42,7 +42,7 @@
#define lr x30 #define lr x30
#include "arch/arm/v8a/macros.S" #include "arch/arm64/v8/macros.S"
sz_b_info= 12 sz_b_info= 12
sz_unc= 0 sz_unc= 0
@ -97,18 +97,18 @@ f_decompress:
// empty // empty
section NRV2E section NRV2E
#include "arch/arm/v8a/nrv2e_d8.S" #include "arch/arm64/v8/nrv2e_d8.S"
section NRV2D section NRV2D
#include "arch/arm/v8a/nrv2d_d8.S" #include "arch/arm64/v8/nrv2d_d8.S"
section NRV2B section NRV2B
#include "arch/arm/v8a/nrv2b_d8.S" #include "arch/arm64/v8/nrv2b_d8.S"
section NRV_TAIL section NRV_TAIL
// empty // empty
#include "arch/arm/v8a/lzma_d.S" #include "arch/arm64/v8/lzma_d.S"
section MACHMAINY section MACHMAINY
end_decompress: .globl end_decompress end_decompress: .globl end_decompress

4
src/stub/src/arm64-darwin.macho-fold.S
View File

@ -1,4 +1,4 @@
// arm-darwin.macho-fold.S -- linkage to C code to process Mach-O binary // arm64-darwin.macho-fold.S -- linkage to C code to process Mach-O binary
// //
// This file is part of the UPX executable compressor. // This file is part of the UPX executable compressor.
// //
@ -38,7 +38,7 @@
#define ARMEL_DARWIN 1 #define ARMEL_DARWIN 1
#endif /*}*/ #endif /*}*/
#include "arch/arm/v8a/macros.S" #include "arch/arm64/v8/macros.S"
sz_l_info = 12 sz_l_info = 12
sz_p_info = 12 sz_p_info = 12

2
src/stub/src/arm64-darwin.macho-main.c
View File

@ -1,4 +1,4 @@
/* arm-darwin.macho-main.c -- loader stub for Mach-o ARMEL /* arm64-darwin.macho-main.c -- loader stub for Mach-o
This file is part of the UPX executable compressor. This file is part of the UPX executable compressor.

271
src/stub/src/arm64-linux.elf-entry.S
View File

@ -1,271 +0,0 @@
/* aarch64-linux.elf-entry.S -- Linux program entry point & decompressor (Elf binary)
*
* This file is part of the UPX executable compressor.
*
* Copyright (C) 1996-2015 Markus Franz Xaver Johannes Oberhumer
* Copyright (C) 1996-2015 Laszlo Molnar
* Copyright (C) 2000-2015 John F. Reiser
* All Rights Reserved.
*
* UPX and the UCL library are free software; you can redistribute them
* and/or modify them under the terms of the GNU General Public License as
* published by the Free Software Foundation; either version 2 of
* the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; see the file COPYING.
* If not, write to the Free Software Foundation, Inc.,
* 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* Markus F.X.J. Oberhumer Laszlo Molnar
* <markus@oberhumer.com> <ml1050@users.sourceforge.net>
*
* John F. Reiser
* <jreiser@users.sourceforge.net>
*/
#define ARM_OLDABI 1
#include "arch/arm/v4a/macros.S"
#define bkpt .long 0xe7f001f0 /* reserved instr; Linux GNU eabi breakpoint */
sz_Elf64_Ehdr= 64
sz_Elf64_Phdr= 56
sz_b_info= 12
sz_unc= 0
sz_cpr= 4
b_method= 8
sz_l_info= 12
sz_p_info= 12
PROT_READ= 1
PROT_WRITE= 2
PROT_EXEC= 4
MAP_FIXED= 0x10
PAGE_SHIFT= 12
PAGE_SIZE = -(~0<<PAGE_SHIFT)
__NR_exit = 1 + __NR_SYSCALL_BASE
__NR_write = 4 + __NR_SYSCALL_BASE
__NR_mmap64 = 0xc0 + __NR_SYSCALL_BASE
__ARM_NR_BASE = 0xf0000 + __NR_SYSCALL_BASE
__ARM_NR_cacheflush = 2 + __ARM_NR_BASE
#ifndef DEBUG /*{*/
#define DEBUG 0
#endif /*}*/
//.long sz_pack2 // placed there by ::pack3()
section ELFMAINX
start_params:
.xword ADRM // dst for map
.long LENF // end_decompress - (start_params -4)
.long CPR0 // cpr0 - (start_params -4)
mflg:
.long MFLG // MAP_{PRIVATE|ANONYMOUS} // QNX vs linux
_start: .globl _start
//// nop; bkpt
/* Get some pages: enough
to duplicate the entire compressed PT_LOAD, plus 1 page, located just after
the brk() of the _un_compressed program. The address is pre-calculated
calculated by PackLinuxElf64arm::addLinkerSymbols().
*/
#if DEBUG /*{*/
#define TRACE_REGS r0-r12,r14,r15
// sp (r13) is not included because the write-back might cause UNDEFINED behavior
// if the write-back register is not first or last. The actual value of sp
// usually does not matter. Just remember that lr (r14) and pc (r15) are stored
// one word closer to the stack pointer because r13 has been omitted.
stmdb sp!,{TRACE_REGS}; mov r0,#1; bl trace
#endif /*}*/
adr r12,start_params -4 // &sz_pack2
ldmia r12,{r1,r2, r10,r11,lr} // r1= sz_pack2; r2= ADRM; r10= LENF;
//r11= CPR0; lr= MFLG
add r11,r11,r12 // cpr0
add r10,r10,r12 // end_decompress
ldr r3,[r11,# sz_unc]
sub r9,r12,r1 // &our_Elf64_Ehdr
add r1,r1,r3 // sz_pack2 + cpr0.sz_unc
mov r0,r2 // ADRM
add r1,r1,# PAGE_SIZE
section LUNMP000
mov r3,#0<<12 // 0-page crumb
section LUNMP001
mov r3,#1<<12 // 1-page crumb
section ELFMAINXu
stmdb sp!,{r0,r1,r2,r3,lr} // ADRU,LENU,space for sz_unc,crumb,MFLG
SP_MFLG= 4*4
D_sz_unc=2*4 // stack displacement to sz_unc
mov r2,#PROT_READ | PROT_WRITE | PROT_EXEC
ldr r3,[r12, #mflg - (start_params -4)] // MAP_{PRIVATE|ANON}
mov r5,#0 // offset= 0
mvn r4,#0 // fd= -1; cater to *BSD for fd when MAP_ANON
orr r3,r3,#MAP_FIXED
#if defined(ARMEL_EABI4) /*{*/
mov r7,#__NR_mmap64
swi 0
#else /*}{*/
swi __NR_mmap64
#endif /*}*/
#if DEBUG /*{*/
stmdb sp!,{TRACE_REGS}; mov r0,#2; bl trace
#endif /*}*/
cmn r0,#4096
bcs msg_SELinux
copy:
ldmia r9!,{r1,r2,r3,r4,r5,r6,r7,r8}; cmp r9,r10 // upto end-decompress
stmia r0!,{r1,r2,r3,r4,r5,r6,r7,r8}; blo copy
sub r4,r0,r9 // relocation amount
ldr r1,[sp,#SP_MFLG]
adr r5,f_decompress
str r1,[r0],#4 // MFLG at -4+ fold_begin
mov lr,r0 // dst for unfolded code
add r5,r5,r4 // relocated f_decompress
mov r0,r5
add r1,r9,r4 // relocated end_decompress
mov r2,#0
#if defined(ARMEL_EABI4) /*{*/
mov r7, #__ARM_NR_cacheflush& 0xff
orr r7,r7,#__ARM_NR_cacheflush&~0xff
swi 0
#else /*}{*/
swi __ARM_NR_cacheflush
#endif /*}*/
ldr r9,[r12] // sz_pack2
sub r9,r9,#sz_Elf64_Ehdr + 2*sz_Elf64_Phdr + sz_l_info + sz_p_info
sub r10,r12,r9 // &b_info
add r10,r10,r4 // relocated &b_info
ldr r0,[r11,# b_method ] // 5th param (whole word: endian issues!)
stmdb sp!,{r0, lr} // 5th param, dst for unfolded
D_stm1=2*4
ldr r3,[r11,# sz_unc]
add r0, r11,# sz_b_info
ldr r1,[r11,# sz_cpr ]
mov r2,lr // dst
str r3,[sp,#D_stm1 + D_sz_unc] // sz_unc; lzma needs for EOF
add r3, sp,#D_stm1 + D_sz_unc // &sz_unc
#if DEBUG /*{*/
stmdb sp!,{TRACE_REGS}; mov r0,#3; bl trace
#endif /*}*/
mov lr,pc; mov pc,r5 // decompress folded code [opcode 'blx' not in v4a]
ldmia sp!,{r1, pc} // discard 5th param; goto unfolded
#if DEBUG /*{*/
TRACE_BUFLEN=512
trace:
str lr,[sp,#(-1+ 15)*4] @ return pc; [remember: sp is not stored]
mov r4,sp @ &saved_r0
sub sp,sp,#TRACE_BUFLEN
mov r2,sp @ output string
mov r1,#'\n'; bl trace_hex @ In: r0 as label
mov r1,#'>'; strb r1,[r2],#1
mov r5,#3 @ rows to print
L600: @ each row
sub r0,r4,#TRACE_BUFLEN
sub r0,r0,sp
mov r0,r0,lsr #2; mov r1,#'\n'; bl trace_hex @ which block of 8
mov r6,#8 @ words per row
L610: @ each word
ldr r0,[r4],#4; mov r1,#' '; bl trace_hex @ next word
subs r6,r6,#1; bgt L610
subs r5,r5,#1; bgt L600
mov r0,#'\n'; strb r0,[r2],#1
sub r2,r2,sp @ count
mov r1,sp @ buf
mov r0,#2 @ FD_STDERR
#if defined(ARMEL_EABI4) /*{*/
mov r7,#__NR_write
swi 0
#else /*}{*/
swi __NR_write
#endif /*}*/
add sp,sp,#TRACE_BUFLEN
ldmia sp!,{TRACE_REGS}
trace_hex: // In: r0=val, r1=punctuation before, r2=ptr; Uses: r3, ip
strb r1,[r2],#1 @ punctuation
mov r3,#4*(8 -1) @ shift count
adr ip,hex
L620:
mov r1,r0,lsr r3
and r1,r1,#0xf
ldrb r1,[ip, r1]
strb r1,[r2],#1
subs r3,r3,#4; bge L620
ret
hex:
.ascii "0123456789abcdef"
#endif /*}*/
f_decompress:
#define LINUX_ARM_CACHEFLUSH 1
section NRV_HEAD
// empty
section NRV_TAIL
// empty
section NRV2E
#include "arch/arm/v4a/nrv2e_d8.S"
section NRV2D
#include "arch/arm/v4a/nrv2d_d8.S"
section NRV2B
#include "arch/arm/v4a/nrv2b_d8.S"
#include "arch/arm/v4a/lzma_d.S"
section ELFMAINY
end_decompress: .globl end_decompress
msg_SELinux:
mov r2,#L71 - L70 // length
adr r1,L70 // message text
mov r0,#2 // fd stderr
#if defined(ARMEL_EABI4) /*{*/
mov r7,#__NR_write
swi 0
#else /*}{*/
swi __NR_write
#endif /*}*/
die:
mov r0,#127
#if defined(ARMEL_EABI4) /*{*/
mov r7,#__NR_exit
swi 0
#else /*}{*/
swi __NR_exit
#endif /*}*/
L70:
.asciz "PROT_EXEC|PROT_WRITE failed.\n"
L71:
/* IDENTSTR goes here */
section ELFMAINZ
cpr0: .globl cpr0
/* { b_info={sz_unc, sz_cpr, {4 char}}, folded_loader...} */
/*
vi:ts=8:et:nowrap
*/

451
src/stub/src/arm64-linux.elf-fold.S
View File

@ -1,451 +0,0 @@
@ aarch64-linux.elf-fold.S -- linkage to C code to process Elf binary
@
@ This file is part of the UPX executable compressor.
@
@ Copyright (C) 2000-2015 John F. Reiser
@ All Rights Reserved.
@
@ UPX and the UCL library are free software; you can redistribute them
@ and/or modify them under the terms of the GNU General Public License as
@ published by the Free Software Foundation; either version 2 of
@ the License, or (at your option) any later version.
@
@ This program is distributed in the hope that it will be useful,
@ but WITHOUT ANY WARRANTY; without even the implied warranty of
@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
@ GNU General Public License for more details.
@
@ You should have received a copy of the GNU General Public License
@ along with this program; see the file COPYING.
@ If not, write to the Free Software Foundation, Inc.,
@ 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
@
@ Markus F.X.J. Oberhumer Laszlo Molnar
@ <markus@oberhumer.com> <ml1050@users.sourceforge.net>
@
@ John F. Reiser
@ <jreiser@users.sourceforge.net>
@
#define ARM_OLDABI 1
#include "arch/arm/v4a/macros.S"
#define bkpt .long 0xe7f001f0 /* reserved instr; Linux GNU eabi breakpoint */
sz_Elf64_Ehdr= 64
sz_Elf64_Phdr= 56
sz_l_info = 12
sz_p_info = 12
sz_b_info = 12
sz_unc= 0
sz_cpr= 4
b_method= 8
MAP_PRIVATE= 0x02
MAP_FIXED= 0x10
PROT_READ= 0x1
O_RDONLY= 0
PAGE_SHIFT= 12
PAGE_SIZE = -(~0<<PAGE_SHIFT)
#ifndef DEBUG /*{*/
#define DEBUG 0
#endif /*}*/
@@ control just falls through, after this part and compiled C code
@@ are uncompressed.
#define OVERHEAD 2048
#define MAX_ELF_HDR 512
fold_begin:
/* In:
r10= &b_info of first compressed block (after move)
r9= total size of compressed data
r5= f_decompress
sp/ ADRU,LENU,sz_unc,crumb,MFLG,argc,argv...
*/
ldmia sp!,{r3,r4,r6,r7,r8,r11} @ ADRU,LENU,sz_unc,crumb,MFLG,argc
mov r0,sp @ current stack pointer
add r1,sp,r11,lsl #2 @ skip argv pointers
add r1,r1,#4 @ skip argv terminator
.L10: @ skip env
ldr r2,[r1],#4
cmp r2,#0; bne .L10
.L20: @ skip auxv
ldr r2,[r1],#8
cmp r2,#0; bne .L20
sub r0,r1,#4096 @ buffer for readlink
sub r0,r0,#4 @ space for copy of space3eq
sub r1,r1,sp @ amount needed for argv,env,auxv
mov r0,r0,lsr #2+ PAGE_SHIFT @ 2+ because hardware might require
sub r0,r0,#1 @ one page
mov r0,r0,lsl #2+ PAGE_SHIFT
sub r0,r0,r1 @ space for argv,env,auxv
sub r0,r0,#4 @ room for added env ptr
mov r1,sp @ old_argv
mov sp,r0 @ new_argv
stmdb sp!,{r3,r4,r6,r7,r11} @ ADRU,LENU,sz_unc,crumb,argc; drop MFLG
SP_sz_unc= 2*4
SP_argc= 4*4
add r11,r11,#1 @ (1+argc) for end of argv
.Larg: @ copy argv
ldr r2,[r1],#4; subs r11,r11,#1
str r2,[r0],#4; bne .Larg
.Lenv: @ copy env
ldr r2,[r1],#4
str r2,[r0],#4
cmp r2,#0; bne .Lenv
sub r4,r0,#4 @ added env ptr goes here
str r2,[r0],#4 @ terminator after added ptr
mov r3,r0 @ new &Elf64_auxv_t
.Laux: @ copy auxv
ldr r2,[r1,#4] @ .a_val
str r2,[r0,#4]
ldr r2,[r1],#2*4 @ .a_type
str r2,[r0],#2*4
cmp r2,#0; bne .Laux
str r0,[sp,#SP_sz_unc] @ clobber sz_unc with 1+ &Elf64_auxv_t[AT_NULL@.a_type]
add r1,r0,#1<<(2+ PAGE_SHIFT) @ after the page
str r1,[r4] @ new env ptr
mov r4,r0 @ save page address
ldr r2,space3eq
str r2,[r1],#4 @ " =" of new env var
mov r2,#4096 @ buffer length
adr r0,proc_self_exe
sub r2,r2,#1 @ room for null terminator
bl readlink; cmn r0,#4096; bcs 0f @ error
mov r2,#0
strb r2,[r1,r0] @ null terminate pathname
0:
/* Preserve symlink /proc/self/exe by mapping one page into stack */
adr r0,proc_self_exe
mov r1,#O_RDONLY
bl open @ no error check: cannot recover
mov r1,#0
stmdb sp!,{r0,r1,r3} @ fd, offset, new &Elf64_auxv_t
mov r0,r4 @ page address
mov r1,#PAGE_SIZE
mov r2,#PROT_READ
mov r3,#MAP_PRIVATE|MAP_FIXED
bl mmap @ no error check: cannot recover
ldr r0,[sp],#4 @ fd
bl close
ldmia sp!,{r1,r3} @ junk, new &Elf64_auxv_t
/* Construct arglist for upx_main */
sub sp,sp,#MAX_ELF_HDR + OVERHEAD @ alloca
mov r4,r9 @ total size of compressed data
ldr r9,[r10,#sz_cpr] @ xi.size of ELF headers
mov r8,sp @ xo.ptr
ldr r7,[r10,#sz_unc] @ xo.size
adr r6,f_unfilter
add r9,r9,#sz_b_info @ for unpackExtent
mov r11,#0 @ dynbase for ET_EXEC; FIXME for ET_DYN
#if defined(ARMEL_DARWIN) /*{*/
ldr r12,4*1 + munmap
#elif defined(ARMEL_EABI4) /*}{*/
ldr r12,4*2 + munmap
#elif defined(ARM_OLDABI) /*}{*/
ldr r12,4*0 + munmap
#else /*}{*/
mov r12,#0
#endif /*}*/
stmdb sp!,{r3,r4,r5,r6,r7,r8,r9,r10,r11,r12}
ldmia sp!,{r0,r1,r2,r3}
bl upx_main
mov lr,r0 @ entry address
add sp,sp,#(10-4)*4
add sp,sp,#MAX_ELF_HDR + OVERHEAD @ un-alloca
#if 0 //{ make_hatch_arm() does it then
@ __clear_cache(hatch, &hatch[2]);
ldr r2,[sp,#2*4] @ 1+ &Elf64_auxv_t[AT_NULL@.a_type]
ldr r0,[r2,#4 -2*4] @ Elf64_auxv_t[AT_NULL@.a_type].a_val
add r1,r0,#2*4 @ len= 2 instructions the "escape hatch"
mov r2,#0
do_sys7t2 __ARM_NR_cacheflush @ scribble r7
#endif //}
ldmia sp!,{r0,r1,r2,r3} @ ADRU,LENU,1+ &Elf64_auxv_t[AT_NULL@.a_type],crumb
add r0,r0,r3 @ ADRU+=crumb
sub r1,r1,r3 @ LENU-=crumb
#if DEBUG /*{*/
ldr r3,[r2,#4 -2*4] @ Elf64_auxv_t[AT_NULL@.a_type].a_val
ldr r4,[r3,#0] @ 1st instr
ldr r5,[r3,#4] @ 2nd instr
#define TRACE_REGS r0-r12,r14,r15
stmdb sp!,{TRACE_REGS}; mov r0,#4; bl trace
#endif /*}*/
mov r3,#0 @ clear registers: paranoia
mov r4,#0
mov r5,#0
mov r6,#0
mov r8,#0
mov r9,#0
mov r10,#0
mov r11,#0
/* Heuristic cache flush: sweep contiguous range to force collisions and evictions. */
sub r12,sp,#(1<<19) @ limit: 1/2 MB more
sweep:
ldr r7,[sp],#-(1<<5) @ extend stack; read allocate 32 bytes
str r7,[sp] @ make it dirty
ldr r7,[sp] @ read alocate again in case dirtying caused COW split
cmp r12,sp; blo sweep
add sp,sp,#(1<<19) @ pop stack
#if defined(ARMEL_DARWIN) /*{*/
mov r7,#0
mov r12,#0xff & __NR_munmap
#elif defined(ARMEL_EABI4) /*}{*/
mov r12,#0
mov r7, #0xff & __NR_munmap
#elif defined(ARM_OLDABI) /*{*/
mov r7,#0
mov r12,#0
#endif /*}*/
ldr pc,[r2,#4 -2*4] @ Elf64_auxv_t[AT_NULL@.a_type].a_val
space3eq:
.ascii " ="
proc_self_exe:
.asciz "/proc/self/exe"
.balign 4
f_unfilter: @ (char *ptr, uint len, uint cto, uint fid)
ptr .req r0
len .req r1
cto .req r2 @ unused
fid .req r3
t1 .req r2
t2 .req r3
#ifndef FILTER_ID /*{*/
#define FILTER_ID 0x50 /* little-endian */
#endif /*}*/
and fid,fid,#0xff
cmp fid,#FILTER_ID @ last use of fid
movne pc,lr @ no-op if not filter 0x50
movs len,len,lsr #2 @ word count
cmpne ptr,#0
moveq pc,lr @ no-op if either len or ptr is 0
top_unf:
sub len,len,#1
ldr t1,[ptr,len,lsl #2]
and t2,t1,#0x0f<<24
cmp t2, #0x0b<<24; bne tst_unf @ not 'bl' subroutine call
and t2,t1,#0xff<<24 @ all the non-displacement bits
sub t1,t1,len @ convert to word-relative displacement
bic t1,t1,#0xff<<24 @ restrict to displacement field
orr t1,t1,t2 @ re-combine
str t1,[ptr,len,lsl #2]
tst_unf:
cmp len,#0
bne top_unf
ret
#if DEBUG /*{*/
TRACE_BUFLEN=512
trace:
str lr,[sp,#(-1+ 15)*4] @ return pc; [remember: sp is not stored]
mov r4,sp @ &saved_r0
sub sp,sp,#TRACE_BUFLEN
mov r2,sp @ output string
mov r1,#'\n'; bl trace_hex @ In: r0 as label
mov r1,#'>'; strb r1,[r2],#1
mov r5,#3 @ rows to print
L600: @ each row
sub r0,r4,#TRACE_BUFLEN
sub r0,r0,sp
mov r0,r0,lsr #2; mov r1,#'\n'; bl trace_hex @ which block of 8
mov r6,#8 @ words per row
L610: @ each word
ldr r0,[r4],#4; mov r1,#' '; bl trace_hex @ next word
subs r6,r6,#1; bgt L610
subs r5,r5,#1; bgt L600
mov r0,#'\n'; strb r0,[r2],#1
sub r2,r2,sp @ count
mov r1,sp @ buf
mov r0,#2 @ FD_STDERR
#if defined(ARMEL_EABI4) /*{*/
mov r7,#__NR_write
swi 0
#else /*}{*/
swi __NR_write
#endif /*}*/
add sp,sp,#TRACE_BUFLEN
ldmia sp!,{TRACE_REGS}
trace_hex: // In: r0=val, r1=punctuation before, r2=ptr; Uses: r3, ip
strb r1,[r2],#1 @ punctuation
mov r3,#4*(8 -1) @ shift count
adr ip,hex
L620:
mov r1,r0,lsr r3
and r1,r1,#0xf
ldrb r1,[ip, r1]
strb r1,[r2],#1
subs r3,r3,#4; bge L620
ret
hex:
.ascii "0123456789abcdef"
#endif /*}*/
.unreq ptr
.unreq len
.unreq cto
.unreq fid
__NR_exit = 1 + __NR_SYSCALL_BASE
__NR_read = 3 + __NR_SYSCALL_BASE
__NR_write = 4 + __NR_SYSCALL_BASE
__NR_open = 5 + __NR_SYSCALL_BASE
__NR_close = 6 + __NR_SYSCALL_BASE
__NR_unlink= 10 + __NR_SYSCALL_BASE
__NR_getpid= 20 + __NR_SYSCALL_BASE
__NR_brk = 45 + __NR_SYSCALL_BASE
__NR_readlink=85+ __NR_SYSCALL_BASE
__NR_mmap2 = 192 + __NR_SYSCALL_BASE
__NR_mprotect = 125 + __NR_SYSCALL_BASE
__NR_munmap = 91 + __NR_SYSCALL_BASE
__ARM_NR_BASE = 0x0f0000 + __NR_SYSCALL_BASE
__ARM_NR_cacheflush = 2 + __ARM_NR_BASE
.globl my_bkpt
my_bkpt:
bkpt
ret
.globl exit
exit:
do_sys __NR_exit
.globl read
read:
do_sys __NR_read; ret
.globl write
write:
do_sys __NR_write; ret
.globl open
open:
do_sys __NR_open; ret
.globl close
close:
do_sys __NR_close; ret
.globl unlink
unlink:
do_sys __NR_unlink; ret
.globl getpid
getpid:
do_sys __NR_getpid; ret
.globl brk
brk:
do_sys __NR_brk; ret
.globl readlink
readlink:
do_sys __NR_readlink; ret
.globl munmap
munmap:
do_sys __NR_munmap; ret
.globl mprotect
mprotect:
do_sys __NR_mprotect; ret
.globl __clear_cache
__clear_cache:
mov r2,#0
do_sys2 __ARM_NR_cacheflush; ret
.globl mmap
mmap:
str r5,[sp,#-4]!; ldr r5,[sp,#4+4]
str r4,[sp,#-4]!; ldr r4,[sp,#4+4]
mov r5,r5,lsr #12 @ convert to page number
mmap_do:
do_sys __NR_mmap2
ldr r4,[sp],#4
ldr r5,[sp],#4
ret
bits_privanon= -4+ fold_begin // entry stores: MAP_{PRIVATE|ANON} QNX vs linux
mmap_privanon: .globl mmap_privanon
ldr r12,bits_privanon @ r12 === ip
str r5,[sp,#-4]!; mov r5,#0 @ offset= 0
str r4,[sp,#-4]!; mvn r4,#0 @ fd= -1
orr r3,r3,r12 @ flags |= MAP_{PRIVATE|ANON} [QNX vs Linux]
b mmap_do
#if DEBUG /*{*/
div10: .globl div10
mov ip,r0 @ extra copy used at end
sub r1,r1,r1 @ hi
mov r2,r0 @ copy lo
adds r0,r0,r0,lsl #3 @ 9*lo
adc r1,r1,r1,lsl #3 @ 9*hi + C
add r1,r1,r2,lsr #(32 - 3) @ bits shifted from lo to hi
mov r2,r0 @ copy lo
adds r0,r0,r0,lsl #4
adc r1,r1,r1,lsl #4
add r1,r1,r2,lsr #(32 - 4) @ * 0x99
mov r2,r0 @ copy lo
adds r0,r0,r0,lsl #8
adc r1,r1,r1,lsl #8
add r1,r1,r2,lsr #(32 - 8) @ * 0x9999
mov r2,r0 @ copy lo
adds r0,r0,r0,lsl #16
adc r1,r1,r1,lsl #16
add r1,r1,r2,lsr #(32 - 16) @ * 0x99999999
subs r0,r0,ip,lsl #(32 - 1) @ - * 0x80000000
sbc r1,r1,ip,lsr #1 @ * 0x19999999
adds r0,r0,ip
adc r0,r1,#0 @ * 0x0.1999999a
ret
#endif /*}*/
@ vi:ts=8:et:nowrap