diff options
Diffstat (limited to 'gcc/m2/mc-boot/GDebug.c')
| -rw-r--r-- | gcc/m2/mc-boot/GDebug.c | 168 |
1 files changed, 168 insertions, 0 deletions
diff --git a/gcc/m2/mc-boot/GDebug.c b/gcc/m2/mc-boot/GDebug.c new file mode 100644 index 0000000..2f2bf82 --- /dev/null +++ b/gcc/m2/mc-boot/GDebug.c @@ -0,0 +1,168 @@ +/* do not edit automatically generated by mc from Debug. */ +/* Debug.mod provides some simple debugging routines. + +Copyright (C) 2001-2021 Free Software Foundation, Inc. +Contributed by Gaius Mulley <gaius.mulley@southwales.ac.uk>. + +This file is part of GNU Modula-2. + +GNU Modula-2 is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 3, or (at your option) +any later version. + +GNU Modula-2 is distributed in the hope that it will be useful, but +WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +General Public License for more details. + +Under Section 7 of GPL version 3, you are granted additional +permissions described in the GCC Runtime Library Exception, version +3.1, as published by the Free Software Foundation. + +You should have received a copy of the GNU General Public License and +a copy of the GCC Runtime Library Exception along with this program; +see the files COPYING3 and COPYING.RUNTIME respectively. If not, see +<http://www.gnu.org/licenses/>. */ + +#include "config.h" +#include "system.h" +# if !defined (PROC_D) +# define PROC_D + typedef void (*PROC_t) (void); + typedef struct { PROC_t proc; } PROC; +# endif + +#define _Debug_H +#define _Debug_C + +# include "GASCII.h" +# include "GNumberIO.h" +# include "GStdIO.h" +# include "Glibc.h" +# include "GM2RTS.h" + +# define MaxNoOfDigits 12 + +/* + Halt - writes a message in the format: + Module:Line:Message + + It then terminates by calling HALT. +*/ + +extern "C" void Debug_Halt (const char *Message_, unsigned int _Message_high, unsigned int LineNo, const char *Module_, unsigned int _Module_high); + +/* + DebugString - writes a string to the debugging device (Scn.Write). + It interprets + as carriage return, linefeed. +*/ + +extern "C" void Debug_DebugString (const char *a_, unsigned int _a_high); + +/* + WriteLn - writes a carriage return and a newline + character. +*/ + +static void WriteLn (void); + + +/* + WriteLn - writes a carriage return and a newline + character. +*/ + +static void WriteLn (void) +{ + StdIO_Write (ASCII_cr); + StdIO_Write (ASCII_lf); +} + + +/* + Halt - writes a message in the format: + Module:Line:Message + + It then terminates by calling HALT. +*/ + +extern "C" void Debug_Halt (const char *Message_, unsigned int _Message_high, unsigned int LineNo, const char *Module_, unsigned int _Module_high) +{ + typedef struct Halt__T1_a Halt__T1; + + struct Halt__T1_a { char array[MaxNoOfDigits+1]; }; + Halt__T1 No; + char Message[_Message_high+1]; + char Module[_Module_high+1]; + + /* make a local copy of each unbounded array. */ + memcpy (Message, Message_, _Message_high+1); + memcpy (Module, Module_, _Module_high+1); + + Debug_DebugString ((const char *) Module, _Module_high); /* should be large enough for most source files.. */ + NumberIO_CardToStr (LineNo, 0, (char *) &No.array[0], MaxNoOfDigits); + Debug_DebugString ((const char *) ":", 1); + Debug_DebugString ((const char *) &No.array[0], MaxNoOfDigits); + Debug_DebugString ((const char *) ":", 1); + Debug_DebugString ((const char *) Message, _Message_high); + Debug_DebugString ((const char *) "\\n", 2); + M2RTS_HALT (-1); + __builtin_unreachable (); +} + + +/* + DebugString - writes a string to the debugging device (Scn.Write). + It interprets + as carriage return, linefeed. +*/ + +extern "C" void Debug_DebugString (const char *a_, unsigned int _a_high) +{ + unsigned int n; + unsigned int high; + char a[_a_high+1]; + + /* make a local copy of each unbounded array. */ + memcpy (a, a_, _a_high+1); + + high = _a_high; + n = 0; + while ((n <= high) && (a[n] != ASCII_nul)) + { + if (a[n] == '\\') + { + /* avoid dangling else. */ + if ((n+1) <= high) + { + /* avoid gcc warning by using compound statement even if not strictly necessary. */ + if (a[n+1] == 'n') + { + WriteLn (); + n += 1; + } + else if (a[n+1] == '\\') + { + /* avoid dangling else. */ + StdIO_Write ('\\'); + n += 1; + } + } + } + else + { + StdIO_Write (a[n]); + } + n += 1; + } +} + +extern "C" void _M2_Debug_init (__attribute__((unused)) int argc,__attribute__((unused)) char *argv[],__attribute__((unused)) char *envp[]) +{ +} + +extern "C" void _M2_Debug_finish (__attribute__((unused)) int argc,__attribute__((unused)) char *argv[],__attribute__((unused)) char *envp[]) +{ +} |