*** empty log message ***

src/exp/com/src/os_vms/pwr_repl.com

+$!
+$!
+$!	p1 : volym
+$!	p2 : fil
+$!
+$!	RENAME
+$!
+$! 	File dutil_src:rename.com
+$!
+$!	Modified	CS	97 04 10 	Skapad
+$!
+$!	ndra namn p objekt.
+$!
+$ on error then goto error_exit
+$ say := write sys$output
+$
+$ cmdfile = "sys$login:tmp_rename.tpu"
+$
+$ filecnt = 0
+$LC_NextFile:
+$ open/write/error=L_WriteFileError cf 'cmdfile'
+$ oldname = p2
+$ newname = p3
+$
+$! say "rename of:  ''oldname' -> ''newname'"
+$ write cf "POSITION(SEARCH(BUFFER_BEGIN,REVERSE));"
+$ write cf -
+  "eve_global_replace( ''''"+"''oldname'"+"'''',''''"+"''newname'"+"'''');"
+$ write cf "eve_exit;"
+$ close cf
+$
+$ edit/tpu/command='cmdfile'/nodisplay 'p1'
+$! delete/nolog/noconfirm 'cmdfile'.*
+$
+$ exit
+$
+$L_WriteFileError:
+$ say "Error, Unable to open file ''cmdfile'"
+$ close rf
+$ exit
+$
+$
+$
+$error_exit:
+$ say "Exekveringen termineras pga fel"
+$ exit
+$

src/lib/co/src/co_dbs.c

@@ -156,8 +156,6 @@ void *dbs_Bfind(pwr_tStatus *sts, const dbs_sEnv *ep, dbs_sBintab *tp, void *key
     char *end   = dbs_Address(sts, ep, tp->end);
     int   rsize = tp->rsize;
 
-    
-    
     while (start <= end) {
         p = start + ((end - start) / (2*rsize)) * rsize;
         c = comp(key, p);
@@ -824,6 +822,9 @@ dbs_Child(pwr_tStatus *sts, const dbs_sEnv *ep, dbs_sObject *op, char *name)
     dbs_sName n;
     dbs_sName *np;
 
+    if ( !op->name_bt.start)
+      return NULL;
+    
     n.poix = op->oid.oix;
     strcpy(n.normname, name);