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>

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync#include <iprt/uuid.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;

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync /** The argument name. (heap) */

e250515922582e0410c9bcb6d24b0f17bef083a0vboxsync char *pszName;

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync /** The type presented to the tracer (in string table). */

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync const char *pszTracerType;

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync /** The argument type used in the probe method in that context. (heap) */

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync char *pszCtxType;

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync /** Argument passing format string. First and only argument is the name.

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync const char *pszArgPassingFmt;

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync /** The type flags. */

e250515922582e0410c9bcb6d24b0f17bef083a0vboxsync uint32_t fType;

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;

e250515922582e0410c9bcb6d24b0f17bef083a0vboxsync bool fHaveLargeArgs;

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;

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsyncstatic uint32_t g_cTypeErrors = 0;

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync

e250515922582e0410c9bcb6d24b0f17bef083a0vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsyncstatic enum

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync{

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync kVBoxTpGAction_Nothing,

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync kVBoxTpGAction_GenerateHeader,

56970d3a1944c7c073d66266cd52449835221badvboxsync kVBoxTpGAction_GenerateWrapperHeader,

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync kVBoxTpGAction_GenerateObject

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync} g_enmAction = kVBoxTpGAction_Nothing;

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsyncstatic uint32_t g_cBits = HC_ARCH_BITS;

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsyncstatic uint32_t g_cHostBits = HC_ARCH_BITS;

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsyncstatic uint32_t g_fTypeContext = VTG_TYPE_CTX_R0;

