--- freem/src/global_bltin.c	2025/04/09 19:52:02	1.14
+++ freem/src/global_bltin.c	2025/04/10 01:24:38	1.15
@@ -1,5 +1,5 @@
 /*
- *   $Id: global_bltin.c,v 1.14 2025/04/09 19:52:02 snw Exp $
+ *   $Id: global_bltin.c,v 1.15 2025/04/10 01:24:38 snw Exp $
  *    freem database engine
  *
  *  
@@ -24,6 +24,9 @@
  *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
  *
  *   $Log: global_bltin.c,v $
+ *   Revision 1.15  2025/04/10 01:24:38  snw
+ *   Remove C++ style comments
+ *
  *   Revision 1.14  2025/04/09 19:52:02  snw
  *   Eliminate as many warnings as possible while building with -Wall
  *
@@ -86,7 +89,6 @@ static void scanpblk (char *block, long
 static void scandblk (char *block, long *adr, long *fnd);
 static void getnewblk (int filedes, unsigned long *blknbr);
 static short int g_collate (char *t);
-//static short int g_numeric (char *str);
 short g_numeric (char *str);
 void close_all_globals(void);
 static void panic (void);
@@ -643,6 +645,8 @@ void global_bltin (short action, char *k
     register long int k;
     register long int ch;
 
+    j = 0;
+    
     hdr_offset = sizeof (global_header);
     
     /* process optional limitations */
@@ -1151,7 +1155,6 @@ tfast2:
             if (typ == EMPTY) {
                 
                 if (blknbr == ROOT) {
-                    //close (filedes);
                     gbl_close (g);
                     goto reopen;
                 }
@@ -3661,7 +3664,6 @@ static short int g_collate (char *t)
 /*
  * test whether 'str' is canonical
  */
-//static short int g_numeric (char *str)
 short g_numeric (char *str)
 {
     register int ptr = 0, ch;