MonetDB: default - Better warning for missing code

[mk]

Changeset: f6822a9347e1 for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=f6822a9347e1
Modified Files:
        MonetDB5/src/mal/mal_resolve.mx
Branch: default
Log Message:

Better warning for missing code
When functions are not properly loaded, we receive a message
during type checking.


diffs (34 lines):

diff -r e1509cdd9f7c -r f6822a9347e1 MonetDB5/src/mal/mal_resolve.mx
--- a/MonetDB5/src/mal/mal_resolve.mx   Mon Jul 05 21:23:49 2010 +0200
+++ b/MonetDB5/src/mal/mal_resolve.mx   Wed Jul 07 11:33:03 2010 +0200
@@ -448,8 +448,9 @@
                switch(getSignature(s)->token){
                case COMMANDsymbol: 
                        p->token = CMDcall; 
-                       p->fcn = getSignature(s)->fcn;
+                       p->fcn = getSignature(s)->fcn;  /* C implementation 
mandatory */
                        if( p->fcn == 0) {
+                               showScriptException( mb, getPC(mb,p), TYPE, 
"Object code missing");
                                p->typechk= TYPE_UNKNOWN;
                                mb->errors++;
                                return -3;
@@ -457,16 +458,16 @@
                        break;
                case PATTERNsymbol: 
                        p->token = PATcall; 
-                       p->fcn = getSignature(s)->fcn;
+                       p->fcn = getSignature(s)->fcn;  /* C implementation 
optional */
                        break;
                case FACTORYsymbol:
                        p->token = FACcall; 
-                       p->fcn = getSignature(s)->fcn;
+                       p->fcn = getSignature(s)->fcn;  /* C implementation 
optional */
                        break;
                case FUNCTIONsymbol: 
                        p->token = FCNcall; 
                        if( getSignature(s)->fcn)
-                               p->fcn = getSignature(s)->fcn;
+                               p->fcn = getSignature(s)->fcn;  /* C 
implementation optional */
                        break;
                default: {
                        if (!silent)
_______________________________________________
Checkin-list mailing list
Checkin-list@monetdb.org
http://mail.monetdb.org/mailman/listinfo/checkin-list