freem/src/routine.c - diff

Return to routine.c CVS log

Up to [Coherent Logic Development] / freem / src

-version 1.7, 2025/04/30 14:41:03
+version 1.8, 2025/04/30 17:19:16
  Line 24
   *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
   *
   *   $Log$
+  *   Revision 1.8  2025/04/30 17:19:16  snw
+  *   Improve backtraces in debugger
+  *
   *   Revision 1.7  2025/04/30 14:41:03  snw
   *   Further debugger work
   *
- Line 1148  void lineref (char **adrr)
+ Line 1151  void lineref (char **adrr)
      return;
  }                                       /* end of lineref() */
+ char *m_text(char *lref, char *buf)
+ {
+     char *old_codptr;
+     char old_code[STRLEN];
+     old_codptr = codptr;
+     stcpy (old_code, code);
+     sprintf (code, "$TEXT(%s)\201", lref);
+     codptr = code;
+     expr (STRING);
+     if (merr () != OK) {
+         stcpy (code, old_code);
+         codptr = old_codptr;
+         return (char *) NULL;
+     }
+     stcpy (buf, argptr);
+     stcpy (code, old_code);
+     codptr = old_codptr;
+     return buf;
+ }
  #if 0
  char *routine_get_line(char *lref, char *buf)
  {