mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
221 lines
4.3 KiB
221 lines
4.3 KiB
/*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
Copyright (c) 1989 Microsoft Corporation
|
|
|
|
Module Name:
|
|
|
|
ilbase.cxx
|
|
|
|
Abstract:
|
|
|
|
Intermediate Language translator for base types
|
|
|
|
Notes:
|
|
|
|
|
|
Author:
|
|
|
|
GregJen Dec-24-1993 Created.
|
|
|
|
Notes:
|
|
|
|
|
|
----------------------------------------------------------------------------*/
|
|
|
|
/****************************************************************************
|
|
* include files
|
|
***************************************************************************/
|
|
|
|
#include "becls.hxx"
|
|
#pragma hdrstop
|
|
|
|
#include "ilxlat.hxx"
|
|
#include "ilreg.hxx"
|
|
|
|
|
|
/****************************************************************************
|
|
* local data
|
|
***************************************************************************/
|
|
|
|
|
|
/****************************************************************************
|
|
* externs
|
|
***************************************************************************/
|
|
|
|
extern CMD_ARG * pCommand;
|
|
extern BOOL IsTempName( char *);
|
|
extern REUSE_DICT * pReUseDict;
|
|
extern REUSE_DICT * pLocalReUseDict;
|
|
|
|
/****************************************************************************
|
|
* definitions
|
|
***************************************************************************/
|
|
|
|
|
|
|
|
|
|
// #define trace_cg
|
|
|
|
|
|
//--------------------------------------------------------------------
|
|
//
|
|
// node_skl::ILxlate
|
|
//
|
|
// Notes:
|
|
//
|
|
//
|
|
//
|
|
//--------------------------------------------------------------------
|
|
|
|
CG_CLASS *
|
|
node_skl::ILxlate( XLAT_CTXT * pContext )
|
|
{
|
|
#ifdef trace_cg
|
|
printf("..node_skl... kind is %d\n",NodeKind() );
|
|
#endif
|
|
|
|
return NULL;
|
|
};
|
|
|
|
//--------------------------------------------------------------------
|
|
//
|
|
// node_base_type::ILxlate
|
|
//
|
|
// Notes:
|
|
//
|
|
//
|
|
//
|
|
//--------------------------------------------------------------------
|
|
|
|
CG_CLASS *
|
|
node_base_type::ILxlate( XLAT_CTXT * pContext )
|
|
{
|
|
|
|
CG_NDR * pCG;
|
|
|
|
#ifdef trace_cg
|
|
printf("..node_base_type\n");
|
|
#endif
|
|
pContext->BaseTypeSizes( this );
|
|
|
|
// process any context_handle attributes from param nodes
|
|
if ( pContext->ExtractAttribute( ATTR_CONTEXT ) )
|
|
{
|
|
pContext->FixMemSizes( this );
|
|
pCG = new CG_CONTEXT_HANDLE( this, NULL, *pContext );
|
|
}
|
|
|
|
switch ( NodeKind() )
|
|
{
|
|
case NODE_HANDLE_T:
|
|
{
|
|
pCG = new CG_PRIMITIVE_HANDLE( this, NULL, *pContext );
|
|
break;
|
|
}
|
|
case NODE_VOID:
|
|
{
|
|
// VOID should only occur as as a single VOID param;
|
|
// return NULL here, then the PARAM returns NULL as well
|
|
if (!pContext->AnyAncestorBits(IL_IN_LIBRARY) && !pContext->AnyAncestorBits(IL_IN_LOCAL) && !pCommand->IsHookOleEnabled())
|
|
return NULL;
|
|
}
|
|
default:
|
|
{
|
|
pCG = new CG_BASETYPE( this, *pContext );
|
|
break;
|
|
}
|
|
};
|
|
|
|
#ifdef trace_cg
|
|
printf("..node_base_type return \n");
|
|
#endif
|
|
return pCG;
|
|
};
|
|
|
|
|
|
//--------------------------------------------------------------------
|
|
//
|
|
// node_label::ILxlate
|
|
//
|
|
// Notes:
|
|
//
|
|
//
|
|
//
|
|
//--------------------------------------------------------------------
|
|
|
|
CG_CLASS *
|
|
node_label::ILxlate( XLAT_CTXT * pContext )
|
|
{
|
|
pContext->ExtractAttribute(ATTR_IDLDESCATTR);
|
|
pContext->ExtractAttribute(ATTR_VARDESCATTR);
|
|
pContext->ExtractAttribute(ATTR_ID);
|
|
pContext->ExtractAttribute(ATTR_HIDDEN);
|
|
|
|
#ifdef trace_cg
|
|
printf("..node_label\n");
|
|
#endif
|
|
|
|
|
|
return NULL;
|
|
};
|
|
|
|
|
|
//--------------------------------------------------------------------
|
|
//
|
|
// node_e_status_t::ILxlate
|
|
//
|
|
// Notes:
|
|
//
|
|
//
|
|
//
|
|
//--------------------------------------------------------------------
|
|
|
|
CG_CLASS *
|
|
node_e_status_t::ILxlate( XLAT_CTXT * pContext )
|
|
{
|
|
XLAT_CTXT MyContext( this, pContext );
|
|
CG_ERROR_STATUS_T * pCG;
|
|
|
|
#ifdef trace_cg
|
|
printf("..node_e_status_t\n");
|
|
#endif
|
|
|
|
MyContext.BaseTypeSizes( this );
|
|
|
|
// gaj - do we need to see which we used ??
|
|
MyContext.ExtractAttribute( ATTR_COMMSTAT );
|
|
MyContext.ExtractAttribute( ATTR_FAULTSTAT );
|
|
|
|
pContext->ReturnSize( MyContext );
|
|
|
|
pCG = new CG_ERROR_STATUS_T( this, MyContext );
|
|
return pCG;
|
|
};
|
|
|
|
|
|
//--------------------------------------------------------------------
|
|
//
|
|
// node_wchar_t::ILxlate
|
|
//
|
|
// Notes:
|
|
//
|
|
//
|
|
//
|
|
//--------------------------------------------------------------------
|
|
|
|
CG_CLASS *
|
|
node_wchar_t::ILxlate( XLAT_CTXT * pContext )
|
|
{
|
|
CG_BASETYPE * pCG;
|
|
|
|
#ifdef trace_cg
|
|
printf("..node_wchar_t\n");
|
|
#endif
|
|
|
|
pContext->BaseTypeSizes( this );
|
|
|
|
pCG = new CG_BASETYPE( this, *pContext );
|
|
return pCG;
|
|
};
|
|
|
|
|
|
|