[BACK]Return to expr.c CVS log [TXT] [DIR] Up to [Coherent Logic Development] / freem / src

Diff for /freem/src/expr.c between versions 1.13 and 1.18

version 1.13, 2025/04/13 04:22:43 version 1.18, 2025/05/02 16:30:16
Line 24 Line 24
  *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.   *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
  *   *
  *   $Log$   *   $Log$
    *   Revision 1.18  2025/05/02 16:30:16  snw
    *   Fix broken build due to time issues
    *
    *   Revision 1.17  2025/05/01 03:56:29  snw
    *   -m
    *
    *   Revision 1.16  2025/04/30 20:03:09  snw
    *   Work on entryref parser
    *
    *   Revision 1.15  2025/04/30 14:41:03  snw
    *   Further debugger work
    *
    *   Revision 1.14  2025/04/14 23:20:23  snw
    *   Restore support for any 8-bit character in
    *
  *   Revision 1.13  2025/04/13 04:22:43  snw   *   Revision 1.13  2025/04/13 04:22:43  snw
  *   Fix snprintf calls   *   Fix snprintf calls
  *   *
Line 153 Line 168
 #define GET               'Y'  #define GET               'Y'
 #define GETX              ':'  #define GETX              ':'
   
 #if !defined(__OpenBSD__) && !defined(_AIX) && !defined(__osf__) && !defined(MSDOS) && !defined(__vax__) && !defined(__OS2__)  #if !defined(__OpenBSD__) && !defined(_AIX) && !defined(__osf__) && !defined(MSDOS) && !defined(__vax__) && !defined(__OS2__) && !defined(__linux__)
 long    time ();  long    time ();
 #endif  #endif
 void cond_round (char *a, int digits);  void cond_round (char *a, int digits);
Line 1688  uparrow: Line 1703  uparrow:
                 case 'c':           /* $CHARACTER */                  case 'c':           /* $CHARACTER */
   
                     {                                              {                        
                         char chrtmp[256];  
                         long pnum;  
                         short l, l1, m, n;                          short l, l1, m, n;
   
                         l1 = f;                          l1 = f;
Line 1700  uparrow: Line 1713  uparrow:
                         n = 1;                          n = 1;
                         l = 0;                          l = 0;
   
                         stcpy (chrtmp, a);  
                         stcnv_m2c (chrtmp);  
                         pnum = atol (chrtmp);  
   
                         if (pnum > 127) {  
                             merr_raise (MXNUM);  
                             return;  
                         }  
                                                   
                         for (;;) {                          for (;;) {
                                                           
Line 2992  f20: Line 2997  f20:
                         long l1, rouoldc;                          long l1, rouoldc;
                         short reload = FALSE;                          short reload = FALSE;
   
                           /*
                           printf ("a = %s f = %d arg = %d\r\n", a, f, arg);
                           for (i = arg; i < arg + f; i++) {
                               printf ("argstck[%d] = '%s'\r\n", i, argstck[i]);
                           }
   
                           for (i = 0; i < strlen (a); i++) 
                               printf ("%c = %d\r\n", a[i], (unsigned char) a[i]);
                           */
                           
                         if (f > 3) {                          if (f > 3) {
                             merr_raise (FUNARG);                              merr_raise (FUNARG);
                             return;                              return;
Removed from v.1.13  
changed lines
  Added in v.1.18

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>