1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
#!/usr/bin/env perl
# Copyright (c) 2018, Google Inc.
#
# Permission to use, copy, modify, and/or distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
# SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
# OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
# CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
# This file defines helper functions for crypto/test/abi_test.h on x86. See
# that header for details on how to use this.
#
# For convenience, this file is linked into libcrypto, where consuming builds
# already support architecture-specific sources. The static linker should drop
# this code in non-test binaries. This includes a shared library build of
# libcrypto, provided --gc-sections (ELF), -dead_strip (Mac), or equivalent is
# used.
#
# References:
#
# SysV ABI: https://uclibc.org/docs/psABI-i386.pdf
# Win32 ABI: https://docs.microsoft.com/en-us/cpp/cpp/argument-passing-and-naming-conventions?view=vs-2017
use strict;
$0 =~ m/(.*[\/\\])[^\/\\]+$/;
my $dir = $1;
push(@INC, "${dir}", "${dir}../../perlasm");
require "x86asm.pl";
my $output = pop;
open STDOUT, ">$output";
&asm_init($ARGV[0]);
# abi_test_trampoline loads callee-saved registers from |state|, calls |func|
# with |argv|, then saves the callee-saved registers into |state|. It returns
# the result of |func|. |unwind| is ignored.
# uint32_t abi_test_trampoline(void (*func)(...), CallerState *state,
# const uint32_t *argv, size_t argc,
# int unwind);
&function_begin("abi_test_trampoline")
# Load registers from |state|. Note |function_begin| (as opposed to
# |function_begin_B|) automatically saves all callee-saved registers, so we
# may freely clobber them.
&mov("ecx", &wparam(1));
&mov("esi", &DWP(4*0, "ecx"));
&mov("edi", &DWP(4*1, "ecx"));
&mov("ebx", &DWP(4*2, "ecx"));
&mov("ebp", &DWP(4*3, "ecx"));
# Use a fixed stack allocation so |wparam| continues to work. abi_test.h
# supports at most 10 arguments. The SysV ABI requires a 16-byte-aligned
# stack on process entry, so round up to 3 (mod 4).
&stack_push(11);
# Copy parameters to stack.
&mov("eax", &wparam(2));
&xor("ecx", "ecx");
&set_label("loop");
&cmp("ecx", &wparam(3));
&jae(&label("loop_done"));
&mov("edx", &DWP(0, "eax", "ecx", 4));
&mov(&DWP(0, "esp", "ecx", 4), "edx");
&add("ecx", 1);
&jmp(&label("loop"));
&set_label("loop_done");
&call_ptr(&wparam(0));
&stack_pop(11);
# Save registers back into |state|.
&mov("ecx", &wparam(1));
&mov(&DWP(4*0, "ecx"), "esi");
&mov(&DWP(4*1, "ecx"), "edi");
&mov(&DWP(4*2, "ecx"), "ebx");
&mov(&DWP(4*3, "ecx"), "ebp");
&function_end("abi_test_trampoline")
# abi_test_get_and_clear_direction_flag clears the direction flag. If the flag
# was previously set, it returns one. Otherwise, it returns zero.
# int abi_test_get_and_clear_direction_flag(void);
&function_begin_B("abi_test_get_and_clear_direction_flag");
&pushf();
&pop("eax");
&and("eax", 0x400);
&shr("eax", 10);
&cld();
&ret();
&function_end_B("abi_test_get_and_clear_direction_flag");
# abi_test_set_direction_flag sets the direction flag.
# void abi_test_set_direction_flag(void);
&function_begin_B("abi_test_set_direction_flag");
&std();
&ret();
&function_end_B("abi_test_set_direction_flag");
# abi_test_clobber_* zeros the corresponding register. These are used to test
# the ABI-testing framework.
foreach ("eax", "ebx", "ecx", "edx", "edi", "esi", "ebp") {
&function_begin_B("abi_test_clobber_$_");
&xor($_, $_);
&ret();
&function_end_B("abi_test_clobber_$_");
}
foreach (0..7) {
&function_begin_B("abi_test_clobber_xmm$_");
&pxor("xmm$_", "xmm$_");
&ret();
&function_end_B("abi_test_clobber_xmm$_");
}
&asm_finish();
close STDOUT or die "error closing STDOUT";
|
