Merge remote-tracking branch 'remotes/jsnow-gitlab/tags/python-pull-request' into...
[qemu.git] / tests / migration / s390x / a-b-bios.c
1 /*
2 * S390 guest code used in migration tests
3 *
4 * Copyright 2018 Thomas Huth, Red Hat Inc.
5 *
6 * This code is free software; you can redistribute it and/or modify it
7 * under the terms of the GNU General Public License as published by the
8 * Free Software Foundation; either version 2 of the License, or (at your
9 * option) any later version.
10 */
11
12 #define LOADPARM_LEN 8 /* Needed for sclp.h */
13
14 #include <libc.h>
15 #include <s390-ccw.h>
16 #include <sclp.h>
17
18 char stack[0x8000] __attribute__((aligned(4096)));
19
20 #define START_ADDRESS (1024 * 1024)
21 #define END_ADDRESS (100 * 1024 * 1024)
22
23 void main(void)
24 {
25 unsigned long addr;
26
27 sclp_setup();
28 sclp_print("A");
29
30 while (1) {
31 for (addr = START_ADDRESS; addr < END_ADDRESS; addr += 4096) {
32 *(volatile char *)addr += 1; /* Change pages */
33 }
34 sclp_print("B");
35 }
36 }