Update of /cvsroot/monetdb/pathfinder/compiler/mil
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv10968/mil
Modified Files:
milgen.brg
Log Message:
-- Make error message more informative.
U milgen.brg
Index: milgen.brg
===================================================================
RCS file: /cvsroot/monetdb/pathfinder/compiler/mil/milgen.brg,v
retrieving revision 1.126
retrieving revision 1.127
diff -u -d -r1.126 -r1.127
--- milgen.brg 2 Apr 2008 08:35:40 -0000 1.126
+++ milgen.brg 2 Apr 2008 08:48:18 -0000 1.127
@@ -589,14 +589,22 @@
* of attribute (@a att) and type (@a ty) as the search key.
*/
static mvar_t *
+#ifndef NDEBUG
+#define env_mvar(e,a,t) (env_mvar_ ((e), (a), (t), __func__, __LINE__))
+env_mvar_ (const PFarray_t *env, PFalg_att_t att, PFalg_simple_type_t ty,
+ const char *func, const int line)
+#else
env_mvar (const PFarray_t *env, PFalg_att_t att, PFalg_simple_type_t ty)
+#endif
{
mvar_t *mvar = env_mvar_unsafe (env, att, ty);
if (mvar)
return mvar;
#ifndef NDEBUG
- fprintf (stderr, "looking for att: %s, ty: 0x%X\n", PFatt_str (att), ty);
+ fprintf (stderr,
+ "looking for att: %s, ty: 0x%X in function %s (line %i)\n",
+ PFatt_str (att), ty, func, line);
fprintf (stderr, "environment looks like:\n");
for (unsigned int i = 0; i < PFarray_last (env); i++) {
env_t entry = *(env_t *) PFarray_at ((PFarray_t *) env, i);
@@ -607,7 +615,6 @@
}
#endif
- /* FIXME: */ assert(0);
PFoops (OOPS_FATAL,
"attribute '%s' with type '0x%X' not found in environment",
PFatt_str (att), ty);
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://ad.doubleclick.net/clk;164216239;13503038;w?http://sf.net/marketplace
_______________________________________________
Monetdb-pf-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-pf-checkins
