29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync#include <VBox/VBoxTpG.h>

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync#include <iprt/alloca.h>

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync#include <iprt/assert.h>

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync#include <iprt/ctype.h>

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync#include <iprt/env.h>

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync#include <iprt/err.h>

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync#include <iprt/file.h>

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync#include <iprt/getopt.h>

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync#include <iprt/initterm.h>

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync#include <iprt/list.h>

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync#include <iprt/mem.h>

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync#include <iprt/message.h>

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync#include <iprt/path.h>

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync#include <iprt/process.h>

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync#include <iprt/stream.h>

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync#include <iprt/string.h>

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync#include "scmstream.h"

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsynctypedef struct VTGATTRS

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync{

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync kVTGStability enmCode;

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync kVTGStability enmData;

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync kVTGClass enmDataDep;

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync} VTGATTRS;

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsynctypedef VTGATTRS *PVTGATTRS;

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsynctypedef struct VTGARG

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync{

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync RTLISTNODE ListEntry;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync const char *pszName;

0c94a8282c9042b02f022302a3d987746140eab9vboxsync const char *pszType;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync} VTGARG;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsynctypedef VTGARG *PVTGARG;

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsynctypedef struct VTGPROBE

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync{

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync RTLISTNODE ListEntry;

fdb40b7d2efa84fc6f03b7a695cb4b2e035c30c7vboxsync char *pszMangledName;

fdb40b7d2efa84fc6f03b7a695cb4b2e035c30c7vboxsync const char *pszUnmangledName;

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync RTLISTANCHOR ArgHead;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync uint32_t cArgs;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync uint32_t offArgList;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync uint32_t iProbe;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync} VTGPROBE;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsynctypedef VTGPROBE *PVTGPROBE;

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsynctypedef struct VTGPROVIDER

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync{

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync RTLISTNODE ListEntry;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync const char *pszName;

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync uint16_t iFirstProbe;

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync uint16_t cProbes;

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync VTGATTRS AttrSelf;

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync VTGATTRS AttrModules;

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync VTGATTRS AttrFunctions;

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync VTGATTRS AttrName;

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync VTGATTRS AttrArguments;

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync RTLISTANCHOR ProbeHead;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync} VTGPROVIDER;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsynctypedef VTGPROVIDER *PVTGPROVIDER;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c94a8282c9042b02f022302a3d987746140eab9vboxsynctypedef struct VTGSTRING

0c94a8282c9042b02f022302a3d987746140eab9vboxsync{

0c94a8282c9042b02f022302a3d987746140eab9vboxsync /** The string space core. */

0c94a8282c9042b02f022302a3d987746140eab9vboxsync RTSTRSPACECORE Core;

0c94a8282c9042b02f022302a3d987746140eab9vboxsync /** The string table offset. */

0c94a8282c9042b02f022302a3d987746140eab9vboxsync uint32_t offStrTab;

0c94a8282c9042b02f022302a3d987746140eab9vboxsync /** The actual string. */

0c94a8282c9042b02f022302a3d987746140eab9vboxsync char szString[1];

0c94a8282c9042b02f022302a3d987746140eab9vboxsync} VTGSTRING;

0c94a8282c9042b02f022302a3d987746140eab9vboxsynctypedef VTGSTRING *PVTGSTRING;

0c94a8282c9042b02f022302a3d987746140eab9vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c94a8282c9042b02f022302a3d987746140eab9vboxsyncstatic RTSTRSPACE g_StrSpace = NULL;

0c94a8282c9042b02f022302a3d987746140eab9vboxsyncstatic uint32_t g_offStrTab;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic RTLISTANCHOR g_ProviderHead;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic enum

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync{

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync kVBoxTpGAction_Nothing,

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync kVBoxTpGAction_GenerateHeader,

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync kVBoxTpGAction_GenerateObject

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync} g_enmAction = kVBoxTpGAction_Nothing;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic uint32_t g_cBits = ARCH_BITS;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic bool g_fApplyCpp = false;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic uint32_t g_cVerbosity = 0;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic const char *g_pszOutput = NULL;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic const char *g_pszScript = NULL;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic const char *g_pszTempAsm = NULL;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync#ifdef RT_OS_DARWIN

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic const char *g_pszAssembler = "yasm";

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsyncstatic const char *g_pszAssemblerFmtOpt = "-f";

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic const char g_szAssemblerFmtVal32[] = "macho32";

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic const char g_szAssemblerFmtVal64[] = "macho64";

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync#elif defined(RT_OS_OS2)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic const char *pszAssembler = "nasm.exe";

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic const char *pszAssemblerFmtOpt = "-f";

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic const char g_szAssemblerFmtVal32[] = "obj";

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic const char g_szAssemblerFmtVal64[] = "elf64";

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync#elif defined(RT_OS_WINDOWS)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic const char *g_pszAssembler = "yasm.exe";

f9cdd92d151d9c28eb0f1aed25863fc04f85691dvboxsyncstatic const char *g_pszAssemblerFmtOpt = "-f";

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic const char g_szAssemblerFmtVal32[] = "win32";

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic const char g_szAssemblerFmtVal64[] = "win64";

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync#else

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic const char *g_pszAssembler = "yasm";

f9cdd92d151d9c28eb0f1aed25863fc04f85691dvboxsyncstatic const char *g_pszAssemblerFmtOpt = "-f";

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic const char g_szAssemblerFmtVal32[] = "elf32";

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic const char g_szAssemblerFmtVal64[] = "elf64";

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync#endif

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic const char *g_pszAssemblerFmtVal = RT_CONCAT(g_szAssemblerFmtVal, ARCH_BITS);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsyncstatic const char *g_pszAssemblerDefOpt = "-D";

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsyncstatic const char *g_pszAssemblerIncOpt = "-I";

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsyncstatic char g_szAssemblerIncVal[RTPATH_MAX];

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsyncstatic const char *g_pszAssemblerIncVal = __FILE__ "/../../../include/";

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic const char *g_pszAssemblerOutputOpt = "-o";

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic unsigned g_cAssemblerOptions = 0;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic const char *g_apszAssemblerOptions[32];

1969e98a26e5b56b67fbe3b6bfa007f8f09e86ebvboxsyncstatic const char *g_pszProbeFnName = "SUPR0TracerFireProbe";

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsyncstatic bool g_fProbeFnImported = true;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c94a8282c9042b02f022302a3d987746140eab9vboxsyncstatic const char *strtabInsertN(const char *pch, size_t cch)

