+2022-05-30 Gaius Mulley <gaius.mulley@southwales.ac.uk>
+
+ * gm2-compiler/M2Options.def (cflag): New boolean.
+ (Setc) New procedure. (Getc) New procedure function.
+ * gm2-compiler/M2Options.mod (Setc): New procedure.
+ (Getc) New procedure function. Initialize cflag to
+ FALSE.
+ * gm2-gcc/m2options.h (Setc): New external function.
+ (Getc) New external function.
+ * gm2-lang.cc: Handle OPT_c and call M2Options_Setc.
+ * lang-specs.h: Remove all link rules for m2.
+ * lang.opt: Allow m2 to process the -c option.
+ * All m2 linking is disabled.
+
2022-05-20 Gaius Mulley <gaius.mulley@southwales.ac.uk>
* m2pp.cc: (Renamed from m2pp.c). Comments tidied up.
SetWholeValueCheck, GetWholeValueCheck,
SetLowerCaseKeywords,
SetIndex, SetRange, SetWholeDiv, SetStrictTypeChecking,
+ Setc, Getc,
Iso, Pim, Pim2, Pim3, Pim4,
PositiveModFloorDiv,
VAR
+ cflag, (* -c flag present? *)
Iso, (* -fiso use ISO SYSTEM.def *)
Pim, (* -fpim use PIM [234] SYSTEM.def *)
Pim2, (* -fpim2 use strict rules. *)
PROCEDURE DisplayVersion (mustExit: BOOLEAN) ;
+(*
+ Setc - set the cflag (compile only flag -c) to value.
+*)
+
+PROCEDURE Setc (value: BOOLEAN) ;
+
+
+(*
+ Getc - get the cflag (compile only flag -c).
+*)
+
+PROCEDURE Getc () : BOOLEAN ;
+
+
(*
SetWholeProgram - sets the WholeProgram flag (-fwhole-program).
*)
END GetCpp ;
+(*
+ Setc - set the cflag (compile only flag -c) to value.
+*)
+
+PROCEDURE Setc (value: BOOLEAN) ;
+BEGIN
+ cflag := value
+END Setc ;
+
+
+(*
+ Getc - get the cflag (compile only flag -c).
+*)
+
+PROCEDURE Getc () : BOOLEAN ;
+BEGIN
+ RETURN cflag
+END Getc ;
+
+
(*
SetM2g - returns TRUE if the -fm2-g flags was used.
*)
BEGIN
+ cflag := FALSE ; (* -c. *)
CppArgs := InitString ('') ;
CppProgram := InitString ('') ;
Pim := TRUE ;
EXTERN int M2Options_GetFloatValueCheck (void);
EXTERN int M2Options_GetWholeValueCheck (void);
+EXTERN void M2Options_Setc (int value);
+EXTERN int M2Options_Getc (void);
+
EXTERN void M2Options_SetAutoInit (int value);
EXTERN void M2Options_SetPositiveModFloor (int value);
EXTERN void M2Options_SetNilCheck (int value);
switch (code)
{
-
+ case OPT_c:
+ M2Options_Setc (value);
+ return 1;
case OPT_I:
if (insideCppArgs)
{
#include "m2-link-support.h"
-#if !defined(MODULA_PROJECT_SUPPORT)
-# define MODULA_PROJECT_SUPPORT " "
-#endif
-
-#if !defined(MODULA_LINK_SUPPORT)
-# define MODULA_LINK_SUPPORT " "
-#endif
-
#if !defined(M2CPP)
# define M2CPP " "
#endif
{".mod", "@modula-2", 0, 0, 0},
- // {".m2l", "@modula-2-linker", 0, 0, 0},
{"@modula-2",
- "%{c:" MODULA_PROJECT_SUPPORT "}"
- "%{c|S:cc1gm2 " M2CPP
- " %(cc1_options) %{f*} %{+e*} %{I*} "
+ "cc1gm2 " M2CPP
+ " %(cc1_options) %{c*} %{f*} %{+e*} %{I*} "
" %{MD} %{MMD} %{M} %{MM} %{MA} %{MT*} %{MF*} %V"
" %{save-temps*}"
- " %i %{!fsyntax-only:%(invoke_as)}}"
- MODULA_LINK_SUPPORT ,
+ " %i %{!fsyntax-only:%(invoke_as)}",
0, 0, 0},
Modula-2
; Documented in c.opt
+c
+Modula-2
+; Documented in c.opt
+
fiso
Modula-2
use ISO dialect of Modula-2
along with GCC; see the file COPYING3. If not see
<http://www.gnu.org/licenses/>. */
-
/* The subprograms used by Modula-2 to facilitate linking are:
gm2l - parses the top level module and all other dependent
modules. It creates a dependency tree and emits a list
+2022-05-20 Gaius Mulley <gaius.mulley@southwales.ac.uk>
+
+ * link/externalscaffold: (New regression test). Manual
+ linking test using external scaffold.
+
2021-07-07 Gaius Mulley <gaius.mulley@southwales.ac.uk>
* calling-c/datatypes/unbounded/run/pass/c.c: New file.
--- /dev/null
+MODULE hello ;
+
+FROM libc IMPORT printf ;
+
+BEGIN
+ printf ("hello world\n")
+END hello.
--- /dev/null
+# Expect driver script for GCC Regression Tests
+# Copyright (C) 2022 Free Software Foundation, Inc.
+
+# This program 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 of the License, or
+# (at your option) any later version.
+#
+# This program 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.
+#
+# You should have received a copy of the GNU General Public License
+# along with GCC; see the file COPYING3. If not see
+# <http://www.gnu.org/licenses/>.
+
+# This file was written by Gaius Mulley (gaius.mulley@southwales.ac.uk)
+# for GNU Modula-2.
+
+if $tracelevel then {
+ strace $tracelevel
+}
+
+# load support procs
+load_lib gm2-torture.exp
+
+gm2_init_pim "${srcdir}/gm2/pim/pass"
+gm2_link_with scaffold.o
+set output [target_compile $srcdir/$subdir/scaffold.c scaffold.o object "-g"]
+
+foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.mod]] {
+ # If we're only testing specific files and this isn't one of them, skip it.
+ if ![runtest_file_p $runtests $testcase] then {
+ continue
+ }
+
+ gm2-torture-execute $testcase "" "pass"
+}
--- /dev/null
+extern void exit(int);
+
+extern void _M2_SYSTEM_init (int argc, char *argv[]);
+extern void _M2_SYSTEM_finish (void);
+extern void _M2_M2RTS_init (int argc, char *argv[]);
+extern void _M2_M2RTS_finish (void);
+extern void _M2_RTExceptions_init (int argc, char *argv[]);
+extern void _M2_RTExceptions_finish (void);
+extern void _M2_hello_init (int argc, char *argv[]);
+extern void _M2_hello_finish (void);
+
+extern void M2RTS_Terminate(void);
+
+static void init (int argc, char *argv[])
+{
+ _M2_SYSTEM_init (argc, argv);
+ _M2_M2RTS_init (argc, argv);
+ _M2_RTExceptions_init (argc, argv);
+ _M2_hello_init (argc, argv);
+}
+
+static void finish (void)
+{
+ M2RTS_Terminate ();
+ _M2_hello_finish ();
+ _M2_RTExceptions_finish ();
+ _M2_M2RTS_finish ();
+ _M2_SYSTEM_finish ();
+ exit (0);
+}
+
+int main (int argc, char *argv[])
+{
+ init (argc, argv);
+ finish ();
+ return (0);
+}
projects / thirdparty / gcc.git / commitdiff
