xref: /openbsd-src/gnu/llvm/compiler-rt/lib/builtins/arm/switch32.S (revision 3cab2bb3f667058bece8e38b12449a63a9d73c4b)
1*3cab2bb3Spatrick//===-- switch.S - Implement switch* --------------------------------------===//
2*3cab2bb3Spatrick//
3*3cab2bb3Spatrick// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
4*3cab2bb3Spatrick// See https://llvm.org/LICENSE.txt for license information.
5*3cab2bb3Spatrick// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
6*3cab2bb3Spatrick//
7*3cab2bb3Spatrick//===----------------------------------------------------------------------===//
8*3cab2bb3Spatrick
9*3cab2bb3Spatrick#include "../assembly.h"
10*3cab2bb3Spatrick
11*3cab2bb3Spatrick//
12*3cab2bb3Spatrick// When compiling switch statements in thumb mode, the compiler
13*3cab2bb3Spatrick// can use these __switch* helper functions  The compiler emits a blx to
14*3cab2bb3Spatrick// the __switch* function followed by a table of displacements for each
15*3cab2bb3Spatrick// case statement.  On entry, R0 is the index into the table. The __switch*
16*3cab2bb3Spatrick// function uses the return address in lr to find the start of the table.
17*3cab2bb3Spatrick// The first entry in the table is the count of the entries in the table.
18*3cab2bb3Spatrick// It then uses R0 to index into the table and get the displacement of the
19*3cab2bb3Spatrick// address to jump to.  If R0 is greater than the size of the table, it jumps
20*3cab2bb3Spatrick// to the last entry in the table. Each displacement in the table is actually
21*3cab2bb3Spatrick// the distance from lr to the label, thus making the tables PIC.
22*3cab2bb3Spatrick
23*3cab2bb3Spatrick
24*3cab2bb3Spatrick	.text
25*3cab2bb3Spatrick	.syntax unified
26*3cab2bb3Spatrick
27*3cab2bb3Spatrick//
28*3cab2bb3Spatrick// The table contains signed 4-byte sized elements which are the distance
29*3cab2bb3Spatrick// from lr to the target label.
30*3cab2bb3Spatrick//
31*3cab2bb3Spatrick	.p2align 2
32*3cab2bb3SpatrickDEFINE_COMPILERRT_PRIVATE_FUNCTION(__switch32)
33*3cab2bb3Spatrick	ldr     ip, [lr, #-1]            // get first 32-bit word in table
34*3cab2bb3Spatrick	cmp     r0, ip                   // compare with index
35*3cab2bb3Spatrick	add     r0, lr, r0, lsl #2       // compute address of element in table
36*3cab2bb3Spatrick	add     ip, lr, ip, lsl #2       // compute address of last element in table
37*3cab2bb3Spatrick	ite lo
38*3cab2bb3Spatrick	ldrlo   r0, [r0, #3]             // load 32-bit element if r0 is in range
39*3cab2bb3Spatrick	ldrhs   r0, [ip, #3]             // load 32-bit element if r0 out of range
40*3cab2bb3Spatrick	add     ip, lr, r0               // compute label = lr + element
41*3cab2bb3Spatrick	bx      ip                       // jump to computed label
42*3cab2bb3SpatrickEND_COMPILERRT_FUNCTION(__switch32)
43*3cab2bb3Spatrick
44*3cab2bb3SpatrickNO_EXEC_STACK_DIRECTIVE
45*3cab2bb3Spatrick
46