56970d3a1944c7c073d66266cd52449835221badvboxsyncstatic const char *g_pszContextDefine = "IN_RING0";

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsyncstatic const char *g_pszContextDefine2 = NULL;

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";

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsyncstatic const char g_szAssemblerOsDef[] = "RT_OS_DARWIN";

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";

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsyncstatic const char g_szAssemblerOsDef[] = "RT_OS_OS2";

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";

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsyncstatic const char g_szAssemblerOsDef[] = "RT_OS_WINDOWS";

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";

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsync# ifdef RT_OS_FREEBSD

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsyncstatic const char g_szAssemblerOsDef[] = "RT_OS_FREEBSD";

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsync# elif defined(RT_OS_NETBSD)

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsyncstatic const char g_szAssemblerOsDef[] = "RT_OS_NETBSD";

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsync# elif defined(RT_OS_OPENBSD)

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsyncstatic const char g_szAssemblerOsDef[] = "RT_OS_OPENBSD";

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsync# elif defined(RT_OS_LINUX)

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsyncstatic const char g_szAssemblerOsDef[] = "RT_OS_LINUX";

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsync# elif defined(RT_OS_SOLARIS)

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsyncstatic const char g_szAssemblerOsDef[] = "RT_OS_SOLARIS";

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsync# else

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsync# error "Port me!"

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsync# endif

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync#endif

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsyncstatic const char *g_pszAssemblerFmtVal = RT_CONCAT(g_szAssemblerFmtVal, HC_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;

81614fc60e096e714022d10d38b70a36b9b21d48vboxsyncstatic bool g_fPic = false;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

e250515922582e0410c9bcb6d24b0f17bef083a0vboxsync

e250515922582e0410c9bcb6d24b0f17bef083a0vboxsync

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;

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync if (g_cHostBits == 32)

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync apszArgs[iArg++] = "HC_ARCH_BITS=32";

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync else

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync apszArgs[iArg++] = "HC_ARCH_BITS=64";

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync apszArgs[iArg++] = g_pszAssemblerDefOpt;

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync if (g_cBits == 32)

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

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync else

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

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync apszArgs[iArg++] = g_pszAssemblerDefOpt;

56970d3a1944c7c073d66266cd52449835221badvboxsync apszArgs[iArg++] = g_pszContextDefine;

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync if (g_pszContextDefine2)

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync {

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync apszArgs[iArg++] = g_pszAssemblerDefOpt;

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync apszArgs[iArg++] = g_pszContextDefine2;

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync }

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsync if (g_szAssemblerOsDef[0])

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsync {

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsync apszArgs[iArg++] = g_pszAssemblerDefOpt;

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsync apszArgs[iArg++] = g_szAssemblerOsDef;

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsync }

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;

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync Assert(iArg <= RT_ELEMENTS(apszArgs));

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

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"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " segment VTG.Obj public CLASS=VTG 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"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " %%ifdef IN_RING3\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " %%define VTG_NEW_MACHO_LINKER\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " %%elif ARCH_BITS == 64\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " %%define VTG_NEW_MACHO_LINKER\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " %%elifdef IN_RING0_AGNOSTIC\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " %%define VTG_NEW_MACHO_LINKER\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " %%endif\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " %%ifdef VTG_NEW_MACHO_LINKER\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " ; Section order hack!\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " ; With the ld64-97.17 linker there was a problem with it determining the section\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " ; order based on symbol references. The references to the start and end of the\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " ; __VTGPrLc section forced it in front of __VTGObj, we want __VTGObj first.\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " extern section$start$__VTG$__VTGObj\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " extern section$end$__VTG$__VTGObj\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " %%else\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " ; Creating 32-bit kext of the type MH_OBJECT. No fancy section end/start symbols handy.\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " [section __VTG __VTGObj align=16]\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync "VTG_GLOBAL g_aVTGObj_LinkerPleaseNoticeMe, data\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " [section __VTG __VTGPrLc.Begin align=16]\n"

76ccd5a42aa97d57bda00c87b7f5896e83a2d5a3vboxsync " dq 0, 0 ; Paranoia, related to the fudge below.\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync "VTG_GLOBAL g_aVTGPrLc, data\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " [section __VTG __VTGPrLc align=16]\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync "VTG_GLOBAL g_aVTGPrLc_LinkerPleaseNoticeMe, data\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " [section __VTG __VTGPrLc.End align=16]\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync "VTG_GLOBAL g_aVTGPrLc_End, data\n"

76ccd5a42aa97d57bda00c87b7f5896e83a2d5a3vboxsync " dq 0, 0 ; Fudge to work around unidentified linker where it would otherwise generate\n"

76ccd5a42aa97d57bda00c87b7f5896e83a2d5a3vboxsync " ; a fix up of the first dword in __VTGPrLc.Begin despite the fact that it were\n"

76ccd5a42aa97d57bda00c87b7f5896e83a2d5a3vboxsync " ; an empty section with nothing whatsoever to fix up.\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " %%endif\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " [section __VTG __VTGObj]\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"

1379dfd407ada5fab15655776896f13b61a951fdvboxsync /*" times 16 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"

1379dfd407ada5fab15655776896f13b61a951fdvboxsync /*" times 16 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"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " [section .VTGData progbits alloc noexec write align=4096]\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " [section .VTGPrLc.Begin progbits alloc noexec write align=32]\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd 0,0,0,0, 0,0,0,0\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "VTG_GLOBAL g_aVTGPrLc, data\n"

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

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

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync "VTG_GLOBAL g_aVTGPrLc_End, data\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd 0,0,0,0, 0,0,0,0\n"

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync " [section .VTGData]\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"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " db 'VTG Object Header v1.5', 0, 0\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " dd %u\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd NAME(g_acVTGProbeEnabled_End) - NAME(g_VTGObjHeader)\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd NAME(g_achVTGStringTable) - NAME(g_VTGObjHeader)\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd NAME(g_achVTGStringTable_End) - NAME(g_achVTGStringTable)\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd NAME(g_aVTGArgLists) - NAME(g_VTGObjHeader)\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd NAME(g_aVTGArgLists_End) - NAME(g_aVTGArgLists)\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd NAME(g_aVTGProbes) - NAME(g_VTGObjHeader)\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd NAME(g_aVTGProbes_End) - NAME(g_aVTGProbes)\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd NAME(g_aVTGProviders) - NAME(g_VTGObjHeader)\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd NAME(g_aVTGProviders_End) - NAME(g_aVTGProviders)\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd NAME(g_acVTGProbeEnabled) - NAME(g_VTGObjHeader)\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd NAME(g_acVTGProbeEnabled_End) - NAME(g_acVTGProbeEnabled)\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd 0\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " dd 0\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync "%%ifdef VTG_NEW_MACHO_LINKER\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " extern section$start$__VTG$__VTGPrLc\n"

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsync " RTCCPTR_DEF section$start$__VTG$__VTGPrLc\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " %%if ARCH_BITS == 32\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd 0\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " %%endif\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync " extern section$end$__VTG$__VTGPrLc\n"

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsync " RTCCPTR_DEF section$end$__VTG$__VTGPrLc\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " %%if ARCH_BITS == 32\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd 0\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " %%endif\n"

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsync "%%else\n"

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync " RTCCPTR_DEF NAME(g_aVTGPrLc)\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " %%if ARCH_BITS == 32\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd 0\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " %%endif\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " RTCCPTR_DEF NAME(g_aVTGPrLc_End)\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " %%if ARCH_BITS == 32\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd 0\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " %%endif\n"

82e3a4017d20f44c30ff909e6b825ff78139cbbbvboxsync "%%endif\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ,

661bfa5aae55ac2f94fa1cb131ea2323e5f6e633vboxsync g_pszScript, g_cBits);

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync RTUUID Uuid;

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync int rc = RTUuidCreate(&Uuid);

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync if (RT_FAILURE(rc))

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync return RTMsgErrorExit(RTEXITCODE_FAILURE, "RTUuidCreate failed: %Rrc", rc);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync ScmStreamPrintf(pStrm,

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd 0%08xh, 0%08xh, 0%08xh, 0%08xh\n"

4f4cb69bca6bfda8f4d911759d1f3c6f528a173dvboxsync "%%ifdef VTG_NEW_MACHO_LINKER\n"

a66ec044d2a64d926996cd24da5faadccb070be3vboxsync " RTCCPTR_DEF section$start$__VTG$__VTGObj\n"

a66ec044d2a64d926996cd24da5faadccb070be3vboxsync " %%if ARCH_BITS == 32\n"

a66ec044d2a64d926996cd24da5faadccb070be3vboxsync " dd 0\n"

a66ec044d2a64d926996cd24da5faadccb070be3vboxsync " %%endif\n"

a66ec044d2a64d926996cd24da5faadccb070be3vboxsync "%%else\n"

a66ec044d2a64d926996cd24da5faadccb070be3vboxsync " dd 0, 0\n"

a66ec044d2a64d926996cd24da5faadccb070be3vboxsync "%%endif\n"

a66ec044d2a64d926996cd24da5faadccb070be3vboxsync " dd 0, 0\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync , Uuid.au32[0], Uuid.au32[1], Uuid.au32[2], Uuid.au32[3]);

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"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync "ALIGNDATA(16)\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"

20f21077abf35d7b7b618acb159267933907407fvboxsync " db %2u ; Argument count\n"

20f21077abf35d7b7b618acb159267933907407fvboxsync " db %u ; fHaveLargeArgs\n"

20f21077abf35d7b7b618acb159267933907407fvboxsync " db 0, 0 ; Reserved\n"

0d8c2135d15345cc68111eea91052cdf5518d7e3vboxsync , off, pProbe->cArgs, (int)pProbe->fHaveLargeArgs);

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync off += 4;

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

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync {

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync ScmStreamPrintf(pStrm,

20f21077abf35d7b7b618acb159267933907407fvboxsync " dd %8u ; type '%s' (name '%s')\n"

e250515922582e0410c9bcb6d24b0f17bef083a0vboxsync " dd 0%08xh ; type flags\n",

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync strtabGetOff(pArg->pszTracerType), pArg->pszTracerType, pArg->pszName,

e250515922582e0410c9bcb6d24b0f17bef083a0vboxsync pArg->fType);

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

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync && pArg2->pszTracerType == pArg->pszTracerType

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync && pArg2->fType == pArg->fType)

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"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync "ALIGNDATA(16)\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"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd %6u ; offName\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd %6u ; offArgList\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dw (NAME(g_cVTGProbeEnabled_%s_%s) - NAME(g_acVTGProbeEnabled)) / 4 ; idxEnabled\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dw %6u ; idxProvider\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd NAME(g_VTGObjHeader) - NAME(g_VTGProbeData_%s_%s) ; offObjHdr\n"

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync ,

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

fdb40b7d2efa84fc6f03b7a695cb4b2e035c30c7vboxsync strtabGetOff(pProbe->pszUnmangledName),

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync pProbe->offArgList,

fdb40b7d2efa84fc6f03b7a695cb4b2e035c30c7vboxsync pProvider->pszName, pProbe->pszMangledName,

20f21077abf35d7b7b618acb159267933907407fvboxsync iProvider,

20f21077abf35d7b7b618acb159267933907407fvboxsync pProvider->pszName, pProbe->pszMangledName

20f21077abf35d7b7b618acb159267933907407fvboxsync );

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"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync "ALIGNDATA(16)\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

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync /*

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync ScmStreamPrintf(pStrm,

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync ";\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync "; Probe enabled flags.\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync ";\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync "ALIGNDATA(16)\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync "VTG_GLOBAL g_acVTGProbeEnabled, data\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync );

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync uint32_t cProbes = 0;

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync RTListForEach(&g_ProviderHead, pProvider, VTGPROVIDER, ListEntry)

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync {

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

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync {

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync ScmStreamPrintf(pStrm,

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync "VTG_GLOBAL g_cVTGProbeEnabled_%s_%s, data\n"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " dd 0\n",

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync pProvider->pszName, pProbe->pszMangledName);

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync cProbes++;

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync }

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync }

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync ScmStreamPrintf(pStrm, "VTG_GLOBAL g_acVTGProbeEnabled_End, data\n");

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync if (cProbes >= _32K)

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

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync

19320d55d1417c39b3b5673a53aaa5ef177242c8vboxsync /*

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

76f3a3817b6b96f5beb30b76efebdf2d87090cf0vboxsync bool const fElf = !strcmp(g_pszAssemblerFmtVal, "elf32") || !strcmp(g_pszAssemblerFmtVal, "elf64");

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ScmStreamPrintf(pStrm,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync "\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ";\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync "; Prob stubs.\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ";\n"

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync "BEGINCODE\n"

76f3a3817b6b96f5beb30b76efebdf2d87090cf0vboxsync );

76f3a3817b6b96f5beb30b76efebdf2d87090cf0vboxsync if (g_fProbeFnImported)

9b1d52365befbce1af8f32d53c2e563ee9169501vboxsync ScmStreamPrintf(pStrm,

76f3a3817b6b96f5beb30b76efebdf2d87090cf0vboxsync "EXTERN_IMP2 %s\n"

76f3a3817b6b96f5beb30b76efebdf2d87090cf0vboxsync "BEGINCODE ; EXTERN_IMP2 changes section\n",

9b1d52365befbce1af8f32d53c2e563ee9169501vboxsync g_pszProbeFnName);

76f3a3817b6b96f5beb30b76efebdf2d87090cf0vboxsync else

76f3a3817b6b96f5beb30b76efebdf2d87090cf0vboxsync ScmStreamPrintf(pStrm, "extern NAME(%s)\n", g_pszProbeFnName);

9b1d52365befbce1af8f32d53c2e563ee9169501vboxsync

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 {

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync ScmStreamPrintf(pStrm, ", %s %s", pArg->pszTracerType, pArg->pszName);

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync }

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ScmStreamPrintf(pStrm,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync ");\n");

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 /*

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync if (g_cBits == 32)

76f3a3817b6b96f5beb30b76efebdf2d87090cf0vboxsync ScmStreamPrintf(pStrm, g_fPic && fElf ?

2346cab03e0c9fba1765c8e21ef98f03c8564cd8vboxsync " jmp %s wrt ..plt\n"

81614fc60e096e714022d10d38b70a36b9b21d48vboxsync : g_fProbeFnImported ?

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

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync " jmp ecx\n"

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync :

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

44372afb953dc9f1f1ec71943f5f561a607c0307vboxsync , g_pszProbeFnName);

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync else

76f3a3817b6b96f5beb30b76efebdf2d87090cf0vboxsync ScmStreamPrintf(pStrm, g_fPic && fElf ?

81614fc60e096e714022d10d38b70a36b9b21d48vboxsync " jmp [rel %s wrt ..got]\n"

81614fc60e096e714022d10d38b70a36b9b21d48vboxsync : g_fProbeFnImported ?

a655881be920ead6948994168c5ee09e5798aa05vboxsync " jmp IMP2(%s)\n"

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync :

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

8865793e4f3435f5e2c728d9e6739cd24d08c0devboxsync , g_pszProbeFnName);

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

56970d3a1944c7c073d66266cd52449835221badvboxsync

56970d3a1944c7c073d66266cd52449835221badvboxsyncstatic RTEXITCODE generateHeader(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"

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync " * 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"

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync "#ifndef %s\n"

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync "# error \"Expected '%s' to be defined\"\n"

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync "#endif\n"

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync "\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,

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync szTmp,

56970d3a1944c7c073d66266cd52449835221badvboxsync g_pszContextDefine,

56970d3a1944c7c073d66266cd52449835221badvboxsync g_pszContextDefine);

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 {

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync PVTGARG const pFirstArg = RTListGetFirst(&pProbe->ArgHead, VTGARG, ListEntry);

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ScmStreamPrintf(pStrm,

2d66abeefb9716ed570bb5714884d3fe08629452vboxsync "extern uint32_t g_cVTGProbeEnabled_%s_%s;\n"

2d66abeefb9716ed570bb5714884d3fe08629452vboxsync "extern VTGDESCPROBE g_VTGProbeData_%s_%s;\n"

2d66abeefb9716ed570bb5714884d3fe08629452vboxsync "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 {

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync ScmStreamPrintf(pStrm, ", %s", pArg->pszCtxType);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync }

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

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ScmStreamPrintf(pStrm,

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ");\n"

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

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " (RT_UNLIKELY(g_cVTGProbeEnabled_%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"

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " if (RT_UNLIKELY(g_cVTGProbeEnabled_%s_%s)) \\\n"

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync " { \\\n"

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

23d8f7aff045c2bade1b168fee79a3e4749e2345vboxsync " { __LINE__, 0, 0, __FUNCTION__, &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 {

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync ScmStreamPrintf(pStrm, pArg->pszArgPassingFmt, pArg->pszName);

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync }

66b58af085e22ee26be57f98127fb49ee2e91790vboxsync ScmStreamPrintf(pStrm,

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync "); \\\n"

e70bda5438c3582164d26f171a8bc8d3d7da1e12vboxsync " } \\\n"

e70bda5438c3582164d26f171a8bc8d3d7da1e12vboxsync " { \\\n" );

e250515922582e0410c9bcb6d24b0f17bef083a0vboxsync uint32_t iArg = 0;

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

c66c4413faa5a72ce047742f9acfa85e94dec8afvboxsync {

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync if ((pArg->fType & (VTG_TYPE_FIXED_SIZED | VTG_TYPE_AUTO_CONV_PTR)) == VTG_TYPE_FIXED_SIZED)

20f21077abf35d7b7b618acb159267933907407fvboxsync ScmStreamPrintf(pStrm,

20f21077abf35d7b7b618acb159267933907407fvboxsync " AssertCompile(sizeof(%s) == %u); \\\n"

20f21077abf35d7b7b618acb159267933907407fvboxsync " AssertCompile(sizeof(%s) <= %u); \\\n",

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync pArg->pszTracerType, pArg->fType & VTG_TYPE_SIZE_MASK,

20f21077abf35d7b7b618acb159267933907407fvboxsync pArg->pszName, pArg->fType & VTG_TYPE_SIZE_MASK);

20f21077abf35d7b7b618acb159267933907407fvboxsync else if (pArg->fType & (VTG_TYPE_POINTER | VTG_TYPE_HC_ARCH_SIZED))

20f21077abf35d7b7b618acb159267933907407fvboxsync ScmStreamPrintf(pStrm,

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

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

20f21077abf35d7b7b618acb159267933907407fvboxsync pArg->pszName,

9540ab73f6cd0c76f44f6bbfe73f89ac145390b8vboxsync pArg->pszTracerType);

e250515922582e0410c9bcb6d24b0f17bef083a0vboxsync iArg++;

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

56970d3a1944c7c073d66266cd52449835221badvboxsyncstatic RTEXITCODE generateWrapperHeader(PSCMSTREAM pStrm)

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync{

56970d3a1944c7c073d66266cd52449835221badvboxsync /*

56970d3a1944c7c073d66266cd52449835221badvboxsync char szTmp[4096];

56970d3a1944c7c073d66266cd52449835221badvboxsync const char *pszName = RTPathFilename(g_pszScript);

56970d3a1944c7c073d66266cd52449835221badvboxsync size_t cchName = strlen(pszName);

56970d3a1944c7c073d66266cd52449835221badvboxsync if (cchName >= sizeof(szTmp) - 64)

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

56970d3a1944c7c073d66266cd52449835221badvboxsync szTmp[0] = '_';

56970d3a1944c7c073d66266cd52449835221badvboxsync szTmp[1] = '_';

56970d3a1944c7c073d66266cd52449835221badvboxsync szTmp[2] = '_';

56970d3a1944c7c073d66266cd52449835221badvboxsync memcpy(&szTmp[3], pszName, cchName);

56970d3a1944c7c073d66266cd52449835221badvboxsync strcpy(&szTmp[3 + cchName ], "___WRAPPER___");

56970d3a1944c7c073d66266cd52449835221badvboxsync char *psz = &szTmp[3];

56970d3a1944c7c073d66266cd52449835221badvboxsync while (*psz)

56970d3a1944c7c073d66266cd52449835221badvboxsync {

56970d3a1944c7c073d66266cd52449835221badvboxsync if (!RT_C_IS_ALNUM(*psz) && *psz != '_')

56970d3a1944c7c073d66266cd52449835221badvboxsync *psz = '_';

56970d3a1944c7c073d66266cd52449835221badvboxsync psz++;

56970d3a1944c7c073d66266cd52449835221badvboxsync }

56970d3a1944c7c073d66266cd52449835221badvboxsync

56970d3a1944c7c073d66266cd52449835221badvboxsync ScmStreamPrintf(pStrm,

56970d3a1944c7c073d66266cd52449835221badvboxsync "/* $Id$ */\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync "/** @file\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync " * Automatically generated from %s. Do NOT edit!\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync " */\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync "\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync "#ifndef %s\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync "#define %s\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync "\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync "#include <VBox/VBoxTpG.h>\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync "\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync "#ifndef %s\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync "# error \"Expected '%s' to be defined\"\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync "#endif\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync "\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync "#ifdef VBOX_WITH_DTRACE\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync "\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync ,

56970d3a1944c7c073d66266cd52449835221badvboxsync g_pszScript,

56970d3a1944c7c073d66266cd52449835221badvboxsync szTmp,

56970d3a1944c7c073d66266cd52449835221badvboxsync szTmp,

56970d3a1944c7c073d66266cd52449835221badvboxsync g_pszContextDefine,

56970d3a1944c7c073d66266cd52449835221badvboxsync g_pszContextDefine);

