Time: fix sci_xpause after eb22dd99 40/17940/1
Paul Bignier [Thu, 17 Mar 2016 10:45:04 +0000 (11:45 +0100)]
Change-Id: Iaca090b34ae0beafac3289a9427bc6e666521d8d

scilab/modules/time/sci_gateway/c/sci_xpause.c

index 824bcfb..6348ad1 100644 (file)
 #endif
 #include "gw_time.h"
 #include "api_scilab.h"
+#include "sciprint.h"
 #include "Scierror.h"
 #include "localization.h"
 /*--------------------------------------------------------------------------*/
 int sci_xpause(char *fname, void* pvApiCtx)
 {
 
-    sciprint(_("%s: Feature %s is obsolete and will be permanently removed in Scilab %s\n"), _("Warning"), fname, "6.1");
-    sciprint(_("%s: Please use %s instead.\n"), _("Warning"), "sleep()");
-
     SciErr sciErr;
     int m1 = 0, n1 = 0, sec = 0;
     int * p1_in_address = NULL;
     double * pDblReal = NULL;
 
+    sciprint(_("%s: Feature %s is obsolete and will be permanently removed in Scilab %s\n"), _("Warning"), fname, "6.1");
+    sciprint(_("%s: Please use %s instead.\n"), _("Warning"), "sleep()");
+
     CheckLhs(0, 1);
     CheckRhs(1, 1);
 
     if (Rhs == 1)
     {
         sciErr = getVarAddressFromPosition(pvApiCtx, 1, &p1_in_address);
+        if (sciErr.iErr)
+        {
+            printError(&sciErr, 0);
+            return 0;
+        }
         sciErr = getMatrixOfDouble(pvApiCtx, p1_in_address, &m1, &n1, &pDblReal);
+        if (sciErr.iErr)
+        {
+            printError(&sciErr, 0);
+            return 0;
+        }
 
         if (isScalar(pvApiCtx, p1_in_address) == 0)
         {