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

Diff for /freem/src/fma_globals.c between versions 1.1.1.1 and 1.2

version 1.1.1.1, 2025/01/19 02:04:04 version 1.2, 2025/02/28 22:31:53
Line 54  void gl (char *global, short kf, short d Line 54  void gl (char *global, short kf, short d
 int gverify (char *gpath);  int gverify (char *gpath);
 static short int g_collate ();                  /* if 't' follows 's' in MUMPS collating */  static short int g_collate ();                  /* if 't' follows 's' in MUMPS collating */
 int key_check (char *key);  int key_check (char *key);
 void check ();  void check (unsigned long blknbr);
 void show ();  static short int g_collate (char s[], char t[]);                        /* if 't' follows 's' in MUMPS collating */
   void show (char key[]);
   
 /* global variables for gverify */  /* global variables for gverify */
 short   filedes;                        /* file descriptor */  short   filedes;                        /* file descriptor */
Line 1008  showpath () Line 1009  showpath ()
         for (i = 0; i < level; i++)          for (i = 0; i < level; i++)
             printf ("  path level(%d)=%ld\012\015", i, llink[i]);              printf ("  path level(%d)=%ld\012\015", i, llink[i]);
     if (++exstat >= ERRLIM) {      if (++exstat >= ERRLIM) {
         fprintf (stderr, "Error limit exceeded (%hd errors)\012\015", exstat, ERRLIM);          fprintf (stderr, "Error limit exceeded (%hd errors)\012\015", exstat);
         return;          return;
     }      }
     return;      return;
Line 1044  int key_check (char *key)    /* checks a Line 1045  int key_check (char *key)    /* checks a
     return 0;      return 0;
 }                                       /* end key_check */  }                                       /* end key_check */
 /******************************************************************************/  /******************************************************************************/
 static short int  static short int g_collate (char s[], char t[])                 /* if 't' follows 's' in MUMPS collating */
 g_collate (s, t)                        /* if 't' follows 's' in MUMPS collating */  
         char    s[];                    /* sequence a TRUE is returned           */  
         char    t[];  
   
 {  {
     register int chs = *s;      register int chs = *s;
     register int cht = *t;      register int cht = *t;
Line 1149  g_collate (s, t)   /* if 't' follows 's' Line 1146  g_collate (s, t)   /* if 't' follows 's'
     return dif > 0;      return dif > 0;
 }                                       /* end g_collate */  }                                       /* end g_collate */
 /******************************************************************************/  /******************************************************************************/
 void  void show (char key[])
 show (key)  
         char    key[];                  /* key in internal format to be expanded and shown */  
 {  {
     int     k,      int     k,
             ch,              ch,
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

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