56970d3a1944c7c073d66266cd52449835221badvboxsync

56970d3a1944c7c073d66266cd52449835221badvboxsync /*

56970d3a1944c7c073d66266cd52449835221badvboxsync PVTGPROVIDER pProv;

56970d3a1944c7c073d66266cd52449835221badvboxsync PVTGPROBE pProbe;

56970d3a1944c7c073d66266cd52449835221badvboxsync PVTGARG pArg;

56970d3a1944c7c073d66266cd52449835221badvboxsync RTListForEach(&g_ProviderHead, pProv, VTGPROVIDER, ListEntry)

56970d3a1944c7c073d66266cd52449835221badvboxsync {

56970d3a1944c7c073d66266cd52449835221badvboxsync RTListForEach(&pProv->ProbeHead, pProbe, VTGPROBE, ListEntry)

56970d3a1944c7c073d66266cd52449835221badvboxsync {

56970d3a1944c7c073d66266cd52449835221badvboxsync PVTGARG const pFirstArg = RTListGetFirst(&pProbe->ArgHead, VTGARG, ListEntry);

56970d3a1944c7c073d66266cd52449835221badvboxsync

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

56970d3a1944c7c073d66266cd52449835221badvboxsync ScmStreamPrintf(pStrm,

56970d3a1944c7c073d66266cd52449835221badvboxsync "# define %s("

56970d3a1944c7c073d66266cd52449835221badvboxsync , szTmp);

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

56970d3a1944c7c073d66266cd52449835221badvboxsync {

56970d3a1944c7c073d66266cd52449835221badvboxsync if (RTListNodeIsFirst(&pProbe->ArgHead, &pArg->ListEntry))

56970d3a1944c7c073d66266cd52449835221badvboxsync ScmStreamPrintf(pStrm, "%s", pArg->pszName);

56970d3a1944c7c073d66266cd52449835221badvboxsync else

56970d3a1944c7c073d66266cd52449835221badvboxsync ScmStreamPrintf(pStrm, ", %s", pArg->pszName);

56970d3a1944c7c073d66266cd52449835221badvboxsync }

56970d3a1944c7c073d66266cd52449835221badvboxsync ScmStreamPrintf(pStrm,

56970d3a1944c7c073d66266cd52449835221badvboxsync ") \\\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync " do { \\\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync " if (RT_UNLIKELY(%s_ENABLED())) \\\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync " { \\\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync " %s_ORIGINAL("

56970d3a1944c7c073d66266cd52449835221badvboxsync , szTmp, szTmp);

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

56970d3a1944c7c073d66266cd52449835221badvboxsync {

56970d3a1944c7c073d66266cd52449835221badvboxsync const char *pszFmt = pArg->pszArgPassingFmt;

56970d3a1944c7c073d66266cd52449835221badvboxsync if (pArg->fType & VTG_TYPE_AUTO_CONV_PTR)

56970d3a1944c7c073d66266cd52449835221badvboxsync {

56970d3a1944c7c073d66266cd52449835221badvboxsync /* Casting is required. ASSUMES sizeof(RTR0PTR) == sizeof(RTR3PTR) - safe! */