0c94a8282c9042b02f022302a3d987746140eab9vboxsync{

0c94a8282c9042b02f022302a3d987746140eab9vboxsync PVTGSTRING pStr = (PVTGSTRING)RTStrSpaceGetN(&g_StrSpace, pch, cch);

0c94a8282c9042b02f022302a3d987746140eab9vboxsync if (pStr)

0c94a8282c9042b02f022302a3d987746140eab9vboxsync return pStr->szString;

0c94a8282c9042b02f022302a3d987746140eab9vboxsync

0c94a8282c9042b02f022302a3d987746140eab9vboxsync /*

0c94a8282c9042b02f022302a3d987746140eab9vboxsync pStr = (PVTGSTRING)RTMemAlloc(RT_OFFSETOF(VTGSTRING, szString[cch + 1]));

0c94a8282c9042b02f022302a3d987746140eab9vboxsync if (!pStr)

0c94a8282c9042b02f022302a3d987746140eab9vboxsync return NULL;

0c94a8282c9042b02f022302a3d987746140eab9vboxsync

0c94a8282c9042b02f022302a3d987746140eab9vboxsync pStr->Core.pszString = pStr->szString;

0c94a8282c9042b02f022302a3d987746140eab9vboxsync memcpy(pStr->szString, pch, cch);

0c94a8282c9042b02f022302a3d987746140eab9vboxsync pStr->szString[cch] = '\0';

0c94a8282c9042b02f022302a3d987746140eab9vboxsync pStr->offStrTab = UINT32_MAX;

0c94a8282c9042b02f022302a3d987746140eab9vboxsync

0c94a8282c9042b02f022302a3d987746140eab9vboxsync bool fRc = RTStrSpaceInsert(&g_StrSpace, &pStr->Core);

0c94a8282c9042b02f022302a3d987746140eab9vboxsync Assert(fRc); NOREF(fRc);

0c94a8282c9042b02f022302a3d987746140eab9vboxsync return pStr->szString;

0c94a8282c9042b02f022302a3d987746140eab9vboxsync}

0c94a8282c9042b02f022302a3d987746140eab9vboxsync

0c94a8282c9042b02f022302a3d987746140eab9vboxsync

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsyncstatic uint32_t strtabGetOff(const char *pszStrTabString)

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync{

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync PVTGSTRING pStr = RT_FROM_MEMBER(pszStrTabString, VTGSTRING, szString[0]);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync Assert(pStr->Core.pszString == pszStrTabString);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync return pStr->offStrTab;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync}

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic RTEXITCODE generateInvokeAssembler(const char *pszOutput, const char *pszTempAsm)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync{

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync const char *apszArgs[64];

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync unsigned iArg = 0;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = g_pszAssembler;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = g_pszAssemblerFmtOpt;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = g_pszAssemblerFmtVal;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = g_pszAssemblerDefOpt;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync if (!strcmp(g_pszAssemblerFmtVal, "macho32") || !strcmp(g_pszAssemblerFmtVal, "macho64"))

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = "ASM_FORMAT_MACHO";

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync else if (!strcmp(g_pszAssemblerFmtVal, "obj") || !strcmp(g_pszAssemblerFmtVal, "omf"))

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = "ASM_FORMAT_OMF";

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync else if ( !strcmp(g_pszAssemblerFmtVal, "win32")

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync || !strcmp(g_pszAssemblerFmtVal, "win64")

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync || !strcmp(g_pszAssemblerFmtVal, "pe32")

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync || !strcmp(g_pszAssemblerFmtVal, "pe64")

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync || !strcmp(g_pszAssemblerFmtVal, "pe") )

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = "ASM_FORMAT_PE";

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync else if ( !strcmp(g_pszAssemblerFmtVal, "elf32")

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync || !strcmp(g_pszAssemblerFmtVal, "elf64")

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync || !strcmp(g_pszAssemblerFmtVal, "elf"))

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = "ASM_FORMAT_ELF";

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync else

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync return RTMsgErrorExit(RTEXITCODE_FAILURE, "Unknown assembler format '%s'", g_pszAssemblerFmtVal);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = g_pszAssemblerDefOpt;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync if (g_cBits == 32)

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = "ARCH_BITS=32";

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync else

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = "ARCH_BITS=64";

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = g_pszAssemblerDefOpt;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync if (g_cBits == 32)

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = "RT_ARCH_X86";

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync else

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = "RT_ARCH_AMD64";

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = g_pszAssemblerIncOpt;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = g_pszAssemblerIncVal;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = g_pszAssemblerOutputOpt;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = pszOutput;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync for (unsigned i = 0; i < g_cAssemblerOptions; i++)

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = g_apszAssemblerOptions[i];

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg++] = pszTempAsm;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync apszArgs[iArg] = NULL;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync if (g_cVerbosity > 1)

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync {

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync RTMsgInfo("Starting assmbler '%s' with arguments:\n", g_pszAssembler);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync for (unsigned i = 0; i < iArg; i++)

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync RTMsgInfo(" #%02u: '%s'\n", i, apszArgs[i]);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync }

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync RTPROCESS hProc;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync int rc = RTProcCreate(apszArgs[0], apszArgs, RTENV_DEFAULT, RTPROC_FLAGS_SEARCH_PATH, &hProc);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync if (RT_FAILURE(rc))

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync return RTMsgErrorExit(RTEXITCODE_FAILURE, "Failed to start '%s' (assembler): %Rrc", apszArgs[0], rc);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync RTPROCSTATUS Status;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync rc = RTProcWait(hProc, RTPROCWAIT_FLAGS_BLOCK, &Status);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync if (RT_FAILURE(rc))

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync {

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync RTProcTerminate(hProc);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync return RTMsgErrorExit(RTEXITCODE_FAILURE, "RTProcWait failed: %Rrc", rc);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync }

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync if (Status.enmReason == RTPROCEXITREASON_SIGNAL)

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync return RTMsgErrorExit(RTEXITCODE_FAILURE, "The assembler failed: signal %d", Status.iStatus);

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync if (Status.enmReason != RTPROCEXITREASON_NORMAL)

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync return RTMsgErrorExit(RTEXITCODE_FAILURE, "The assembler failed: abend");

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync if (Status.iStatus != 0)

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync return RTMsgErrorExit((RTEXITCODE)Status.iStatus, "The assembler failed: exit code %d", Status.iStatus);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync return RTEXITCODE_SUCCESS;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync}

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic RTEXITCODE generateFile(const char *pszOutput, const char *pszWhat,

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync RTEXITCODE (*pfnGenerator)(PSCMSTREAM))

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync{

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync SCMSTREAM Strm;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync int rc = ScmStreamInitForWriting(&Strm, NULL);

29099c2d04b11e614f1fa399fab9e9162f2788b9vboxsync if (RT_FAILURE(rc))

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync return RTMsgErrorExit(RTEXITCODE_FAILURE, "ScmStreamInitForWriting returned %Rrc when generating the %s file",

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync rc, pszWhat);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync RTEXITCODE rcExit = pfnGenerator(&Strm);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (RT_FAILURE(ScmStreamGetStatus(&Strm)))

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync rcExit = RTMsgErrorExit(RTEXITCODE_FAILURE, "Stream error %Rrc generating the %s file",

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync ScmStreamGetStatus(&Strm), pszWhat);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (rcExit == RTEXITCODE_SUCCESS)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync {

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync rc = ScmStreamWriteToFile(&Strm, "%s", pszOutput);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (RT_FAILURE(rc))

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync rcExit = RTMsgErrorExit(RTEXITCODE_FAILURE, "ScmStreamWriteToFile returned %Rrc when writing '%s' (%s)",

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync rc, pszOutput, pszWhat);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (rcExit == RTEXITCODE_SUCCESS)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync {

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (g_cVerbosity > 0)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync RTMsgInfo("Successfully generated '%s'.", pszOutput);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (g_cVerbosity > 1)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync {

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync RTMsgInfo("================ %s - start ================", pszWhat);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync ScmStreamRewindForReading(&Strm);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync const char *pszLine;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync size_t cchLine;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync SCMEOL enmEol;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync while ((pszLine = ScmStreamGetLine(&Strm, &cchLine, &enmEol)) != NULL)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync RTPrintf("%.*s\n", cchLine, pszLine);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync RTMsgInfo("================ %s - end ================", pszWhat);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync }

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync }

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync }

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync ScmStreamDelete(&Strm);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync return rcExit;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync}

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync

66b58af085e22ee26be57f98127fb49ee2e91790vboxsyncstatic ssize_t ScmStreamPrintfV(PSCMSTREAM pStream, const char *pszFormat, va_list va)

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync{

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync char *psz;

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ssize_t cch = RTStrAPrintfV(&psz, pszFormat, va);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync if (cch)

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync {

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync int rc = ScmStreamWrite(pStream, psz, cch);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync RTStrFree(psz);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync if (RT_FAILURE(rc))

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync cch = rc;

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync }

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync return cch;

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync}

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync

66b58af085e22ee26be57f98127fb49ee2e91790vboxsyncstatic ssize_t ScmStreamPrintf(PSCMSTREAM pStream, const char *pszFormat, ...)

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync{

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync va_list va;

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync va_start(va, pszFormat);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ssize_t cch = ScmStreamPrintfV(pStream, pszFormat, va);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync va_end(va);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync return cch;

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync}

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c94a8282c9042b02f022302a3d987746140eab9vboxsyncstatic DECLCALLBACK(int) generateAssemblyStrTabCallback(PRTSTRSPACECORE pStr, void *pvUser)

0c94a8282c9042b02f022302a3d987746140eab9vboxsync{

0c94a8282c9042b02f022302a3d987746140eab9vboxsync PVTGSTRING pVtgStr = (PVTGSTRING)pStr;

0c94a8282c9042b02f022302a3d987746140eab9vboxsync PSCMSTREAM pStrm = (PSCMSTREAM)pvUser;

0c94a8282c9042b02f022302a3d987746140eab9vboxsync

0c94a8282c9042b02f022302a3d987746140eab9vboxsync pVtgStr->offStrTab = g_offStrTab;

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync g_offStrTab += (uint32_t)pVtgStr->Core.cchString + 1;

0c94a8282c9042b02f022302a3d987746140eab9vboxsync

0c94a8282c9042b02f022302a3d987746140eab9vboxsync ScmStreamPrintf(pStrm,

0c94a8282c9042b02f022302a3d987746140eab9vboxsync " db '%s', 0 ; off=%u len=%zu\n",

0c94a8282c9042b02f022302a3d987746140eab9vboxsync pVtgStr->szString, pVtgStr->offStrTab, pVtgStr->Core.cchString);

0c94a8282c9042b02f022302a3d987746140eab9vboxsync return VINF_SUCCESS;

0c94a8282c9042b02f022302a3d987746140eab9vboxsync}

0c94a8282c9042b02f022302a3d987746140eab9vboxsync

0c94a8282c9042b02f022302a3d987746140eab9vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic RTEXITCODE generateAssembly(PSCMSTREAM pStrm)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync{

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync PVTGPROVIDER pProvider;

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync PVTGPROBE pProbe;

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync PVTGARG pArg;

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (g_cVerbosity > 0)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync RTMsgInfo("Generating assembly code...");

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync /*

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ScmStreamPrintf(pStrm,

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "; $Id$ \n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ";; @file\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "; Automatically generated from %s. Do NOT edit!\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ";\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync "%%include \"iprt/asmdefs.mac\"\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync "\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync "\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync ";"

f9cdd92d151d9c28eb0f1aed25863fc04f85691dvboxsync "; We put all the data in a dedicated section / segment.\n"

f9cdd92d151d9c28eb0f1aed25863fc04f85691dvboxsync ";\n"

f9cdd92d151d9c28eb0f1aed25863fc04f85691dvboxsync "; In order to find the probe location specifiers, we do the necessary\n"

f9cdd92d151d9c28eb0f1aed25863fc04f85691dvboxsync "; trickery here, ASSUMING that this object comes in first in the link\n"

f9cdd92d151d9c28eb0f1aed25863fc04f85691dvboxsync "; editing process.\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync ";\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync "%%ifdef ASM_FORMAT_OMF\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " %%macro VTG_GLOBAL 2\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " global NAME(%%1)\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " NAME(%%1):\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " %%endmacro\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync " segment VTG.Obj public CLASS=DATA align=4096 use32\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync "%%elifdef ASM_FORMAT_MACHO\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " %%macro VTG_GLOBAL 2\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " global NAME(%%1)\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " NAME(%%1):\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " %%endmacro\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync " ;[section VTG Obj align=4096]\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync " [section .data]\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync "%%elifdef ASM_FORMAT_PE\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " %%macro VTG_GLOBAL 2\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " global NAME(%%1)\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " NAME(%%1):\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " %%endmacro\n"

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync " [section VTGPrLc.Begin data align=64]\n"

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync /*" times 24 db 0xcc\n"*/

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync "VTG_GLOBAL g_aVTGPrLc, data\n"

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync " [section VTGPrLc.Data data align=4]\n"

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync " [section VTGPrLc.End data align=4]\n"

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync "VTG_GLOBAL g_aVTGPrLc_End, data\n"

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync /*" times 24 db 0xcc\n"*/

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync " [section VTGObj data align=32]\n"

f9cdd92d151d9c28eb0f1aed25863fc04f85691dvboxsync "\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync "%%elifdef ASM_FORMAT_ELF\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " %%macro VTG_GLOBAL 2\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " global NAME(%%1):%%2 hidden\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " NAME(%%1):\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " %%endmacro\n"

f9cdd92d151d9c28eb0f1aed25863fc04f85691dvboxsync " [section .VTGPrLc.Start progbits alloc noexec write align=1]\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "VTG_GLOBAL g_aVTGPrLc, data\n"

f9cdd92d151d9c28eb0f1aed25863fc04f85691dvboxsync " [section .VTGPrLc progbits alloc noexec write align=1]\n"

f9cdd92d151d9c28eb0f1aed25863fc04f85691dvboxsync " [section .VTGPrLc.End progbits alloc noexec write align=1]\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "VTG_GLOBAL g_aVTGPrLc_End, data\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " [section .VTGData progbits alloc noexec write align=4096]\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync "%%else\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync " %%error \"ASM_FORMAT_XXX is not defined\"\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync "%%endif\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "VTG_GLOBAL g_VTGObjHeader, data\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " ;0 1 2 3\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " ;012345678901234567890123456789012\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " db 'VTG Object Header v1.0', 0, 0\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " dd %u\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " dd 0\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " RTCCPTR_DEF NAME(g_aVTGProviders)\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " RTCCPTR_DEF NAME(g_aVTGProviders_End) - NAME(g_aVTGProviders)\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " RTCCPTR_DEF NAME(g_aVTGProbes)\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " RTCCPTR_DEF NAME(g_aVTGProbes_End) - NAME(g_aVTGProbes)\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " RTCCPTR_DEF NAME(g_afVTGProbeEnabled)\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " RTCCPTR_DEF NAME(g_afVTGProbeEnabled_End) - NAME(g_afVTGProbeEnabled)\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " RTCCPTR_DEF NAME(g_achVTGStringTable)\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " RTCCPTR_DEF NAME(g_achVTGStringTable_End) - NAME(g_achVTGStringTable)\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " RTCCPTR_DEF NAME(g_aVTGArgLists)\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " RTCCPTR_DEF NAME(g_aVTGArgLists_End) - NAME(g_aVTGArgLists)\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " RTCCPTR_DEF NAME(g_aVTGPrLc)\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " RTCCPTR_DEF NAME(g_aVTGPrLc_End) ; cross section/segment size not possible\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync " RTCCPTR_DEF 0\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync " RTCCPTR_DEF 0\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync " RTCCPTR_DEF 0\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync " RTCCPTR_DEF 0\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ,

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync g_pszScript, g_cBits);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync

