xref: /netbsd-src/external/gpl3/gdb.old/dist/gdb/testsuite/gdb.arch/s390-stackless.S (revision 6881a4007f077b54e5f51159c52b9b25f57deb0d)
1/* Copyright 2015-2023 Free Software Foundation, Inc.
2
3   This file is part of GDB.
4
5   This program is free software; you can redistribute it and/or modify
6   it under the terms of the GNU General Public License as published by
7   the Free Software Foundation; either version 3 of the License, or
8   (at your option) any later version.
9
10   This program is distributed in the hope that it will be useful,
11   but WITHOUT ANY WARRANTY; without even the implied warranty of
12   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13   GNU General Public License for more details.
14
15   You should have received a copy of the GNU General Public License
16   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
17
18	.text
19
20	.align	8
21	.globl  main
22	.type	main, @function
23	/* Ensure an invalid stack pointer and link register.  Don't
24	use zero, since that may be handled specially.  */
25main:	la	%r15,3(0,0)
26	la	%r14,1(0,0)
27	j	1f
28	.size	main, .-main
29
30	/* Outside any function.  */
31	.byte	0,1
321:	st	%r15,0(%r15)
33	br	%r14
34	.section	.note.GNU-stack,"",@progbits
35