56970d3a1944c7c073d66266cd52449835221badvboxsync pszFmt += sizeof(", ") - 1;

56970d3a1944c7c073d66266cd52449835221badvboxsync if (RTListNodeIsFirst(&pProbe->ArgHead, &pArg->ListEntry))

56970d3a1944c7c073d66266cd52449835221badvboxsync ScmStreamPrintf(pStrm, "(%s)%M", pArg->pszTracerType, pszFmt, pArg->pszName);

56970d3a1944c7c073d66266cd52449835221badvboxsync else

56970d3a1944c7c073d66266cd52449835221badvboxsync ScmStreamPrintf(pStrm, ", (%s)%M", pArg->pszTracerType, pszFmt, pArg->pszName);

56970d3a1944c7c073d66266cd52449835221badvboxsync }

3f36036e0f97beceb779965c55711de4bad60523vboxsync else if (pArg->fType & VTG_TYPE_CONST_CHAR_PTR)

3f36036e0f97beceb779965c55711de4bad60523vboxsync {

3f36036e0f97beceb779965c55711de4bad60523vboxsync /* Casting from 'const char *' (probe) to 'char *' (dtrace) is required to shut up warnings. */

3f36036e0f97beceb779965c55711de4bad60523vboxsync pszFmt += sizeof(", ") - 1;

3f36036e0f97beceb779965c55711de4bad60523vboxsync if (RTListNodeIsFirst(&pProbe->ArgHead, &pArg->ListEntry))

3f36036e0f97beceb779965c55711de4bad60523vboxsync ScmStreamPrintf(pStrm, "(char *)%M", pszFmt, pArg->pszName);

3f36036e0f97beceb779965c55711de4bad60523vboxsync else

3f36036e0f97beceb779965c55711de4bad60523vboxsync ScmStreamPrintf(pStrm, ", (char *)%M", pszFmt, pArg->pszName);

3f36036e0f97beceb779965c55711de4bad60523vboxsync }

