CKTfndMod(), express error return value outside of this function

src/frontend/spiceif.c

@@ -625,6 +625,7 @@ finddev_special(
     // assert(second && *second == -1)
     // assert(third && *third == NULL)
     err = ft_sim->findModel (ckt, &type, modptr, name);
+    err = *modptr ? OK : E_NOMOD;
     if (err == OK) {
         *device_or_model = 1;
         return (type);
@@ -1225,6 +1226,7 @@ finddev(CKTcircuit *ckt, char *name, GENinstance **devptr, GENmodel **modptr)
     // assert(second && *second == -1)
     // assert(third && *third == NULL)
     err = ft_sim->findModel (ckt, &type, modptr, name);
+    err = *modptr ? OK : E_NOMOD;
     if (err == OK)
         return (type);
 

src/spicelib/analysis/cktmcrt.c

@@ -26,6 +26,7 @@ CKTmodCrt(CKTcircuit *ckt, int type, GENmodel **modfast, IFuid name)
     // assert(second)
     // assert(third && *third == NULL)
     error = CKTfndMod(ckt, &type, &mymodfast, name);
+    error = mymodfast ? OK : E_NOMOD;
     if(error == E_NOMOD) {
         mymodfast = (GENmodel *) tmalloc((size_t) *(DEVices[type]->DEVmodSize));
         if(mymodfast == NULL) return(E_NOMEM);

src/spicelib/devices/urc/urcsetup.c

@@ -311,6 +311,7 @@ URCunsetup(GENmodel *inModel, CKTcircuit *ckt)
             // assert(second && *second == -1)
             // assert(third && *third == NULL)
 	    error = CKTfndMod(ckt, &type, &modfast, varUid);
+            error = modfast ? OK : E_NOMOD;
 	    if (error)
 		return error;
 
@@ -330,6 +331,7 @@ URCunsetup(GENmodel *inModel, CKTcircuit *ckt)
             // assert(second && *second == -1)
             // assert(third && *third == NULL)
 	    error = CKTfndMod(ckt, &type, &modfast, varUid);
+            error = modfast ? OK : E_NOMOD;
 	    if (error)
 		return error;
 

src/tclspice.c

@@ -1400,6 +1400,7 @@ get_mod_param TCL_CMDPROCARGS(clientData, interp, argc, argv)
         // assert(second && *second == -1)
         // assert(third && *third == NULL)
         err = ft_sim->findModel (ft_curckt->ci_ckt, &typecode, &modptr, name);
+        err = modptr ? OK : E_NOMOD;
     } else {
         typecode = devptr->GENmodPtr->GENmodType;
         err = OK;