summaryrefslogtreecommitdiff
path: root/gcc/m2/gm2-compiler/M2Options.mod
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/m2/gm2-compiler/M2Options.mod')
-rw-r--r--gcc/m2/gm2-compiler/M2Options.mod21
1 files changed, 21 insertions, 0 deletions
diff --git a/gcc/m2/gm2-compiler/M2Options.mod b/gcc/m2/gm2-compiler/M2Options.mod
index ed606cfeda1..510742c3f2a 100644
--- a/gcc/m2/gm2-compiler/M2Options.mod
+++ b/gcc/m2/gm2-compiler/M2Options.mod
@@ -382,6 +382,26 @@ 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.
*)
@@ -1016,6 +1036,7 @@ END SetSaveTempsDir ;
BEGIN
+ cflag := FALSE ; (* -c. *)
CppArgs := InitString ('') ;
CppProgram := InitString ('') ;
Pim := TRUE ;