56970d3a1944c7c073d66266cd52449835221badvboxsync else

56970d3a1944c7c073d66266cd52449835221badvboxsync {

56970d3a1944c7c073d66266cd52449835221badvboxsync if (RTListNodeIsFirst(&pProbe->ArgHead, &pArg->ListEntry))

56970d3a1944c7c073d66266cd52449835221badvboxsync ScmStreamPrintf(pStrm, pArg->pszArgPassingFmt + sizeof(", ") - 1, pArg->pszName);

56970d3a1944c7c073d66266cd52449835221badvboxsync else

56970d3a1944c7c073d66266cd52449835221badvboxsync ScmStreamPrintf(pStrm, pArg->pszArgPassingFmt, pArg->pszName);

56970d3a1944c7c073d66266cd52449835221badvboxsync }

56970d3a1944c7c073d66266cd52449835221badvboxsync }

56970d3a1944c7c073d66266cd52449835221badvboxsync ScmStreamPrintf(pStrm,

56970d3a1944c7c073d66266cd52449835221badvboxsync "); \\\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync " } \\\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync " } while (0)\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync "\n");

56970d3a1944c7c073d66266cd52449835221badvboxsync }

56970d3a1944c7c073d66266cd52449835221badvboxsync }

56970d3a1944c7c073d66266cd52449835221badvboxsync