0c94a8282c9042b02f022302a3d987746140eab9vboxsync /*

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync ScmStreamPrintf(pStrm,

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync ";\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync "; Probe enabled flags. Since these will be accessed all the time\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync "; they are placed together and early in the section to get some more\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync "; cache and TLB hits when the probes are disabled.\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync ";\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "VTG_GLOBAL g_afVTGProbeEnabled, data\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync );

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync uint32_t cProbes = 0;

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync RTListForEach(&g_ProviderHead, pProvider, VTGPROVIDER, ListEntry)

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync {

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync RTListForEach(&pProvider->ProbeHead, pProbe, VTGPROBE, ListEntry)

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync {

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync ScmStreamPrintf(pStrm,

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "VTG_GLOBAL g_fVTGProbeEnabled_%s_%s, data\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync " db 0\n",

fdb40b7d2efa84fc6f03b7a695cb4b2e035c30c7vboxsync pProvider->pszName, pProbe->pszMangledName);

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync cProbes++;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync }

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync }

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync ScmStreamPrintf(pStrm, "VTG_GLOBAL g_afVTGProbeEnabled_End, data\n");

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync if (cProbes >= _32K)

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync return RTMsgErrorExit(RTEXITCODE_FAILURE, "Too many probes: %u (max %u)", cProbes, _32K - 1);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync /*

0c94a8282c9042b02f022302a3d987746140eab9vboxsync ScmStreamPrintf(pStrm,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync "\n"

0c94a8282c9042b02f022302a3d987746140eab9vboxsync ";\n"

0c94a8282c9042b02f022302a3d987746140eab9vboxsync "; The string table.\n"

0c94a8282c9042b02f022302a3d987746140eab9vboxsync ";\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "VTG_GLOBAL g_achVTGStringTable, data\n");

0c94a8282c9042b02f022302a3d987746140eab9vboxsync g_offStrTab = 0;

0c94a8282c9042b02f022302a3d987746140eab9vboxsync RTStrSpaceEnumerate(&g_StrSpace, generateAssemblyStrTabCallback, pStrm);

0c94a8282c9042b02f022302a3d987746140eab9vboxsync ScmStreamPrintf(pStrm,

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "VTG_GLOBAL g_achVTGStringTable_End, data\n");

0c94a8282c9042b02f022302a3d987746140eab9vboxsync

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync /*

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ScmStreamPrintf(pStrm,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync "\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ";\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync "; The argument lists.\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ";\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "VTG_GLOBAL g_aVTGArgLists, data\n");

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync uint32_t off = 0;

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync RTListForEach(&g_ProviderHead, pProvider, VTGPROVIDER, ListEntry)

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync {

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync RTListForEach(&pProvider->ProbeHead, pProbe, VTGPROBE, ListEntry)

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync {

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync if (pProbe->offArgList != UINT32_MAX)

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync continue;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync /* Write it. */

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync pProbe->offArgList = off;

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ScmStreamPrintf(pStrm,

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync " ; off=%u\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync " db %2u ; Argument count\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync " db 0, 0, 0 ; Reserved\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync , off, pProbe->cArgs);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync off += 4;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync RTListForEach(&pProbe->ArgHead, pArg, VTGARG, ListEntry)

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync {

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync ScmStreamPrintf(pStrm,

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync " dd %6u ; type '%s'\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync " dd %6u ; name '%s'\n",

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync strtabGetOff(pArg->pszType), pArg->pszType,

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync strtabGetOff(pArg->pszName), pArg->pszName);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync off += 8;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync }

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync /* Look for matching argument lists (lazy bird walks the whole list). */

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync PVTGPROVIDER pProv2;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync RTListForEach(&g_ProviderHead, pProv2, VTGPROVIDER, ListEntry)

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync {

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync PVTGPROBE pProbe2;

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync RTListForEach(&pProvider->ProbeHead, pProbe2, VTGPROBE, ListEntry)

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync {

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync if (pProbe2->offArgList != UINT32_MAX)

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync continue;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync if (pProbe2->cArgs != pProbe->cArgs)

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync continue;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync PVTGARG pArg2;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync pArg = RTListNodeGetNext(&pProbe->ArgHead, VTGARG, ListEntry);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync pArg2 = RTListNodeGetNext(&pProbe2->ArgHead, VTGARG, ListEntry);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync int32_t cArgs = pProbe->cArgs;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync while ( cArgs-- > 0

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync && pArg2->pszName == pArg2->pszName

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync && pArg2->pszType == pArg2->pszType)

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync {

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync pArg = RTListNodeGetNext(&pArg->ListEntry, VTGARG, ListEntry);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync pArg2 = RTListNodeGetNext(&pArg2->ListEntry, VTGARG, ListEntry);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync }

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync if (cArgs >= 0)

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync continue;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync pProbe2->offArgList = pProbe->offArgList;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync }

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync }

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync }

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync }

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync ScmStreamPrintf(pStrm,

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "VTG_GLOBAL g_aVTGArgLists_End, data\n");

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync /*

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ScmStreamPrintf(pStrm,

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ";\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync "; Prob definitions.\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ";\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "VTG_GLOBAL g_aVTGProbes, data\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "\n");

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync uint32_t iProvider = 0;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync uint32_t iProbe = 0;

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync RTListForEach(&g_ProviderHead, pProvider, VTGPROVIDER, ListEntry)

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync {

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync pProvider->iFirstProbe = iProbe;

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync RTListForEach(&pProvider->ProbeHead, pProbe, VTGPROBE, ListEntry)

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync {

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync ScmStreamPrintf(pStrm,

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "VTG_GLOBAL g_VTGProbeData_%s_%s, data ; idx=#%4u\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync " dd %6u ; name\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync " dd %6u ; Argument list offset\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " dw g_fVTGProbeEnabled_%s_%s - g_afVTGProbeEnabled\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " dw %6u ; provider index\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " dd 0 ; for the application\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync ,

fdb40b7d2efa84fc6f03b7a695cb4b2e035c30c7vboxsync pProvider->pszName, pProbe->pszMangledName, iProbe,

fdb40b7d2efa84fc6f03b7a695cb4b2e035c30c7vboxsync strtabGetOff(pProbe->pszUnmangledName),

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync pProbe->offArgList,

fdb40b7d2efa84fc6f03b7a695cb4b2e035c30c7vboxsync pProvider->pszName, pProbe->pszMangledName,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync iProvider);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync pProbe->iProbe = iProbe;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync iProbe++;

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync }

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync pProvider->cProbes = iProbe - pProvider->iFirstProbe;

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync iProvider++;

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync }

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync ScmStreamPrintf(pStrm, "VTG_GLOBAL g_aVTGProbes_End, data\n");

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync /*

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync ScmStreamPrintf(pStrm,

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync "\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync ";\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync "; Provider data.\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync ";\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "VTG_GLOBAL g_aVTGProviders, data\n");

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync iProvider = 0;

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync RTListForEach(&g_ProviderHead, pProvider, VTGPROVIDER, ListEntry)

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync {

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync ScmStreamPrintf(pStrm,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " ; idx=#%4u - %s\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync " dd %6u ; name\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " dw %6u ; index of first probe\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " dw %6u ; count of probes\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " db %d, %d, %d ; AttrSelf\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " db %d, %d, %d ; AttrModules\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " db %d, %d, %d ; AttrFunctions\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " db %d, %d, %d ; AttrName\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " db %d, %d, %d ; AttrArguments\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " db 0 ; reserved\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync ,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync iProvider, pProvider->pszName,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync strtabGetOff(pProvider->pszName),

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync pProvider->iFirstProbe,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync pProvider->cProbes,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync pProvider->AttrSelf.enmCode, pProvider->AttrSelf.enmData, pProvider->AttrSelf.enmDataDep,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync pProvider->AttrModules.enmCode, pProvider->AttrModules.enmData, pProvider->AttrModules.enmDataDep,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync pProvider->AttrFunctions.enmCode, pProvider->AttrFunctions.enmData, pProvider->AttrFunctions.enmDataDep,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync pProvider->AttrName.enmCode, pProvider->AttrName.enmData, pProvider->AttrName.enmDataDep,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync pProvider->AttrArguments.enmCode, pProvider->AttrArguments.enmData, pProvider->AttrArguments.enmDataDep);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync iProvider++;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync }

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync ScmStreamPrintf(pStrm, "VTG_GLOBAL g_aVTGProviders_End, data\n");

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync /*

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ScmStreamPrintf(pStrm,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync "\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ";\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync "; Prob stubs.\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ";\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync "BEGINCODE\n"

9c9db71d639cf066ed41d49629d46d48bff4be2fvboxsync "extern %sNAME(%s)\n",

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsync g_fProbeFnImported ? "IMP" : "",

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsync g_pszProbeFnName);

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync RTListForEach(&g_ProviderHead, pProvider, VTGPROVIDER, ListEntry)

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync {

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync RTListForEach(&pProvider->ProbeHead, pProbe, VTGPROBE, ListEntry)

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync {

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ScmStreamPrintf(pStrm,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync "\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "VTG_GLOBAL VTGProbeStub_%s_%s, function; (VBOXTPGPROBELOC pVTGProbeLoc",

fdb40b7d2efa84fc6f03b7a695cb4b2e035c30c7vboxsync pProvider->pszName, pProbe->pszMangledName);

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync RTListForEach(&pProbe->ArgHead, pArg, VTGARG, ListEntry)

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync {

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ScmStreamPrintf(pStrm, ", %s %s", pArg->pszType, pArg->pszName);

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync }

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ScmStreamPrintf(pStrm,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ");\n");

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync bool const fWin64 = g_cBits == 64 && (!strcmp(g_pszAssemblerFmtVal, "win64") || !strcmp(g_pszAssemblerFmtVal, "pe64"));

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync bool const fMachO32 = g_cBits == 32 && !strcmp(g_pszAssemblerFmtVal, "macho32");

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync /*

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync if (g_cBits == 32)

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ScmStreamPrintf(pStrm,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " mov eax, [esp + 4]\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " test byte [eax+3], 0x80 ; fEnabled == true?\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " jz .return ; jump on false\n");

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync else if (fWin64)

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ScmStreamPrintf(pStrm,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " test byte [rcx+3], 0x80 ; fEnabled == true?\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " jz .return ; jump on false\n");

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync else

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ScmStreamPrintf(pStrm,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " test byte [rdi+3], 0x80 ; fEnabled == true?\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " jz .return ; jump on false\n");

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync#if 0

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync /*

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync if (fMachO32)

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync {

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync /* Need to recreate the stack frame entirely here as the probe

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ScmStreamPrintf(pStrm, "int3\n");

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync }

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync else if (g_cBits == 32)

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsync /* Assumes the size of the arguments are no larger than a

9c9db71d639cf066ed41d49629d46d48bff4be2fvboxsync ScmStreamPrintf(pStrm, g_fProbeFnImported ?

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " mov edx, [eax + 4] ; idProbe\n"

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync " mov ecx, IMP2(%s)\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " mov [esp + 4], edx ; Replace pVTGProbeLoc with idProbe.\n"

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsync " jmp ecx\n"

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsync :

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsync " mov edx, [eax + 4] ; idProbe\n"

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsync " mov [esp + 4], edx ; Replace pVTGProbeLoc with idProbe.\n"

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsync " jmp NAME(%s)\n"

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsync , g_pszProbeFnName);

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync else if (fWin64)

9c9db71d639cf066ed41d49629d46d48bff4be2fvboxsync ScmStreamPrintf(pStrm, g_fProbeFnImported ?

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync " mov rax, IMP2(%s)\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " mov ecx, [rcx + 4] ; idProbe replaces pVTGProbeLoc.\n"

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsync " jmp rax\n"

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsync :

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsync " mov ecx, [rcx + 4] ; idProbe replaces pVTGProbeLoc.\n"

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync " jmp NAME(%s)\n"

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsync , g_pszProbeFnName);

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync else

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsync ScmStreamPrintf(pStrm, g_fProbeFnImported ?

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync " lea rax, [IMP2(%s)]\n" //??? macho64?

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsync " mov edi, [rdi + 4] ; idProbe replaces pVTGProbeLoc.\n"

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsync " jmp rax\n"

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsync :

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " mov edi, [rdi + 4] ; idProbe replaces pVTGProbeLoc.\n"

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync " jmp NAME(%s)\n"

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync , g_pszProbeFnName);

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync#else

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync /*

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync if (g_cBits == 32)

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync ScmStreamPrintf(pStrm, g_fProbeFnImported ?

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync " mov ecx, IMP2(%s)\n"

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync " jmp ecx\n"

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync :

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync " jmp NAME(%s)\n"

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsync , g_pszProbeFnName);

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync else if (fWin64)

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync ScmStreamPrintf(pStrm, g_fProbeFnImported ?

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync " mov rax, IMP2(%s)\n"

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync " jmp rax\n"

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync :

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync " jmp NAME(%s)\n"

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync , g_pszProbeFnName);

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync else

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync ScmStreamPrintf(pStrm, g_fProbeFnImported ?

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync " lea rax, [IMP2(%s)]\n" //??? macho64?

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync " jmp rax\n"

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync :

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync " jmp NAME(%s)\n"

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync , g_pszProbeFnName);

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync#endif

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ScmStreamPrintf(pStrm,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ".return:\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " ret ; The probe was disabled, return\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync "\n");

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync }

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync }

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync return RTEXITCODE_SUCCESS;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync}

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic RTEXITCODE generateObject(const char *pszOutput, const char *pszTempAsm)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync{

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (!pszTempAsm)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync {

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync size_t cch = strlen(pszOutput);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync char *psz = (char *)alloca(cch + sizeof(".asm"));

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync memcpy(psz, pszOutput, cch);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync memcpy(psz + cch, ".asm", sizeof(".asm"));

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync pszTempAsm = psz;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync }

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync RTEXITCODE rcExit = generateFile(pszTempAsm, "assembly", generateAssembly);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (rcExit == RTEXITCODE_SUCCESS)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync rcExit = generateInvokeAssembler(pszOutput, pszTempAsm);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync RTFileDelete(pszTempAsm);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync return rcExit;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync}

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

66b58af085e22ee26be57f98127fb49ee2e91790vboxsyncstatic RTEXITCODE generateProbeDefineName(char *pszBuf, size_t cbBuf, const char *pszProvider, const char *pszProbe)

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync{

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync size_t cbMax = strlen(pszProvider) + 1 + strlen(pszProbe) + 1;

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync if (cbMax > cbBuf || cbMax > 80)

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync return RTMsgErrorExit(RTEXITCODE_FAILURE, "Probe '%s' in provider '%s' ends up with a too long defined\n", pszProbe, pszProvider);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync while (*pszProvider)

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync *pszBuf++ = RT_C_TO_UPPER(*pszProvider++);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync *pszBuf++ = '_';

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync while (*pszProbe)

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync {

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync if (pszProbe[0] == '_' && pszProbe[1] == '_')

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync pszProbe++;

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync *pszBuf++ = RT_C_TO_UPPER(*pszProbe++);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync }

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync *pszBuf = '\0';

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync return RTEXITCODE_SUCCESS;

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync}

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic RTEXITCODE generateHeaderInner(PSCMSTREAM pStrm)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync{

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync /*

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync char szTmp[4096];

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync const char *pszName = RTPathFilename(g_pszScript);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync size_t cchName = strlen(pszName);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync if (cchName >= sizeof(szTmp) - 64)

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync return RTMsgErrorExit(RTEXITCODE_FAILURE, "File name is too long '%s'", pszName);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync szTmp[0] = '_';

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync szTmp[1] = '_';

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync szTmp[2] = '_';

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync memcpy(&szTmp[3], pszName, cchName);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync szTmp[3 + cchName + 0] = '_';

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync szTmp[3 + cchName + 1] = '_';

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync szTmp[3 + cchName + 2] = '_';

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync szTmp[3 + cchName + 3] = '\0';

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync char *psz = &szTmp[3];

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync while (*psz)

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync {

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync if (!RT_C_IS_ALNUM(*psz) && *psz != '_')

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync *psz = '_';

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync psz++;

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync }

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ScmStreamPrintf(pStrm,

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "/* $Id$ */\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "/** @file\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync " * Automatically generated from %s. Do NOT edit!\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync " */\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "#ifndef %s\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "#define %s\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "#include <VBox/VBoxTpG.h>\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "RT_C_DECLS_BEGIN\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "#ifdef VBOX_WITH_DTRACE\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "\n"

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync "# ifdef _MSC_VER\n"

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync "# pragma data_seg(VTG_LOC_SECT)\n"

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync "# pragma data_seg()\n"

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync "# endif\n"

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync "\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ,

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync g_pszScript,

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync szTmp,

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync szTmp);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync /*

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync PVTGPROVIDER pProv;

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync PVTGPROBE pProbe;

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync PVTGARG pArg;

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync RTListForEach(&g_ProviderHead, pProv, VTGPROVIDER, ListEntry)

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync {

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync RTListForEach(&pProv->ProbeHead, pProbe, VTGPROBE, ListEntry)

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync {

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ScmStreamPrintf(pStrm,

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "extern bool g_fVTGProbeEnabled_%s_%s;\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "extern uint8_t g_VTGProbeData_%s_%s;\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "DECLASM(void) VTGProbeStub_%s_%s(PVTGPROBELOC",

fdb40b7d2efa84fc6f03b7a695cb4b2e035c30c7vboxsync pProv->pszName, pProbe->pszMangledName,

fdb40b7d2efa84fc6f03b7a695cb4b2e035c30c7vboxsync pProv->pszName, pProbe->pszMangledName,

fdb40b7d2efa84fc6f03b7a695cb4b2e035c30c7vboxsync pProv->pszName, pProbe->pszMangledName);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync RTListForEach(&pProbe->ArgHead, pArg, VTGARG, ListEntry)

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync {

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ScmStreamPrintf(pStrm, ", %s", pArg->pszType);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync }

fdb40b7d2efa84fc6f03b7a695cb4b2e035c30c7vboxsync generateProbeDefineName(szTmp, sizeof(szTmp), pProv->pszName, pProbe->pszMangledName);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ScmStreamPrintf(pStrm,

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ");\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "# define %s_ENABLED() \\\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync " (RT_UNLIKELY(g_fVTGProbeEnabled_%s_%s)) \n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "# define %s("

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync , szTmp,

fdb40b7d2efa84fc6f03b7a695cb4b2e035c30c7vboxsync pProv->pszName, pProbe->pszMangledName,

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync szTmp);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync RTListForEach(&pProbe->ArgHead, pArg, VTGARG, ListEntry)

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync {

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync if (RTListNodeIsFirst(&pProbe->ArgHead, &pArg->ListEntry))

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ScmStreamPrintf(pStrm, "%s", pArg->pszName);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync else

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ScmStreamPrintf(pStrm, ", %s", pArg->pszName);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync }

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ScmStreamPrintf(pStrm,

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ") \\\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync " do { \\\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " if (RT_UNLIKELY(g_fVTGProbeEnabled_%s_%s)) \\\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync " { \\\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " VTG_DECL_VTGPROBELOC(s_VTGProbeLoc) = \\\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " { __LINE__, 0, UINT32_MAX, __PRETTY_FUNCTION__, __FILE__, &g_VTGProbeData_%s_%s }; \\\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync " VTGProbeStub_%s_%s(&s_VTGProbeLoc",

fdb40b7d2efa84fc6f03b7a695cb4b2e035c30c7vboxsync pProv->pszName, pProbe->pszMangledName,

fdb40b7d2efa84fc6f03b7a695cb4b2e035c30c7vboxsync pProv->pszName, pProbe->pszMangledName,

fdb40b7d2efa84fc6f03b7a695cb4b2e035c30c7vboxsync pProv->pszName, pProbe->pszMangledName);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync RTListForEach(&pProbe->ArgHead, pArg, VTGARG, ListEntry)

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync {

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ScmStreamPrintf(pStrm, ", %s", pArg->pszName);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync }

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ScmStreamPrintf(pStrm,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync "); \\\n"

e70bda5438c3582164d26f171a8bc8d3d7da1e12vboxsync " } \\\n"

e70bda5438c3582164d26f171a8bc8d3d7da1e12vboxsync " { \\\n" );

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync RTListForEach(&pProbe->ArgHead, pArg, VTGARG, ListEntry)

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync {

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ScmStreamPrintf(pStrm,

f9cdd92d151d9c28eb0f1aed25863fc04f85691dvboxsync " AssertCompile(sizeof(%s) <= sizeof(uintptr_t)); \\\n"

f9cdd92d151d9c28eb0f1aed25863fc04f85691dvboxsync " AssertCompile(sizeof(%s) <= sizeof(uintptr_t)); \\\n",

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync pArg->pszName,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync pArg->pszType);

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync }

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ScmStreamPrintf(pStrm,

e70bda5438c3582164d26f171a8bc8d3d7da1e12vboxsync " } \\\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync " } while (0)\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "\n");

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync }

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync }

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync ScmStreamPrintf(pStrm,

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "#else\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "\n");

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync RTListForEach(&g_ProviderHead, pProv, VTGPROVIDER, ListEntry)

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync {

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync RTListForEach(&pProv->ProbeHead, pProbe, VTGPROBE, ListEntry)

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync {

fdb40b7d2efa84fc6f03b7a695cb4b2e035c30c7vboxsync generateProbeDefineName(szTmp, sizeof(szTmp), pProv->pszName, pProbe->pszMangledName);

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync ScmStreamPrintf(pStrm,

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "# define %s_ENABLED() (false)\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "# define %s("

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync , szTmp, szTmp);

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync RTListForEach(&pProbe->ArgHead, pArg, VTGARG, ListEntry)

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync {

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync if (RTListNodeIsFirst(&pProbe->ArgHead, &pArg->ListEntry))

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync ScmStreamPrintf(pStrm, "%s", pArg->pszName);

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync else

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync ScmStreamPrintf(pStrm, ", %s", pArg->pszName);

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync }

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync ScmStreamPrintf(pStrm,

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync ") do { } while (0)\n");

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync }

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync }

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ScmStreamWrite(pStrm, RT_STR_TUPLE("\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "#endif\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "RT_C_DECLS_END\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync "#endif\n"));

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync return RTEXITCODE_SUCCESS;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync}

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic RTEXITCODE generateHeader(const char *pszHeader)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync{

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync return generateFile(pszHeader, "header", generateHeaderInner);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync}

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsyncbool ScmStreamCMatchingWordM1(PSCMSTREAM pStream, const char *pszWord, size_t cchWord)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync{

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync /* Check stream state. */

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync AssertReturn(!pStream->fWriteOrRead, false);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync AssertReturn(RT_SUCCESS(pStream->rc), false);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync AssertReturn(pStream->fFullyLineated, false);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync /* Sufficient chars left on the line? */

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync size_t const iLine = pStream->iLine;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync AssertReturn(pStream->off > pStream->paLines[iLine].off, false);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync size_t const cchLeft = pStream->paLines[iLine].cch + pStream->paLines[iLine].off - (pStream->off - 1);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (cchWord > cchLeft)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync return false;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync /* Do they match? */

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync const char *psz = &pStream->pch[pStream->off - 1];

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (memcmp(psz, pszWord, cchWord))

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync return false;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync /* Is it the end of a C word? */

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (cchWord < cchLeft)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync {

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync psz += cchWord;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (RT_C_IS_ALNUM(*psz) || *psz == '_')

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync return false;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync }

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync /* Skip ahead. */

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync pStream->off += cchWord - 1;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync return true;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync}

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncconst char *ScmStreamCGetWord(PSCMSTREAM pStream, size_t *pcchWord)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync{

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync /* Check stream state. */

8f7ee9e453c60b3b699799538a45950b35266665vboxsync AssertReturn(!pStream->fWriteOrRead, NULL);

8f7ee9e453c60b3b699799538a45950b35266665vboxsync AssertReturn(RT_SUCCESS(pStream->rc), NULL);

8f7ee9e453c60b3b699799538a45950b35266665vboxsync AssertReturn(pStream->fFullyLineated, NULL);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync /* Get the number of chars left on the line and locate the current char. */

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync size_t const iLine = pStream->iLine;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync size_t const cchLeft = pStream->paLines[iLine].cch + pStream->paLines[iLine].off - pStream->off;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync const char *psz = &pStream->pch[pStream->off];

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync /* Is it a leading C character. */

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync if (!RT_C_IS_ALPHA(*psz) && *psz == '_')

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync return NULL;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync /* Find the end of the word. */

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync char ch;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync size_t off = 1;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync while ( off < cchLeft

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync && ( (ch = psz[off]) == '_'

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync || RT_C_IS_ALNUM(ch)))

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync off++;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync pStream->off += off;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync *pcchWord = off;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync return psz;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync}

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

