2 * File expr.c - expression handling for Wine internal debugger.
4 * Copyright (C) 1997, Eric Youngdale.
12 #include "wine/winbase16.h"
67 struct datatype
* cast
;
74 const char * element_name
;
86 const char * funcname
;
95 #define EXPR_TYPE_CONST 0
96 #define EXPR_TYPE_US_CONST 1
97 #define EXPR_TYPE_SYMBOL 2
98 #define EXPR_TYPE_INTVAR 3
99 #define EXPR_TYPE_BINOP 4
100 #define EXPR_TYPE_UNOP 5
101 #define EXPR_TYPE_STRUCT 6
102 #define EXPR_TYPE_PSTRUCT 7
103 #define EXPR_TYPE_ARRAY 8
104 #define EXPR_TYPE_CALL 9
105 #define EXPR_TYPE_STRING 10
106 #define EXPR_TYPE_CAST 11
108 static char expr_list
[4096];
109 static int next_expr_free
= 0;
112 * This is how we turn an expression address into the actual value.
113 * This works well in the 32 bit domain - not sure at all about the
116 #define VAL(_exp) DEBUG_GetExprValue(&_exp, NULL)
120 DEBUG_GetFreeExpr(void)
124 rtn
= (struct expr
*) &expr_list
[next_expr_free
];
126 next_expr_free
+= sizeof(struct expr
);
127 assert(next_expr_free
< sizeof(expr_list
));
133 DEBUG_FreeExprMem(void)
139 DEBUG_TypeCastExpr(struct datatype
* dt
, struct expr
* exp
)
143 ex
= DEBUG_GetFreeExpr();
145 ex
->type
= EXPR_TYPE_CAST
;
146 ex
->un
.cast
.cast
= dt
;
147 ex
->un
.cast
.expr
= exp
;
152 DEBUG_IntVarExpr(const char* name
)
156 ex
= DEBUG_GetFreeExpr();
158 ex
->type
= EXPR_TYPE_INTVAR
;
159 ex
->un
.intvar
.name
= name
;
164 DEBUG_SymbolExpr(const char * name
)
168 ex
= DEBUG_GetFreeExpr();
170 ex
->type
= EXPR_TYPE_SYMBOL
;
171 ex
->un
.symbol
.name
= name
;
176 DEBUG_ConstExpr(int value
)
180 ex
= DEBUG_GetFreeExpr();
182 ex
->type
= EXPR_TYPE_CONST
;
183 ex
->un
.constant
.value
= value
;
188 DEBUG_StringExpr(const char * str
)
192 ex
= DEBUG_GetFreeExpr();
194 ex
->type
= EXPR_TYPE_STRING
;
195 ex
->un
.string
.str
= str
+1;
196 pnt
= strrchr(ex
->un
.string
.str
, '"');
205 DEBUG_USConstExpr(unsigned int value
)
209 ex
= DEBUG_GetFreeExpr();
211 ex
->type
= EXPR_TYPE_CONST
;
212 ex
->un
.u_const
.value
= value
;
217 DEBUG_BinopExpr(int operator_type
, struct expr
* exp1
, struct expr
* exp2
)
221 ex
= DEBUG_GetFreeExpr();
223 ex
->type
= EXPR_TYPE_BINOP
;
224 ex
->un
.binop
.binop_type
= operator_type
;
225 ex
->un
.binop
.exp1
= exp1
;
226 ex
->un
.binop
.exp2
= exp2
;
231 DEBUG_UnopExpr(int operator_type
, struct expr
* exp1
)
235 ex
= DEBUG_GetFreeExpr();
237 ex
->type
= EXPR_TYPE_UNOP
;
238 ex
->un
.unop
.unop_type
= operator_type
;
239 ex
->un
.unop
.exp1
= exp1
;
244 DEBUG_StructExpr(struct expr
* exp
, const char * element
)
248 ex
= DEBUG_GetFreeExpr();
250 ex
->type
= EXPR_TYPE_STRUCT
;
251 ex
->un
.structure
.exp1
= exp
;
252 ex
->un
.structure
.element_name
= element
;
257 DEBUG_StructPExpr(struct expr
* exp
, const char * element
)
261 ex
= DEBUG_GetFreeExpr();
263 ex
->type
= EXPR_TYPE_PSTRUCT
;
264 ex
->un
.structure
.exp1
= exp
;
265 ex
->un
.structure
.element_name
= element
;
270 DEBUG_CallExpr(const char * funcname
, int nargs
, ...)
276 ex
= DEBUG_GetFreeExpr();
278 ex
->type
= EXPR_TYPE_CALL
;
279 ex
->un
.call
.funcname
= funcname
;
280 ex
->un
.call
.nargs
= nargs
;
283 for(i
=0; i
< nargs
; i
++)
285 ex
->un
.call
.arg
[i
] = va_arg(ap
, struct expr
*);
291 DBG_VALUE
DEBUG_EvalExpr(struct expr
* exp
)
297 unsigned int cexp
[5];
301 struct datatype
* type1
;
302 struct datatype
* type2
;
305 rtn
.cookie
= DV_INVALID
;
312 rtn
= DEBUG_EvalExpr(exp
->un
.cast
.expr
);
313 rtn
.type
= exp
->un
.cast
.cast
;
314 if (DEBUG_GetType(rtn
.type
) == DT_POINTER
)
315 rtn
.cookie
= DV_TARGET
;
317 case EXPR_TYPE_STRING
:
318 rtn
.type
= DEBUG_TypeString
;
319 rtn
.cookie
= DV_HOST
;
320 rtn
.addr
.off
= (unsigned int) &exp
->un
.string
.str
;
323 case EXPR_TYPE_CONST
:
324 rtn
.type
= DEBUG_TypeIntConst
;
325 rtn
.cookie
= DV_HOST
;
326 rtn
.addr
.off
= (unsigned int) &exp
->un
.constant
.value
;
329 case EXPR_TYPE_US_CONST
:
330 rtn
.type
= DEBUG_TypeUSInt
;
331 rtn
.cookie
= DV_HOST
;
332 rtn
.addr
.off
= (unsigned int) &exp
->un
.u_const
.value
;
335 case EXPR_TYPE_SYMBOL
:
336 if( !DEBUG_GetSymbolValue(exp
->un
.symbol
.name
, -1, &rtn
, FALSE
) )
338 RaiseException(DEBUG_STATUS_NO_SYMBOL
, 0, 0, NULL
);
341 case EXPR_TYPE_PSTRUCT
:
342 exp1
= DEBUG_EvalExpr(exp
->un
.structure
.exp1
);
343 if( exp1
.type
== NULL
)
345 RaiseException(DEBUG_STATUS_BAD_TYPE
, 0, 0, NULL
);
347 rtn
.cookie
= DV_TARGET
;
348 rtn
.addr
.off
= DEBUG_TypeDerefPointer(&exp1
, &type1
);
351 RaiseException(DEBUG_STATUS_BAD_TYPE
, 0, 0, NULL
);
354 DEBUG_FindStructElement(&rtn
, exp
->un
.structure
.element_name
,
355 &exp
->un
.structure
.result
);
357 case EXPR_TYPE_STRUCT
:
358 exp1
= DEBUG_EvalExpr(exp
->un
.structure
.exp1
);
359 if( exp1
.type
== NULL
)
361 RaiseException(DEBUG_STATUS_BAD_TYPE
, 0, 0, NULL
);
364 DEBUG_FindStructElement(&rtn
, exp
->un
.structure
.element_name
,
365 &exp
->un
.structure
.result
);
369 * First, evaluate all of the arguments. If any of them are not
370 * evaluable, then bail.
372 for(i
=0; i
< exp
->un
.call
.nargs
; i
++)
374 exp1
= DEBUG_EvalExpr(exp
->un
.call
.arg
[i
]);
375 if( exp1
.type
== NULL
)
379 cexp
[i
] = DEBUG_GetExprValue(&exp1
, NULL
);
383 * Now look up the address of the function itself.
385 if( !DEBUG_GetSymbolValue(exp
->un
.call
.funcname
, -1, &rtn
, FALSE
) )
387 RaiseException(DEBUG_STATUS_NO_SYMBOL
, 0, 0, NULL
);
391 /* FIXME: NEWDBG NIY */
392 /* Anyway, I wonder how this could work depending on the calling order of
393 * the function (cdecl vs pascal for example)
397 fptr
= (int (*)()) rtn
.addr
.off
;
398 switch(exp
->un
.call
.nargs
)
401 exp
->un
.call
.result
= (*fptr
)();
404 exp
->un
.call
.result
= (*fptr
)(cexp
[0]);
407 exp
->un
.call
.result
= (*fptr
)(cexp
[0], cexp
[1]);
410 exp
->un
.call
.result
= (*fptr
)(cexp
[0], cexp
[1], cexp
[2]);
413 exp
->un
.call
.result
= (*fptr
)(cexp
[0], cexp
[1], cexp
[2], cexp
[3]);
416 exp
->un
.call
.result
= (*fptr
)(cexp
[0], cexp
[1], cexp
[2], cexp
[3], cexp
[4]);
420 DEBUG_Printf(DBG_CHN_MESG
, "Function call no longer implemented\n");
421 /* would need to set up a call to this function, and then restore the current
422 * context afterwards...
424 exp
->un
.call
.result
= 0;
426 rtn
.type
= DEBUG_TypeInt
;
427 rtn
.cookie
= DV_HOST
;
428 rtn
.addr
.off
= (unsigned int) &exp
->un
.call
.result
;
431 case EXPR_TYPE_INTVAR
:
434 DBG_INTVAR
* div
= DEBUG_GetIntVar(exp
->un
.intvar
.name
);
436 if (!div
) RaiseException(DEBUG_STATUS_NO_SYMBOL
, 0, 0, NULL
);
437 rtn
.cookie
= DV_HOST
;
438 rtn
.type
= div
->type
;
439 rtn
.addr
.off
= (unsigned int)div
->pval
;
440 /* EPP FIXME rtn.addr.seg = ?? */
443 case EXPR_TYPE_BINOP
:
444 exp1
= DEBUG_EvalExpr(exp
->un
.binop
.exp1
);
445 exp2
= DEBUG_EvalExpr(exp
->un
.binop
.exp2
);
446 rtn
.cookie
= DV_HOST
;
447 if( exp1
.type
== NULL
|| exp2
.type
== NULL
)
449 RaiseException(DEBUG_STATUS_BAD_TYPE
, 0, 0, NULL
);
451 if( exp1
.type
== DEBUG_TypeIntConst
&& exp2
.type
== DEBUG_TypeIntConst
)
453 rtn
.type
= exp1
.type
;
457 rtn
.type
= DEBUG_TypeInt
;
460 rtn
.addr
.off
= (unsigned int) &exp
->un
.binop
.result
;
461 switch(exp
->un
.binop
.binop_type
)
464 type1
= DEBUG_GetPointerType(exp1
.type
);
465 type2
= DEBUG_GetPointerType(exp2
.type
);
468 if( type1
!= NULL
&& type2
!= NULL
)
470 RaiseException(DEBUG_STATUS_BAD_TYPE
, 0, 0, NULL
);
472 else if( type1
!= NULL
)
474 scale2
= DEBUG_GetObjectSize(type1
);
475 rtn
.type
= exp1
.type
;
477 else if( type2
!= NULL
)
479 scale1
= DEBUG_GetObjectSize(type2
);
480 rtn
.type
= exp2
.type
;
482 exp
->un
.binop
.result
= (VAL(exp1
) * scale1
+ scale2
* VAL(exp2
));
485 type1
= DEBUG_GetPointerType(exp1
.type
);
486 type2
= DEBUG_GetPointerType(exp2
.type
);
490 if( type1
!= NULL
&& type2
!= NULL
)
494 RaiseException(DEBUG_STATUS_BAD_TYPE
, 0, 0, NULL
);
496 scale3
= DEBUG_GetObjectSize(type1
);
498 else if( type1
!= NULL
)
500 scale2
= DEBUG_GetObjectSize(type1
);
501 rtn
.type
= exp1
.type
;
504 else if( type2
!= NULL
)
506 scale1
= DEBUG_GetObjectSize(type2
);
507 rtn
.type
= exp2
.type
;
509 exp
->un
.binop
.result
= (VAL(exp1
) - VAL(exp2
)) / scale3
;
512 rtn
.cookie
= DV_TARGET
;
513 rtn
.addr
.seg
= VAL(exp1
);
514 exp
->un
.binop
.result
= VAL(exp2
);
516 DEBUG_FixSegment(&rtn
.addr
);
520 exp
->un
.binop
.result
= (VAL(exp1
) || VAL(exp2
));
523 exp
->un
.binop
.result
= (VAL(exp1
) && VAL(exp2
));
526 exp
->un
.binop
.result
= (VAL(exp1
) | VAL(exp2
));
529 exp
->un
.binop
.result
= (VAL(exp1
) & VAL(exp2
));
532 exp
->un
.binop
.result
= (VAL(exp1
) ^ VAL(exp2
));
535 exp
->un
.binop
.result
= (VAL(exp1
) == VAL(exp2
));
538 exp
->un
.binop
.result
= (VAL(exp1
) > VAL(exp2
));
541 exp
->un
.binop
.result
= (VAL(exp1
) < VAL(exp2
));
544 exp
->un
.binop
.result
= (VAL(exp1
) >= VAL(exp2
));
547 exp
->un
.binop
.result
= (VAL(exp1
) <= VAL(exp2
));
550 exp
->un
.binop
.result
= (VAL(exp1
) != VAL(exp2
));
553 exp
->un
.binop
.result
= ((unsigned) VAL(exp1
) << VAL(exp2
));
556 exp
->un
.binop
.result
= ((unsigned) VAL(exp1
) >> VAL(exp2
));
559 exp
->un
.binop
.result
= (VAL(exp1
) * VAL(exp2
));
564 RaiseException(DEBUG_STATUS_DIV_BY_ZERO
, 0, 0, NULL
);
566 exp
->un
.binop
.result
= (VAL(exp1
) / VAL(exp2
));
571 RaiseException(DEBUG_STATUS_DIV_BY_ZERO
, 0, 0, NULL
);
573 exp
->un
.binop
.result
= (VAL(exp1
) % VAL(exp2
));
576 DEBUG_ArrayIndex(&exp1
, &rtn
, VAL(exp2
));
579 RaiseException(DEBUG_STATUS_INTERNAL_ERROR
, 0, 0, NULL
);
584 exp1
= DEBUG_EvalExpr(exp
->un
.unop
.exp1
);
585 rtn
.cookie
= DV_HOST
;
586 if( exp1
.type
== NULL
)
588 RaiseException(DEBUG_STATUS_BAD_TYPE
, 0, 0, NULL
);
591 rtn
.addr
.off
= (unsigned int) &exp
->un
.unop
.result
;
592 if( exp1
.type
== DEBUG_TypeIntConst
)
594 rtn
.type
= exp1
.type
;
598 rtn
.type
= DEBUG_TypeInt
;
600 switch(exp
->un
.unop
.unop_type
)
603 exp
->un
.unop
.result
= -VAL(exp1
);
606 exp
->un
.unop
.result
= !VAL(exp1
);
609 exp
->un
.unop
.result
= ~VAL(exp1
);
612 rtn
.cookie
= exp1
.cookie
;
613 rtn
.addr
.off
= (unsigned int) DEBUG_TypeDerefPointer(&exp1
, &rtn
.type
);
616 RaiseException(DEBUG_STATUS_BAD_TYPE
, 0, 0, NULL
);
619 case EXP_OP_FORCE_DEREF
:
620 rtn
.cookie
= exp1
.cookie
;
621 rtn
.addr
.seg
= exp1
.addr
.seg
;
622 if (exp1
.cookie
== DV_TARGET
)
623 DEBUG_READ_MEM((void*)exp1
.addr
.off
, &rtn
.addr
.off
, sizeof(rtn
.addr
.off
));
625 memcpy(&rtn
.addr
.off
, (void*)exp1
.addr
.off
, sizeof(rtn
.addr
.off
));
628 /* FIXME: even for a 16 bit entity ? */
629 rtn
.cookie
= DV_TARGET
;
630 rtn
.type
= DEBUG_FindOrMakePointerType(exp1
.type
);
631 exp
->un
.unop
.result
= exp1
.addr
.off
;
634 RaiseException(DEBUG_STATUS_INTERNAL_ERROR
, 0, 0, NULL
);
638 DEBUG_Printf(DBG_CHN_MESG
,"Unexpected expression (%d).\n", exp
->type
);
639 RaiseException(DEBUG_STATUS_INTERNAL_ERROR
, 0, 0, NULL
);
643 assert(rtn
.cookie
== DV_TARGET
|| rtn
.cookie
== DV_HOST
);
650 DEBUG_DisplayExpr(const struct expr
* exp
)
657 DEBUG_Printf(DBG_CHN_MESG
, "((");
658 DEBUG_PrintTypeCast(exp
->un
.cast
.cast
);
659 DEBUG_Printf(DBG_CHN_MESG
, ")");
660 DEBUG_DisplayExpr(exp
->un
.cast
.expr
);
661 DEBUG_Printf(DBG_CHN_MESG
, ")");
663 case EXPR_TYPE_INTVAR
:
664 DEBUG_Printf(DBG_CHN_MESG
, "$%s", exp
->un
.intvar
.name
);
666 case EXPR_TYPE_US_CONST
:
667 DEBUG_Printf(DBG_CHN_MESG
, "%ud", exp
->un
.u_const
.value
);
669 case EXPR_TYPE_CONST
:
670 DEBUG_Printf(DBG_CHN_MESG
, "%d", exp
->un
.u_const
.value
);
672 case EXPR_TYPE_STRING
:
673 DEBUG_Printf(DBG_CHN_MESG
, "\"%s\"", exp
->un
.string
.str
);
675 case EXPR_TYPE_SYMBOL
:
676 DEBUG_Printf(DBG_CHN_MESG
, "%s" , exp
->un
.symbol
.name
);
678 case EXPR_TYPE_PSTRUCT
:
679 DEBUG_DisplayExpr(exp
->un
.structure
.exp1
);
680 DEBUG_Printf(DBG_CHN_MESG
, "->%s", exp
->un
.structure
.element_name
);
682 case EXPR_TYPE_STRUCT
:
683 DEBUG_DisplayExpr(exp
->un
.structure
.exp1
);
684 DEBUG_Printf(DBG_CHN_MESG
, ".%s", exp
->un
.structure
.element_name
);
687 DEBUG_Printf(DBG_CHN_MESG
, "%s(",exp
->un
.call
.funcname
);
688 for(i
=0; i
< exp
->un
.call
.nargs
; i
++)
690 DEBUG_DisplayExpr(exp
->un
.call
.arg
[i
]);
691 if( i
!= exp
->un
.call
.nargs
- 1 )
693 DEBUG_Printf(DBG_CHN_MESG
, ", ");
696 DEBUG_Printf(DBG_CHN_MESG
, ")");
698 case EXPR_TYPE_BINOP
:
699 DEBUG_Printf(DBG_CHN_MESG
, "( ");
700 DEBUG_DisplayExpr(exp
->un
.binop
.exp1
);
701 switch(exp
->un
.binop
.binop_type
)
704 DEBUG_Printf(DBG_CHN_MESG
, " + ");
707 DEBUG_Printf(DBG_CHN_MESG
, " - ");
710 DEBUG_Printf(DBG_CHN_MESG
, ":");
713 DEBUG_Printf(DBG_CHN_MESG
, " || ");
716 DEBUG_Printf(DBG_CHN_MESG
, " && ");
719 DEBUG_Printf(DBG_CHN_MESG
, " | ");
722 DEBUG_Printf(DBG_CHN_MESG
, " & ");
725 DEBUG_Printf(DBG_CHN_MESG
, " ^ ");
728 DEBUG_Printf(DBG_CHN_MESG
, " == ");
731 DEBUG_Printf(DBG_CHN_MESG
, " > ");
734 DEBUG_Printf(DBG_CHN_MESG
, " < ");
737 DEBUG_Printf(DBG_CHN_MESG
, " >= ");
740 DEBUG_Printf(DBG_CHN_MESG
, " <= ");
743 DEBUG_Printf(DBG_CHN_MESG
, " != ");
746 DEBUG_Printf(DBG_CHN_MESG
, " << ");
749 DEBUG_Printf(DBG_CHN_MESG
, " >> ");
752 DEBUG_Printf(DBG_CHN_MESG
, " * ");
755 DEBUG_Printf(DBG_CHN_MESG
, " / ");
758 DEBUG_Printf(DBG_CHN_MESG
, " %% ");
761 DEBUG_Printf(DBG_CHN_MESG
, "[");
766 DEBUG_DisplayExpr(exp
->un
.binop
.exp2
);
767 if( exp
->un
.binop
.binop_type
== EXP_OP_ARR
)
769 DEBUG_Printf(DBG_CHN_MESG
, "]");
771 DEBUG_Printf(DBG_CHN_MESG
, " )");
774 switch(exp
->un
.unop
.unop_type
)
777 DEBUG_Printf(DBG_CHN_MESG
, "-");
780 DEBUG_Printf(DBG_CHN_MESG
, "!");
783 DEBUG_Printf(DBG_CHN_MESG
, "~");
786 DEBUG_Printf(DBG_CHN_MESG
, "*");
789 DEBUG_Printf(DBG_CHN_MESG
, "&");
792 DEBUG_DisplayExpr(exp
->un
.unop
.exp1
);
795 DEBUG_Printf(DBG_CHN_MESG
,"Unexpected expression.\n");
796 RaiseException(DEBUG_STATUS_INTERNAL_ERROR
, 0, 0, NULL
);
804 DEBUG_CloneExpr(const struct expr
* exp
)
809 rtn
= (struct expr
*) DBG_alloc(sizeof(struct expr
));
812 * First copy the contents of the expression itself.
820 rtn
->un
.cast
.expr
= DEBUG_CloneExpr(exp
->un
.cast
.expr
);
822 case EXPR_TYPE_INTVAR
:
823 rtn
->un
.intvar
.name
= DBG_strdup(exp
->un
.intvar
.name
);
825 case EXPR_TYPE_US_CONST
:
826 case EXPR_TYPE_CONST
:
828 case EXPR_TYPE_STRING
:
829 rtn
->un
.string
.str
= DBG_strdup(exp
->un
.string
.str
);
831 case EXPR_TYPE_SYMBOL
:
832 rtn
->un
.symbol
.name
= DBG_strdup(exp
->un
.symbol
.name
);
834 case EXPR_TYPE_PSTRUCT
:
835 case EXPR_TYPE_STRUCT
:
836 rtn
->un
.structure
.exp1
= DEBUG_CloneExpr(exp
->un
.structure
.exp1
);
837 rtn
->un
.structure
.element_name
= DBG_strdup(exp
->un
.structure
.element_name
);
840 for(i
=0; i
< exp
->un
.call
.nargs
; i
++)
842 rtn
->un
.call
.arg
[i
] = DEBUG_CloneExpr(exp
->un
.call
.arg
[i
]);
844 rtn
->un
.call
.funcname
= DBG_strdup(exp
->un
.call
.funcname
);
846 case EXPR_TYPE_BINOP
:
847 rtn
->un
.binop
.exp1
= DEBUG_CloneExpr(exp
->un
.binop
.exp1
);
848 rtn
->un
.binop
.exp2
= DEBUG_CloneExpr(exp
->un
.binop
.exp2
);
851 rtn
->un
.unop
.exp1
= DEBUG_CloneExpr(exp
->un
.unop
.exp1
);
854 DEBUG_Printf(DBG_CHN_MESG
,"Unexpected expression.\n");
855 RaiseException(DEBUG_STATUS_INTERNAL_ERROR
, 0, 0, NULL
);
864 * Recursively go through an expression tree and free all memory associated
868 DEBUG_FreeExpr(struct expr
* exp
)
875 DEBUG_FreeExpr(exp
->un
.cast
.expr
);
877 case EXPR_TYPE_INTVAR
:
878 DBG_free((char *) exp
->un
.intvar
.name
);
880 case EXPR_TYPE_US_CONST
:
881 case EXPR_TYPE_CONST
:
883 case EXPR_TYPE_STRING
:
884 DBG_free((char *) exp
->un
.string
.str
);
886 case EXPR_TYPE_SYMBOL
:
887 DBG_free((char *) exp
->un
.symbol
.name
);
889 case EXPR_TYPE_PSTRUCT
:
890 case EXPR_TYPE_STRUCT
:
891 DEBUG_FreeExpr(exp
->un
.structure
.exp1
);
892 DBG_free((char *) exp
->un
.structure
.element_name
);
895 for(i
=0; i
< exp
->un
.call
.nargs
; i
++)
897 DEBUG_FreeExpr(exp
->un
.call
.arg
[i
]);
899 DBG_free((char *) exp
->un
.call
.funcname
);
901 case EXPR_TYPE_BINOP
:
902 DEBUG_FreeExpr(exp
->un
.binop
.exp1
);
903 DEBUG_FreeExpr(exp
->un
.binop
.exp2
);
906 DEBUG_FreeExpr(exp
->un
.unop
.exp1
);
909 DEBUG_Printf(DBG_CHN_MESG
,"Unexpected expression.\n");
910 RaiseException(DEBUG_STATUS_INTERNAL_ERROR
, 0, 0, NULL
);