s37xmod.c

/* S37XMOD.C (c) Copyright Ivan S. Warren 2010                       */
/*            Optional S370 Extensions                               */
/*                                                                   */
/*   Released under "The Q Public License Version 1"                 */
/*   (http://www.hercules-390.org/herclic.html) as modifications to  */
/*   Hercules.                                                       */

#include "hstdinc.h"
#include "hercules.h"
#include "hdl.h"
#include "opcode.h"

#if defined(_370)
/* This file is only a STUB to separate the module part of s37x
   from the functional code.
   This is necessary because the final location of the functional
   code may depend on the host operating system capabilities.
   The actual functional code resides in s37x.c */

#if defined(OPTION_370_EXTENSION)

DLL_IMPORT void s37x_replace_opcode_scan(int x);

HDL_REGISTER_SECTION;
{
    s37x_replace_opcode_scan(1);
}
END_REGISTER_SECTION

/* Module end : restore the instruction functions */
HDL_FINAL_SECTION;
{
    s37x_replace_opcode_scan(0);
}
END_FINAL_SECTION

#else /* defined(OPTION_370_EXTENSION) */

HDL_REGISTER_SECTION;
{
    logmsg("the S/370 Extension module requires the OPTION_S370_EXTENSION build option\n");
    return -1;
}
END_REGISTER_SECTION


#endif /* defined(OPTION_370_EXTENSION) */

#endif // defined(_370)

HDL_DEPENDENCY_SECTION;
{
     HDL_DEPENDENCY (HERCULES);

} END_DEPENDENCY_SECTION