88e56f700a3b8dfdf1646f96320f335e22339caavboxsyncconst char *ScmStreamCGetWordM1(PSCMSTREAM pStream, size_t *pcchWord)

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync{

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync /* Check stream state. */

8f7ee9e453c60b3b699799538a45950b35266665vboxsync AssertReturn(!pStream->fWriteOrRead, NULL);

8f7ee9e453c60b3b699799538a45950b35266665vboxsync AssertReturn(RT_SUCCESS(pStream->rc), NULL);

8f7ee9e453c60b3b699799538a45950b35266665vboxsync AssertReturn(pStream->fFullyLineated, NULL);

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync /* Get the number of chars left on the line and locate the current char. */

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync size_t const iLine = pStream->iLine;

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync size_t const cchLeft = pStream->paLines[iLine].cch + pStream->paLines[iLine].off - (pStream->off - 1);

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync const char *psz = &pStream->pch[pStream->off - 1];

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync /* Is it a leading C character. */

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync if (!RT_C_IS_ALPHA(*psz) && *psz == '_')

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync return NULL;

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync /* Find the end of the word. */

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync char ch;

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync size_t off = 1;

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync while ( off < cchLeft

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync && ( (ch = psz[off]) == '_'

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync || RT_C_IS_ALNUM(ch)))

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync off++;

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync pStream->off += off - 1;

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync *pcchWord = off;

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync return psz;

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync}

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync

