typecmp_t TypeCmp (const Type* lhs, const Type* rhs)
/* Compare two types and return the result */
{
/* Assume the types are identical */
typecmp_t Result = TC_IDENTICAL;
#if 0
printf ("Left : "); PrintRawType (stdout, lhs);
printf ("Right: "); PrintRawType (stdout, rhs);
#endif
/* Recursively compare the types if they aren't identical */
if (rhs != lhs) {
DoCompare (lhs, rhs, &Result);
}
/* Return the result */
return Result;
}
void PrintExprDesc (FILE* F, ExprDesc* E)
/* Print an ExprDesc */
{
unsigned Flags;
char Sep;
fprintf (F, "Symbol: %s\n", E->Sym? E->Sym->Name : "(none)");
if (E->Type) {
fprintf (F, "Type: ");
PrintType (F, E->Type);
fprintf (F, "\nRaw type: ");
PrintRawType (F, E->Type);
} else {
fprintf (F, "Type: (unknown)\n"
"Raw type: (unknown)\n");
}
fprintf (F, "IVal: 0x%08lX\n", E->IVal);
fprintf (F, "FVal: %f\n", FP_D_ToFloat (E->FVal));
Flags = E->Flags;
Sep = '(';
fprintf (F, "Flags: 0x%04X ", Flags);
if (Flags & E_LOC_ABS) {
fprintf (F, "%cE_LOC_ABS", Sep);
Flags &= ~E_LOC_ABS;
Sep = ',';
}
if (Flags & E_LOC_GLOBAL) {
fprintf (F, "%cE_LOC_GLOBAL", Sep);
Flags &= ~E_LOC_GLOBAL;
Sep = ',';
}
if (Flags & E_LOC_STATIC) {
fprintf (F, "%cE_LOC_STATIC", Sep);
Flags &= ~E_LOC_STATIC;
Sep = ',';
}
if (Flags & E_LOC_REGISTER) {
fprintf (F, "%cE_LOC_REGISTER", Sep);
Flags &= ~E_LOC_REGISTER;
Sep = ',';
}
if (Flags & E_LOC_STACK) {
fprintf (F, "%cE_LOC_STACK", Sep);
Flags &= ~E_LOC_STACK;
Sep = ',';
}
if (Flags & E_LOC_PRIMARY) {
fprintf (F, "%cE_LOC_PRIMARY", Sep);
Flags &= ~E_LOC_PRIMARY;
Sep = ',';
}
if (Flags & E_LOC_EXPR) {
fprintf (F, "%cE_LOC_EXPR", Sep);
Flags &= ~E_LOC_EXPR;
Sep = ',';
}
if (Flags & E_LOC_LITERAL) {
fprintf (F, "%cE_LOC_LITERAL", Sep);
Flags &= ~E_LOC_LITERAL;
Sep = ',';
}
if (Flags & E_RTYPE_LVAL) {
fprintf (F, "%cE_RTYPE_LVAL", Sep);
Flags &= ~E_RTYPE_LVAL;
Sep = ',';
}
if (Flags & E_BITFIELD) {
fprintf (F, "%cE_BITFIELD", Sep);
Flags &= ~E_BITFIELD;
Sep = ',';
}
if (Flags & E_NEED_TEST) {
fprintf (F, "%cE_NEED_TEST", Sep);
Flags &= ~E_NEED_TEST;
Sep = ',';
}
if (Flags & E_CC_SET) {
fprintf (F, "%cE_CC_SET", Sep);
Flags &= ~E_CC_SET;
Sep = ',';
}
if (Flags) {
fprintf (F, "%c,0x%04X", Sep, Flags);
Sep = ',';
}
if (Sep != '(') {
fputc (')', F);
}
fprintf (F, "\nName: 0x%08lX\n", E->Name);
}
