17216f5637
Sun Oct 12 15:03:01 1997 Alexandre Julliard <julliard@lrc.epfl.ch>
* [if1632/builtin.c] [if1632/relay.c]
Relay debugging entry points are now generated on the fly for
Win32 DLLs.
* [include/stackframe.h]
Added VA_LIST16 type and macros to access arguments on the 16-bit
stack.
* [memory/global.c]
Fixed GlobalHandle32 to work with fixed blocks.
* [misc/ddeml.c] (New file)
Added a lot of stubs for DDEML functions.
* [objects/dc.c]
Added Get/SetGraphicsMode().
* [objects/gdiobj.c] [windows/winpos.c]
Added a few stubs.
* [tools/build.c]
Removed 'byte', 'word', 'long' and 'return' entry points for Win32.
'register' functions can no longer take arguments in Win32.
The Win32 NE module is now generated by MODULE_CreateDummyModule.
CallFrom32 callbacks removed except for register functions.
Fri Oct 10 18:22:18 1997 John Harvey <john@division.co.uk>
* [graphics/win16drv/Makefile.in] [graphics/win16drv/brush.c]
[graphics/win16drv/graphics.c] [graphics/win16drv/init.c]
[graphics/win16drv/objects.c] [graphics/win16drv/pen.c]
[graphics/win16drv/prtdrv.c] [graphics/win16drv/text.c]
[include/callback.h] [include/win16drv.h]
Added support for pens and brushes in SelectObject. Added support
for LineTo, MoveToEx, PatBlt (very preliminary), Polygon and
Rectangle. Text is drawn in the correct place more often. These
changes may only work with the Windows Postscript driver since
many other drivers now need more GDI support.
Tue Oct 7 21:06:23 1997 Kristian Nielsen <kristian.nielsen@risoe.dk>
* [debugger/expr.c]
Fixed typo for the >> operator.
* [loader/task.c]
Fixed SwitchStackTo(); it used to return with the new stack placed
four bytes too high in memory.
* [loader/ne_resource.c]
Removed problematic nametable code introduced in Wine 970914.
Tue Oct 7 02:24:12 1997 Dimitrie O. Paun <dimi@cs.toronto.edu>
* [controls/commctrl.c]
Added this files to hold functions from the comctl32.dll
Added to this files some functions scattered in different places
(such as InitCommonControls) and added some new ones as well.
* [include/syscolor.h] [windows/syscolor.c]
Added proper entries for all possible COLOR_* values.
* [objects/brush.c]
Modified GetSysColorBrush to return the correct brush for
all possible COLOR_* constants.
Sat Oct 4 23:35:20 1997 U.Bonnes <bon@elektron.ikp.physik.th-darmstadt.de>
* [loader/module.c] [scheduler/process.c] [win32/environment.c]
Another approach to get access to an unrestricted commandline.
* [misc/crtdll.c]
Make fclose work again.
* [if1632/crtdll.spec]
Use sprintf for crtdll-sprintf again as e.g. %g is not available
for wsprintf.
* [misc/wsprintf.c]
Make WPR_STRING work in more situations.
Added debug output for the wsprintf functions.
* [misc/crtdll.c] [misc/main.c]
Use argv[0] as comand with CRTDLL_system.
Fri Oct 3 14:00:29 MET DST 1997 Jan Willamowius <jan@janhh.shnet.org>
* [*/*]
Removed some compiler warnings.
* [msdos/int15.c]
New INT 15 handler.
920 lines
19 KiB
C
920 lines
19 KiB
C
/*
|
|
* File expr.c - expression handling for Wine internal debugger.
|
|
*
|
|
* Copyright (C) 1997, Eric Youngdale.
|
|
*
|
|
*/
|
|
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <limits.h>
|
|
#include <sys/types.h>
|
|
#include <neexe.h>
|
|
#include "module.h"
|
|
#include "selectors.h"
|
|
#include "debugger.h"
|
|
#include "xmalloc.h"
|
|
|
|
#include "expr.h"
|
|
|
|
#include <stdarg.h>
|
|
|
|
struct expr
|
|
{
|
|
unsigned int perm;
|
|
unsigned int type:31;
|
|
union
|
|
{
|
|
struct
|
|
{
|
|
int value;
|
|
} constant;
|
|
|
|
struct
|
|
{
|
|
const char * str;
|
|
} string;
|
|
|
|
struct
|
|
{
|
|
unsigned int value;
|
|
} u_const;
|
|
|
|
struct
|
|
{
|
|
const char * name;
|
|
} symbol;
|
|
|
|
struct
|
|
{
|
|
enum debug_regs reg;
|
|
int result;
|
|
} rgister;
|
|
|
|
struct
|
|
{
|
|
int unop_type;
|
|
struct expr * exp1;
|
|
int result;
|
|
} unop;
|
|
|
|
struct
|
|
{
|
|
int binop_type;
|
|
int result;
|
|
struct expr * exp1;
|
|
struct expr * exp2;
|
|
} binop;
|
|
|
|
struct
|
|
{
|
|
struct datatype * cast;
|
|
struct expr * expr;
|
|
} cast;
|
|
|
|
struct
|
|
{
|
|
struct expr * exp1;
|
|
const char * element_name;
|
|
int result;
|
|
} structure;
|
|
|
|
struct
|
|
{
|
|
struct expr * base;
|
|
struct expr * index;
|
|
} array;
|
|
|
|
struct
|
|
{
|
|
const char * funcname;
|
|
int nargs;
|
|
int result;
|
|
struct expr * arg[5];
|
|
} call;
|
|
|
|
} un;
|
|
};
|
|
|
|
#define EXPR_TYPE_CONST 0
|
|
#define EXPR_TYPE_US_CONST 1
|
|
#define EXPR_TYPE_SYMBOL 2
|
|
#define EXPR_TYPE_REGISTER 3
|
|
#define EXPR_TYPE_BINOP 4
|
|
#define EXPR_TYPE_UNOP 5
|
|
#define EXPR_TYPE_STRUCT 6
|
|
#define EXPR_TYPE_PSTRUCT 7
|
|
#define EXPR_TYPE_ARRAY 8
|
|
#define EXPR_TYPE_CALL 9
|
|
#define EXPR_TYPE_STRING 10
|
|
#define EXPR_TYPE_CAST 11
|
|
|
|
static char expr_list[4096];
|
|
static int next_expr_free = 0;
|
|
|
|
/*
|
|
* This is how we turn an expression address into the actual value.
|
|
* This works well in the 32 bit domain - not sure at all about the
|
|
* 16 bit world.
|
|
*/
|
|
#define VAL(_exp) DEBUG_GetExprValue(&_exp, NULL)
|
|
|
|
static
|
|
struct expr *
|
|
DEBUG_GetFreeExpr()
|
|
{
|
|
struct expr * rtn;
|
|
|
|
rtn = (struct expr *) &expr_list[next_expr_free];
|
|
|
|
next_expr_free += sizeof(struct expr);
|
|
return rtn;
|
|
}
|
|
|
|
void
|
|
DEBUG_FreeExprMem()
|
|
{
|
|
next_expr_free = 0;
|
|
}
|
|
|
|
struct expr *
|
|
DEBUG_TypeCastExpr(struct datatype * dt, struct expr * exp)
|
|
{
|
|
struct expr * ex;
|
|
|
|
ex = DEBUG_GetFreeExpr();
|
|
|
|
ex->type = EXPR_TYPE_CAST;
|
|
ex->un.cast.cast = dt;
|
|
ex->un.cast.expr = exp;
|
|
return ex;
|
|
}
|
|
|
|
struct expr *
|
|
DEBUG_RegisterExpr(enum debug_regs regno)
|
|
{
|
|
struct expr * ex;
|
|
|
|
ex = DEBUG_GetFreeExpr();
|
|
|
|
ex->type = EXPR_TYPE_REGISTER;
|
|
ex->un.rgister.reg = regno;
|
|
return ex;
|
|
}
|
|
|
|
struct expr *
|
|
DEBUG_SymbolExpr(const char * name)
|
|
{
|
|
struct expr * ex;
|
|
|
|
ex = DEBUG_GetFreeExpr();
|
|
|
|
ex->type = EXPR_TYPE_SYMBOL;
|
|
ex->un.symbol.name = name;
|
|
return ex;
|
|
}
|
|
|
|
struct expr *
|
|
DEBUG_ConstExpr(int value)
|
|
{
|
|
struct expr * ex;
|
|
|
|
ex = DEBUG_GetFreeExpr();
|
|
|
|
ex->type = EXPR_TYPE_CONST;
|
|
ex->un.constant.value = value;
|
|
return ex;
|
|
}
|
|
|
|
struct expr *
|
|
DEBUG_StringExpr(const char * str)
|
|
{
|
|
struct expr * ex;
|
|
char * pnt;
|
|
ex = DEBUG_GetFreeExpr();
|
|
|
|
ex->type = EXPR_TYPE_STRING;
|
|
ex->un.string.str = str+1;
|
|
pnt = strrchr(ex->un.string.str, '"');
|
|
if( pnt != NULL )
|
|
{
|
|
*pnt = '\0';
|
|
}
|
|
return ex;
|
|
}
|
|
|
|
struct expr *
|
|
DEBUG_USConstExpr(unsigned int value)
|
|
{
|
|
struct expr * ex;
|
|
|
|
ex = DEBUG_GetFreeExpr();
|
|
|
|
ex->type = EXPR_TYPE_CONST;
|
|
ex->un.u_const.value = value;
|
|
return ex;
|
|
}
|
|
|
|
struct expr *
|
|
DEBUG_BinopExpr(int operator_type, struct expr * exp1, struct expr * exp2)
|
|
{
|
|
struct expr * ex;
|
|
|
|
ex = DEBUG_GetFreeExpr();
|
|
|
|
ex->type = EXPR_TYPE_BINOP;
|
|
ex->un.binop.binop_type = operator_type;
|
|
ex->un.binop.exp1 = exp1;
|
|
ex->un.binop.exp2 = exp2;
|
|
return ex;
|
|
}
|
|
|
|
struct expr *
|
|
DEBUG_UnopExpr(int operator_type, struct expr * exp1)
|
|
{
|
|
struct expr * ex;
|
|
|
|
ex = DEBUG_GetFreeExpr();
|
|
|
|
ex->type = EXPR_TYPE_UNOP;
|
|
ex->un.unop.unop_type = operator_type;
|
|
ex->un.unop.exp1 = exp1;
|
|
return ex;
|
|
}
|
|
|
|
struct expr *
|
|
DEBUG_StructExpr(struct expr * exp, const char * element)
|
|
{
|
|
struct expr * ex;
|
|
|
|
ex = DEBUG_GetFreeExpr();
|
|
|
|
ex->type = EXPR_TYPE_STRUCT;
|
|
ex->un.structure.exp1 = exp;
|
|
ex->un.structure.element_name = element;
|
|
return ex;
|
|
}
|
|
|
|
struct expr *
|
|
DEBUG_StructPExpr(struct expr * exp, const char * element)
|
|
{
|
|
struct expr * ex;
|
|
|
|
ex = DEBUG_GetFreeExpr();
|
|
|
|
ex->type = EXPR_TYPE_PSTRUCT;
|
|
ex->un.structure.exp1 = exp;
|
|
ex->un.structure.element_name = element;
|
|
return ex;
|
|
}
|
|
|
|
struct expr *
|
|
DEBUG_CallExpr(const char * funcname, int nargs, ...)
|
|
{
|
|
struct expr * ex;
|
|
va_list ap;
|
|
int i;
|
|
|
|
ex = DEBUG_GetFreeExpr();
|
|
|
|
ex->type = EXPR_TYPE_CALL;
|
|
ex->un.call.funcname = funcname;
|
|
ex->un.call.nargs = nargs;
|
|
|
|
va_start(ap, nargs);
|
|
for(i=0; i < nargs; i++)
|
|
{
|
|
ex->un.call.arg[i] = va_arg(ap, struct expr *);
|
|
}
|
|
va_end(ap);
|
|
return ex;
|
|
}
|
|
|
|
DBG_ADDR
|
|
DEBUG_EvalExpr(struct expr * exp)
|
|
{
|
|
DBG_ADDR rtn;
|
|
int i;
|
|
DBG_ADDR exp1;
|
|
DBG_ADDR exp2;
|
|
unsigned int cexp[5];
|
|
int (*fptr)();
|
|
int scale1;
|
|
int scale2;
|
|
int scale3;
|
|
struct datatype * type1;
|
|
struct datatype * type2;
|
|
|
|
rtn.type = NULL;
|
|
rtn.off = NULL;
|
|
rtn.seg = NULL;
|
|
|
|
switch(exp->type)
|
|
{
|
|
case EXPR_TYPE_CAST:
|
|
rtn = DEBUG_EvalExpr(exp->un.cast.expr);
|
|
rtn.type = exp->un.cast.cast;
|
|
break;
|
|
case EXPR_TYPE_STRING:
|
|
rtn.type = DEBUG_TypeString;
|
|
rtn.off = (unsigned int) &exp->un.string.str;
|
|
rtn.seg = 0;
|
|
break;
|
|
case EXPR_TYPE_CONST:
|
|
rtn.type = DEBUG_TypeIntConst;
|
|
rtn.off = (unsigned int) &exp->un.constant.value;
|
|
rtn.seg = 0;
|
|
break;
|
|
case EXPR_TYPE_US_CONST:
|
|
rtn.type = DEBUG_TypeUSInt;
|
|
rtn.off = (unsigned int) &exp->un.u_const.value;
|
|
rtn.seg = 0;
|
|
break;
|
|
case EXPR_TYPE_SYMBOL:
|
|
if( !DEBUG_GetSymbolValue(exp->un.symbol.name, -1, &rtn, FALSE ) )
|
|
{
|
|
rtn.type = NULL;
|
|
rtn.off = 0;
|
|
rtn.seg = 0;
|
|
};
|
|
break;
|
|
case EXPR_TYPE_PSTRUCT:
|
|
exp1 = DEBUG_EvalExpr(exp->un.structure.exp1);
|
|
if( exp1.type == NULL )
|
|
{
|
|
break;
|
|
}
|
|
rtn.off = DEBUG_TypeDerefPointer(&exp1, &type1);
|
|
if( type1 == NULL )
|
|
{
|
|
break;
|
|
}
|
|
rtn.type = type1;
|
|
DEBUG_FindStructElement(&rtn, exp->un.structure.element_name,
|
|
&exp->un.structure.result);
|
|
break;
|
|
case EXPR_TYPE_STRUCT:
|
|
exp1 = DEBUG_EvalExpr(exp->un.structure.exp1);
|
|
if( exp1.type == NULL )
|
|
{
|
|
break;
|
|
}
|
|
rtn = exp1;
|
|
DEBUG_FindStructElement(&rtn, exp->un.structure.element_name,
|
|
&exp->un.structure.result);
|
|
break;
|
|
case EXPR_TYPE_CALL:
|
|
/*
|
|
* First, evaluate all of the arguments. If any of them are not
|
|
* evaluable, then bail.
|
|
*/
|
|
for(i=0; i < exp->un.call.nargs; i++)
|
|
{
|
|
exp1 = DEBUG_EvalExpr(exp->un.call.arg[i]);
|
|
if( exp1.type == NULL )
|
|
{
|
|
return rtn;
|
|
}
|
|
cexp[i] = DEBUG_GetExprValue(&exp1, NULL);
|
|
}
|
|
|
|
/*
|
|
* Now look up the address of the function itself.
|
|
*/
|
|
if( !DEBUG_GetSymbolValue(exp->un.call.funcname, -1, &rtn, FALSE ) )
|
|
{
|
|
fprintf(stderr, "Failed to find symbol\n");
|
|
break;
|
|
};
|
|
|
|
fptr = (int (*)()) rtn.off;
|
|
switch(exp->un.call.nargs)
|
|
{
|
|
case 0:
|
|
exp->un.call.result = (*fptr)();
|
|
break;
|
|
case 1:
|
|
exp->un.call.result = (*fptr)(cexp[0]);
|
|
break;
|
|
case 2:
|
|
exp->un.call.result = (*fptr)(cexp[0], cexp[1]);
|
|
break;
|
|
case 3:
|
|
exp->un.call.result = (*fptr)(cexp[0], cexp[1], cexp[2]);
|
|
break;
|
|
case 4:
|
|
exp->un.call.result = (*fptr)(cexp[0], cexp[1], cexp[2], cexp[3]);
|
|
break;
|
|
case 5:
|
|
exp->un.call.result = (*fptr)(cexp[0], cexp[1], cexp[2], cexp[3], cexp[4]);
|
|
break;
|
|
}
|
|
rtn.type = DEBUG_TypeInt;
|
|
rtn.off = (unsigned int) &exp->un.call.result;
|
|
break;
|
|
case EXPR_TYPE_REGISTER:
|
|
rtn.type = DEBUG_TypeIntConst;
|
|
exp->un.rgister.result = DEBUG_GetRegister(exp->un.rgister.reg);
|
|
rtn.off = (unsigned int) &exp->un.rgister.result;
|
|
if( exp->un.rgister.reg == REG_EIP )
|
|
{
|
|
rtn.seg = CS_reg(&DEBUG_context);
|
|
}
|
|
else
|
|
{
|
|
rtn.seg = DS_reg(&DEBUG_context);
|
|
}
|
|
break;
|
|
case EXPR_TYPE_BINOP:
|
|
exp1 = DEBUG_EvalExpr(exp->un.binop.exp1);
|
|
exp2 = DEBUG_EvalExpr(exp->un.binop.exp2);
|
|
if( exp1.type == NULL || exp2.type == NULL )
|
|
{
|
|
break;
|
|
}
|
|
if( exp1.type == DEBUG_TypeIntConst && exp2.type == DEBUG_TypeIntConst )
|
|
{
|
|
rtn.type = exp1.type;
|
|
}
|
|
else
|
|
{
|
|
rtn.type = DEBUG_TypeInt;
|
|
}
|
|
rtn.off = (unsigned int) &exp->un.binop.result;
|
|
switch(exp->un.binop.binop_type)
|
|
{
|
|
case EXP_OP_ADD:
|
|
type1 = DEBUG_GetPointerType(exp1.type);
|
|
type2 = DEBUG_GetPointerType(exp2.type);
|
|
scale1 = 1;
|
|
scale2 = 1;
|
|
if( type1 != NULL && type2 != NULL )
|
|
{
|
|
break;
|
|
}
|
|
else if( type1 != NULL )
|
|
{
|
|
scale2 = DEBUG_GetObjectSize(type1);
|
|
rtn.type = exp1.type;
|
|
}
|
|
else if( type2 != NULL )
|
|
{
|
|
scale1 = DEBUG_GetObjectSize(type2);
|
|
rtn.type = exp2.type;
|
|
}
|
|
rtn.seg = 0;
|
|
exp->un.binop.result = (VAL(exp1) * scale1 + scale2 * VAL(exp2));
|
|
break;
|
|
case EXP_OP_SUB:
|
|
type1 = DEBUG_GetPointerType(exp1.type);
|
|
type2 = DEBUG_GetPointerType(exp2.type);
|
|
scale1 = 1;
|
|
scale2 = 1;
|
|
scale3 = 1;
|
|
if( type1 != NULL && type2 != NULL )
|
|
{
|
|
if( type1 != type2 )
|
|
{
|
|
break;
|
|
}
|
|
scale3 = DEBUG_GetObjectSize(type1);
|
|
}
|
|
else if( type1 != NULL )
|
|
{
|
|
scale2 = DEBUG_GetObjectSize(type1);
|
|
rtn.type = exp1.type;
|
|
}
|
|
|
|
else if( type2 != NULL )
|
|
{
|
|
scale1 = DEBUG_GetObjectSize(type2);
|
|
rtn.type = exp2.type;
|
|
}
|
|
rtn.seg = 0;
|
|
exp->un.binop.result = (VAL(exp1) - VAL(exp2)) / scale3;
|
|
break;
|
|
case EXP_OP_SEG:
|
|
rtn.seg = VAL(exp1);
|
|
exp->un.binop.result = VAL(exp2);
|
|
break;
|
|
case EXP_OP_LOR:
|
|
rtn.seg = 0;
|
|
exp->un.binop.result = (VAL(exp1) || VAL(exp2));
|
|
break;
|
|
case EXP_OP_LAND:
|
|
rtn.seg = 0;
|
|
exp->un.binop.result = (VAL(exp1) && VAL(exp2));
|
|
break;
|
|
case EXP_OP_OR:
|
|
rtn.seg = 0;
|
|
exp->un.binop.result = (VAL(exp1) | VAL(exp2));
|
|
break;
|
|
case EXP_OP_AND:
|
|
rtn.seg = 0;
|
|
exp->un.binop.result = (VAL(exp1) & VAL(exp2));
|
|
break;
|
|
case EXP_OP_XOR:
|
|
rtn.seg = 0;
|
|
exp->un.binop.result = (VAL(exp1) ^ VAL(exp2));
|
|
break;
|
|
case EXP_OP_EQ:
|
|
rtn.seg = 0;
|
|
exp->un.binop.result = (VAL(exp1) == VAL(exp2));
|
|
break;
|
|
case EXP_OP_GT:
|
|
rtn.seg = 0;
|
|
exp->un.binop.result = (VAL(exp1) > VAL(exp2));
|
|
break;
|
|
case EXP_OP_LT:
|
|
rtn.seg = 0;
|
|
exp->un.binop.result = (VAL(exp1) < VAL(exp2));
|
|
break;
|
|
case EXP_OP_GE:
|
|
rtn.seg = 0;
|
|
exp->un.binop.result = (VAL(exp1) >= VAL(exp2));
|
|
break;
|
|
case EXP_OP_LE:
|
|
rtn.seg = 0;
|
|
exp->un.binop.result = (VAL(exp1) <= VAL(exp2));
|
|
break;
|
|
case EXP_OP_NE:
|
|
rtn.seg = 0;
|
|
exp->un.binop.result = (VAL(exp1) != VAL(exp2));
|
|
break;
|
|
case EXP_OP_SHL:
|
|
rtn.seg = 0;
|
|
exp->un.binop.result = ((unsigned) VAL(exp1) << VAL(exp2));
|
|
break;
|
|
case EXP_OP_SHR:
|
|
rtn.seg = 0;
|
|
exp->un.binop.result = ((unsigned) VAL(exp1) >> VAL(exp2));
|
|
break;
|
|
case EXP_OP_MUL:
|
|
rtn.seg = 0;
|
|
exp->un.binop.result = (VAL(exp1) * VAL(exp2));
|
|
break;
|
|
case EXP_OP_DIV:
|
|
if( VAL(exp2) != 0 )
|
|
{
|
|
rtn.seg = 0;
|
|
exp->un.binop.result = (VAL(exp1) / VAL(exp2));
|
|
}
|
|
else
|
|
{
|
|
rtn.seg = 0;
|
|
rtn.type = NULL;
|
|
rtn.off = 0;
|
|
}
|
|
break;
|
|
case EXP_OP_REM:
|
|
if( VAL(exp2) != 0 )
|
|
{
|
|
rtn.seg = 0;
|
|
exp->un.binop.result = (VAL(exp1) % VAL(exp2));
|
|
}
|
|
else
|
|
{
|
|
rtn.seg = 0;
|
|
rtn.type = NULL;
|
|
rtn.off = 0;
|
|
}
|
|
break;
|
|
case EXP_OP_ARR:
|
|
DEBUG_ArrayIndex(&exp1, &rtn, VAL(exp2));
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
break;
|
|
case EXPR_TYPE_UNOP:
|
|
exp1 = DEBUG_EvalExpr(exp->un.unop.exp1);
|
|
if( exp1.type == NULL )
|
|
{
|
|
break;
|
|
}
|
|
rtn.off = (unsigned int) &exp->un.unop.result;
|
|
if( exp1.type == DEBUG_TypeIntConst )
|
|
{
|
|
rtn.type = exp1.type;
|
|
}
|
|
else
|
|
{
|
|
rtn.type = DEBUG_TypeInt;
|
|
}
|
|
switch(exp->un.binop.binop_type)
|
|
{
|
|
case EXP_OP_NEG:
|
|
rtn.seg = 0;
|
|
exp->un.unop.result = -VAL(exp1);
|
|
break;
|
|
case EXP_OP_NOT:
|
|
rtn.seg = 0;
|
|
exp->un.unop.result = !VAL(exp1);
|
|
break;
|
|
case EXP_OP_LNOT:
|
|
rtn.seg = 0;
|
|
exp->un.unop.result = ~VAL(exp1);
|
|
break;
|
|
case EXP_OP_DEREF:
|
|
rtn.seg = 0;
|
|
rtn.off = (unsigned int) DEBUG_TypeDerefPointer(&exp1, &rtn.type);
|
|
break;
|
|
case EXP_OP_FORCE_DEREF:
|
|
rtn.seg = 0;
|
|
rtn.off = *(unsigned int *) exp1.off;
|
|
break;
|
|
case EXP_OP_ADDR:
|
|
rtn.seg = 0;
|
|
rtn.type = DEBUG_FindOrMakePointerType(exp1.type);
|
|
exp->un.unop.result = exp1.off;
|
|
break;
|
|
}
|
|
break;
|
|
default:
|
|
fprintf(stderr,"Unexpected expression.\n");
|
|
exit(123);
|
|
break;
|
|
}
|
|
|
|
return rtn;
|
|
}
|
|
|
|
|
|
int
|
|
DEBUG_DisplayExpr(struct expr * exp)
|
|
{
|
|
int i;
|
|
|
|
|
|
switch(exp->type)
|
|
{
|
|
case EXPR_TYPE_CAST:
|
|
fprintf(stderr, "((");
|
|
DEBUG_PrintTypeCast(exp->un.cast.cast);
|
|
fprintf(stderr, ")");
|
|
DEBUG_DisplayExpr(exp->un.cast.expr);
|
|
fprintf(stderr, ")");
|
|
break;
|
|
case EXPR_TYPE_REGISTER:
|
|
DEBUG_PrintRegister(exp->un.rgister.reg);
|
|
break;
|
|
case EXPR_TYPE_US_CONST:
|
|
fprintf(stderr, "%ud", exp->un.u_const.value);
|
|
break;
|
|
case EXPR_TYPE_CONST:
|
|
fprintf(stderr, "%d", exp->un.u_const.value);
|
|
break;
|
|
case EXPR_TYPE_STRING:
|
|
fprintf(stderr, "\"%s\"", exp->un.string.str);
|
|
break;
|
|
case EXPR_TYPE_SYMBOL:
|
|
fprintf(stderr, "%s" , exp->un.symbol.name);
|
|
break;
|
|
case EXPR_TYPE_PSTRUCT:
|
|
DEBUG_DisplayExpr(exp->un.structure.exp1);
|
|
fprintf(stderr, "->%s", exp->un.structure.element_name);
|
|
break;
|
|
case EXPR_TYPE_STRUCT:
|
|
DEBUG_DisplayExpr(exp->un.structure.exp1);
|
|
fprintf(stderr, ".%s", exp->un.structure.element_name);
|
|
break;
|
|
case EXPR_TYPE_CALL:
|
|
/*
|
|
* First, evaluate all of the arguments. If any of them are not
|
|
* evaluable, then bail.
|
|
*/
|
|
fprintf(stderr, "%s(",exp->un.call.funcname);
|
|
for(i=0; i < exp->un.call.nargs; i++)
|
|
{
|
|
DEBUG_DisplayExpr(exp->un.call.arg[i]);
|
|
if( i != exp->un.call.nargs - 1 )
|
|
{
|
|
fprintf(stderr, ", ");
|
|
}
|
|
}
|
|
fprintf(stderr, ")");
|
|
break;
|
|
case EXPR_TYPE_BINOP:
|
|
fprintf(stderr, "( ");
|
|
DEBUG_DisplayExpr(exp->un.binop.exp1);
|
|
switch(exp->un.binop.binop_type)
|
|
{
|
|
case EXP_OP_ADD:
|
|
fprintf(stderr, " + ");
|
|
break;
|
|
case EXP_OP_SUB:
|
|
fprintf(stderr, " - ");
|
|
break;
|
|
case EXP_OP_SEG:
|
|
fprintf(stderr, ":");
|
|
break;
|
|
case EXP_OP_LOR:
|
|
fprintf(stderr, " || ");
|
|
break;
|
|
case EXP_OP_LAND:
|
|
fprintf(stderr, " && ");
|
|
break;
|
|
case EXP_OP_OR:
|
|
fprintf(stderr, " | ");
|
|
break;
|
|
case EXP_OP_AND:
|
|
fprintf(stderr, " & ");
|
|
break;
|
|
case EXP_OP_XOR:
|
|
fprintf(stderr, " ^ ");
|
|
break;
|
|
case EXP_OP_EQ:
|
|
fprintf(stderr, " == ");
|
|
break;
|
|
case EXP_OP_GT:
|
|
fprintf(stderr, " > ");
|
|
break;
|
|
case EXP_OP_LT:
|
|
fprintf(stderr, " < ");
|
|
break;
|
|
case EXP_OP_GE:
|
|
fprintf(stderr, " >= ");
|
|
break;
|
|
case EXP_OP_LE:
|
|
fprintf(stderr, " <= ");
|
|
break;
|
|
case EXP_OP_NE:
|
|
fprintf(stderr, " != ");
|
|
break;
|
|
case EXP_OP_SHL:
|
|
fprintf(stderr, " << ");
|
|
break;
|
|
case EXP_OP_SHR:
|
|
fprintf(stderr, " >> ");
|
|
break;
|
|
case EXP_OP_MUL:
|
|
fprintf(stderr, " * ");
|
|
break;
|
|
case EXP_OP_DIV:
|
|
fprintf(stderr, " / ");
|
|
break;
|
|
case EXP_OP_REM:
|
|
fprintf(stderr, " %% ");
|
|
break;
|
|
case EXP_OP_ARR:
|
|
fprintf(stderr, "[");
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
DEBUG_DisplayExpr(exp->un.binop.exp2);
|
|
if( exp->un.binop.binop_type == EXP_OP_ARR )
|
|
{
|
|
fprintf(stderr, "]");
|
|
}
|
|
fprintf(stderr, " )");
|
|
break;
|
|
case EXPR_TYPE_UNOP:
|
|
switch(exp->un.binop.binop_type)
|
|
{
|
|
case EXP_OP_NEG:
|
|
fprintf(stderr, "-");
|
|
break;
|
|
case EXP_OP_NOT:
|
|
fprintf(stderr, "!");
|
|
break;
|
|
case EXP_OP_LNOT:
|
|
fprintf(stderr, "~");
|
|
break;
|
|
case EXP_OP_DEREF:
|
|
fprintf(stderr, "*");
|
|
break;
|
|
case EXP_OP_ADDR:
|
|
fprintf(stderr, "&");
|
|
break;
|
|
}
|
|
DEBUG_DisplayExpr(exp->un.unop.exp1);
|
|
break;
|
|
default:
|
|
fprintf(stderr,"Unexpected expression.\n");
|
|
exit(123);
|
|
break;
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
struct expr *
|
|
DEBUG_CloneExpr(struct expr * exp)
|
|
{
|
|
int i;
|
|
struct expr * rtn;
|
|
|
|
rtn = (struct expr *) xmalloc(sizeof(struct expr));
|
|
|
|
/*
|
|
* First copy the contents of the expression itself.
|
|
*/
|
|
*rtn = *exp;
|
|
|
|
|
|
switch(exp->type)
|
|
{
|
|
case EXPR_TYPE_CAST:
|
|
rtn->un.cast.expr = DEBUG_CloneExpr(exp->un.cast.expr);
|
|
break;
|
|
case EXPR_TYPE_REGISTER:
|
|
case EXPR_TYPE_US_CONST:
|
|
case EXPR_TYPE_CONST:
|
|
break;
|
|
case EXPR_TYPE_STRING:
|
|
rtn->un.string.str = xstrdup(exp->un.string.str);
|
|
break;
|
|
case EXPR_TYPE_SYMBOL:
|
|
rtn->un.symbol.name = xstrdup(exp->un.symbol.name);
|
|
break;
|
|
case EXPR_TYPE_PSTRUCT:
|
|
case EXPR_TYPE_STRUCT:
|
|
rtn->un.structure.exp1 = DEBUG_CloneExpr(exp->un.structure.exp1);
|
|
rtn->un.structure.element_name = xstrdup(exp->un.structure.element_name);
|
|
break;
|
|
case EXPR_TYPE_CALL:
|
|
/*
|
|
* First, evaluate all of the arguments. If any of them are not
|
|
* evaluable, then bail.
|
|
*/
|
|
for(i=0; i < exp->un.call.nargs; i++)
|
|
{
|
|
rtn->un.call.arg[i] = DEBUG_CloneExpr(exp->un.call.arg[i]);
|
|
}
|
|
rtn->un.call.funcname = xstrdup(exp->un.call.funcname);
|
|
break;
|
|
case EXPR_TYPE_BINOP:
|
|
rtn->un.binop.exp1 = DEBUG_CloneExpr(exp->un.binop.exp1);
|
|
rtn->un.binop.exp2 = DEBUG_CloneExpr(exp->un.binop.exp2);
|
|
break;
|
|
case EXPR_TYPE_UNOP:
|
|
rtn->un.unop.exp1 = DEBUG_CloneExpr(exp->un.unop.exp1);
|
|
break;
|
|
default:
|
|
fprintf(stderr,"Unexpected expression.\n");
|
|
exit(123);
|
|
break;
|
|
}
|
|
|
|
return rtn;
|
|
}
|
|
|
|
|
|
/*
|
|
* Recursively go through an expression tree and free all memory associated
|
|
* with it.
|
|
*/
|
|
int
|
|
DEBUG_FreeExpr(struct expr * exp)
|
|
{
|
|
int i;
|
|
|
|
switch(exp->type)
|
|
{
|
|
case EXPR_TYPE_CAST:
|
|
DEBUG_FreeExpr(exp->un.cast.expr);
|
|
break;
|
|
case EXPR_TYPE_REGISTER:
|
|
case EXPR_TYPE_US_CONST:
|
|
case EXPR_TYPE_CONST:
|
|
break;
|
|
case EXPR_TYPE_STRING:
|
|
free((char *) exp->un.string.str);
|
|
break;
|
|
case EXPR_TYPE_SYMBOL:
|
|
free((char *) exp->un.symbol.name);
|
|
break;
|
|
case EXPR_TYPE_PSTRUCT:
|
|
case EXPR_TYPE_STRUCT:
|
|
DEBUG_FreeExpr(exp->un.structure.exp1);
|
|
free((char *) exp->un.structure.element_name);
|
|
break;
|
|
case EXPR_TYPE_CALL:
|
|
/*
|
|
* First, evaluate all of the arguments. If any of them are not
|
|
* evaluable, then bail.
|
|
*/
|
|
for(i=0; i < exp->un.call.nargs; i++)
|
|
{
|
|
DEBUG_FreeExpr(exp->un.call.arg[i]);
|
|
}
|
|
free((char *) exp->un.call.funcname);
|
|
break;
|
|
case EXPR_TYPE_BINOP:
|
|
DEBUG_FreeExpr(exp->un.binop.exp1);
|
|
DEBUG_FreeExpr(exp->un.binop.exp2);
|
|
break;
|
|
case EXPR_TYPE_UNOP:
|
|
DEBUG_FreeExpr(exp->un.unop.exp1);
|
|
break;
|
|
default:
|
|
fprintf(stderr,"Unexpected expression.\n");
|
|
exit(123);
|
|
break;
|
|
}
|
|
|
|
free(exp);
|
|
return TRUE;
|
|
}
|