[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.15 and 1.19

version 1.15, 2025/04/30 14:41:03 version 1.19, 2026/01/16 20:31:56
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.19  2026/01/16 20:31:56  snw
    *   Fix LBLUNDEF error on reverse $QUERY
    *
    *   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   *   Revision 1.15  2025/04/30 14:41:03  snw
  *   Further debugger work   *   Further debugger work
  *   *
Line 159 Line 171
 #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 2317  f20: Line 2329  f20:
   
                         /* set up for calling into polyfill wrapper */                          /* set up for calling into polyfill wrapper */
                         code[0] = '\201';                          code[0] = '\201';
                         stcpy (code, "$^%ZREVQRY\201");                          stcpy (code, "$%ZREVQRY^%ZREVQRY\201");
   
                         codptr = code;                          codptr = code;
   
Line 2987  f20: Line 2999  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);
Removed from v.1.15  
changed lines
  Added in v.1.19

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