comment and doc

adesutherland · Dec 24, 2024 · a375e36 · a375e36
1 parent 40c8ab0
commit a375e36
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 14 deletions.
diff --git a/interpreter/rxvmintp.c b/interpreter/rxvmintp.c
@@ -834,14 +834,6 @@ START_OF_INSTRUCTIONS
 #endif
             }
             DISPATCH
-
-            /* String Say - Deprecated */
-            /* START_INSTRUCTION(SSAY_REG) CALC_DISPATCH(1) */
-            /*     DEBUG("TRACE - SSAY (DEPRICATED) R%lu\n", REG_IDX(1)); */
-            /*     mprintf("%.*s", (int) op1R->string_length, op1R->string_value); */
-            /*     DISPATCH */
-
-            /* Say - Print string value of register as a line */
 
         START_INSTRUCTION(SAY_REG) CALC_DISPATCH(1)
             DEBUG("TRACE - SAY R%lu\n", REG_IDX(1));

diff --git a/lib/rxfnsb/rexx/fileio.rexx b/lib/rxfnsb/rexx/fileio.rexx
@@ -7,17 +7,20 @@ import _rxsysb
 
 /* REXX Lineout BIF */
 lineout: procedure = .int
-    arg fname = .string, line = .string
+    arg fname = .string, line = ""
 
     if ?line then do
         /* line specified - open file */
         nl = '0a'x
 
-      /* if length(fname)=0 then do */
-      /* 	/\* no file specified, use stdout *\/ */
-      /* 	assembler sayx line */
-      /* 	return 0 */
-      /* end */
+      say '----> in lineout before'
+      if length(fname)=0 then do
+	/* no file specified, use stdout */
+	assembler sayx line
+	say '----> in lineout before return'
+	return 0
+      end
+      say '----> in lineout after sayx'
 
       fileid = _open(fname, "w")
       if fileid = 0 then say "ERROR lineout() file" fname "could not open"