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 }