88e56f700a3b8dfdf1646f96320f335e22339caavboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic RTEXITCODE parseError(PSCMSTREAM pStrm, size_t cb, const char *pszMsg)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync{

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync if (cb)

38745c55f37c31ba8b78cc728d2f08ea6eec38d6vboxsync ScmStreamSeekRelative(pStrm, -(ssize_t)cb);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync size_t const off = ScmStreamTell(pStrm);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync size_t const iLine = ScmStreamTellLine(pStrm);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync ScmStreamSeekByLine(pStrm, iLine);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync size_t const offLine = ScmStreamTell(pStrm);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync RTPrintf("%s:%d:%zd: error: %s.\n", g_pszScript, iLine + 1, off - offLine + 1, pszMsg);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync size_t cchLine;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync SCMEOL enmEof;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync const char *pszLine = ScmStreamGetLineByNo(pStrm, iLine, &cchLine, &enmEof);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (pszLine)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync RTPrintf(" %.*s\n"

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync " %*s^\n",

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync cchLine, pszLine, off - offLine, "");

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync return RTEXITCODE_FAILURE;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync}

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsyncstatic RTEXITCODE parseErrorAbs(PSCMSTREAM pStrm, size_t off, const char *pszMsg)

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync{

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync ScmStreamSeekAbsolute(pStrm, off);

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync return parseError(pStrm, 0, pszMsg);

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync}

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic RTEXITCODE parseOneLineComment(PSCMSTREAM pStrm)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync{

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync ScmStreamSeekByLine(pStrm, ScmStreamTellLine(pStrm) + 1);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync return RTEXITCODE_SUCCESS;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync}

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic RTEXITCODE parseMultiLineComment(PSCMSTREAM pStrm)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync{

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync unsigned ch;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync while ((ch = ScmStreamGetCh(pStrm)) != ~(unsigned)0)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync {

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (ch == '*')

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync {

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync do

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync ch = ScmStreamGetCh(pStrm);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync while (ch == '*');

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (ch == '/')

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync return RTEXITCODE_SUCCESS;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync }

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync }

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync parseError(pStrm, 1, "Expected end of comment, got end of file");

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync return RTEXITCODE_FAILURE;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync}

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic RTEXITCODE parseSkipSpacesAndComments(PSCMSTREAM pStrm)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync{

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync unsigned ch;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync while ((ch = ScmStreamPeekCh(pStrm)) != ~(unsigned)0)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync {

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (!RT_C_IS_SPACE(ch) && ch != '/')

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync return RTEXITCODE_SUCCESS;

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync unsigned ch2 = ScmStreamGetCh(pStrm); AssertBreak(ch == ch2); NOREF(ch2);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (ch == '/')

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync {

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync ch = ScmStreamGetCh(pStrm);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync RTEXITCODE rcExit;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (ch == '*')

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync rcExit = parseMultiLineComment(pStrm);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync else if (ch == '/')

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync rcExit = parseOneLineComment(pStrm);

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync else

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync rcExit = parseError(pStrm, 2, "Unexpected character");

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync if (rcExit != RTEXITCODE_SUCCESS)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync return rcExit;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync }

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync }

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync return parseError(pStrm, 0, "Unexpected end of file");

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync}

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsyncstatic unsigned parseGetNextNonSpaceNonCommentCh(PSCMSTREAM pStrm)

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync{

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync unsigned ch;

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync while ((ch = ScmStreamGetCh(pStrm)) != ~(unsigned)0)

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync {

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync if (!RT_C_IS_SPACE(ch) && ch != '/')

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync return ch;

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync if (ch == '/')

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync {

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync ch = ScmStreamGetCh(pStrm);

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync RTEXITCODE rcExit;

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync if (ch == '*')

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync rcExit = parseMultiLineComment(pStrm);

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync else if (ch == '/')

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync rcExit = parseOneLineComment(pStrm);

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync else

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync rcExit = parseError(pStrm, 2, "Unexpected character");

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync if (rcExit != RTEXITCODE_SUCCESS)

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync return ~(unsigned)0;

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync }

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync }

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync parseError(pStrm, 0, "Unexpected end of file");

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync return ~(unsigned)0;

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync}

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync

49a6b09abb20015b0af3e618a1f92b7e26785e90vboxsync

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsyncstatic unsigned parseGetNextNonSpaceNonCommentChOnPpLine(PSCMSTREAM pStrm)

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync{

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync size_t off = ScmStreamTell(pStrm) - 1;

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync unsigned ch;

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync while ((ch = ScmStreamGetCh(pStrm)) != ~(unsigned)0)

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync {

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync if (RT_C_IS_SPACE(ch))

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync {

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync if (ch == '\n' || ch == '\r')

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync {

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync parseErrorAbs(pStrm, off, "Invalid preprocessor statement");

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync break;

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync }

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync }

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync else if (ch == '\\')

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync {

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync size_t off2 = ScmStreamTell(pStrm) - 1;

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync ch = ScmStreamGetCh(pStrm);

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync if (ch == '\r')

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync ch = ScmStreamGetCh(pStrm);

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync if (ch != '\n')

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync {

5c4d7e2aae42bbf39793dfa686925f076a56b4d5vboxsync parseErrorAbs(pStrm, off2, "Expected new line");