56970d3a1944c7c073d66266cd52449835221badvboxsync ScmStreamPrintf(pStrm,

56970d3a1944c7c073d66266cd52449835221badvboxsync "\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync "#else\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync "\n");

56970d3a1944c7c073d66266cd52449835221badvboxsync RTListForEach(&g_ProviderHead, pProv, VTGPROVIDER, ListEntry)

56970d3a1944c7c073d66266cd52449835221badvboxsync {

56970d3a1944c7c073d66266cd52449835221badvboxsync RTListForEach(&pProv->ProbeHead, pProbe, VTGPROBE, ListEntry)

56970d3a1944c7c073d66266cd52449835221badvboxsync {

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

56970d3a1944c7c073d66266cd52449835221badvboxsync ScmStreamPrintf(pStrm,

56970d3a1944c7c073d66266cd52449835221badvboxsync "# define %s("

56970d3a1944c7c073d66266cd52449835221badvboxsync , szTmp);

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

56970d3a1944c7c073d66266cd52449835221badvboxsync {

56970d3a1944c7c073d66266cd52449835221badvboxsync if (RTListNodeIsFirst(&pProbe->ArgHead, &pArg->ListEntry))

56970d3a1944c7c073d66266cd52449835221badvboxsync ScmStreamPrintf(pStrm, "%s", pArg->pszName);

56970d3a1944c7c073d66266cd52449835221badvboxsync else

56970d3a1944c7c073d66266cd52449835221badvboxsync ScmStreamPrintf(pStrm, ", %s", pArg->pszName);

56970d3a1944c7c073d66266cd52449835221badvboxsync }

56970d3a1944c7c073d66266cd52449835221badvboxsync ScmStreamPrintf(pStrm,

56970d3a1944c7c073d66266cd52449835221badvboxsync ") do { } while (0)\n");

56970d3a1944c7c073d66266cd52449835221badvboxsync }

56970d3a1944c7c073d66266cd52449835221badvboxsync }

56970d3a1944c7c073d66266cd52449835221badvboxsync

56970d3a1944c7c073d66266cd52449835221badvboxsync ScmStreamWrite(pStrm, RT_STR_TUPLE("\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync "#endif\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync "\n"

56970d3a1944c7c073d66266cd52449835221badvboxsync "#endif\n"));

56970d3a1944c7c073d66266cd52449835221badvboxsync return RTEXITCODE_SUCCESS;

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync}

0c69348b58bb8eabb1bea8867ee932b667bd0d34vboxsync

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