hi!

tecs/err_handling.c

@@ -89,23 +89,26 @@ void ErrSetOutFile(FILE *arg) {
   outarg=arg;
 }
 
+void ERR_EXIT(char *text) {
+  ErrWrite(text); exit(1);
+}
+
+void ErrShowFtn_(char *text, int length) {
+  char buf[256];
+
+  if (length>=256) length=255;
+  strncpy(buf, text, length);
+  buf[length]='\0';  
+  ErrWrite(buf);
+}
+
 #ifdef __VMS
 
 typedef struct { short size, dummy; char *text; } Desc;
 
-void ErrShowVms(Desc *desc) {
-  char buf[256];
-  int l;
-
-  l=desc->size;
-  if (l>=256) l=255;
-  strncpy(buf, desc->text, l);
-  buf[l]='\0';  
-  ErrWrite(buf);
+void ErrShowFtn(Desc *desc) {
+  ErrShowFtn_(desc->text, desc->size);
 }
 
 #endif
 
-void ERR_EXIT(char *text) {
-  ErrWrite(text); exit(1);
-}