# Autoconf inserts -DCROSS_DIRECTORY_STRUCTURE if we are building a
# cross compiler and the ../Makefile.in above appends this to INTERNAL_CFLAGS.
-m2/gm2config.h:
+m2/gm2config.h: m2/gm2config.aci
+ grep -v define\ PACKAGE_ $< > $@
+
+m2/gm2config.aci:
NEW_SRCDIR=`${srcdir}/m2/tools-src/calcpath ../ ${srcdir} m2` ; \
export NEW_SRCDIR ; \
cd m2 ; \
fi
-ac_config_headers="$ac_config_headers gm2config.h"
+ac_config_headers="$ac_config_headers gm2config.aci"
cat >confcache <<\_ACEOF
# This file is a shell script that caches the results of configure
for ac_config_target in $ac_config_targets
do
case $ac_config_target in
- "gm2config.h") CONFIG_HEADERS="$CONFIG_HEADERS gm2config.h" ;;
+ "gm2config.aci") CONFIG_HEADERS="$CONFIG_HEADERS gm2config.aci" ;;
*) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;;
esac
case $ac_file$ac_mode in
- "gm2config.h":H) echo timestamp > stamp-h ;;
+ "gm2config.aci":H) echo timestamp > stamp-h ;;
esac
done # for ac_tag
-# configure.ac provides gm2spec.c with access to config values.
+# configure.ac provides gm2spec.cc with access to config values.
# Copyright (C) 2001-2023 Free Software Foundation, Inc.
# Contributed by Gaius Mulley <gaius.mulley@southwales.ac.uk>.
AC_CHECK_HEADERS(sys/types.h)
AC_HEADER_DIRENT
AC_CHECK_LIB([c],[opendir],[AC_DEFINE([HAVE_OPENDIR],[1],[found opendir])])
-AC_CONFIG_HEADERS(gm2config.h, [echo timestamp > stamp-h])
+AC_CONFIG_HEADERS(gm2config.aci, [echo timestamp > stamp-h])
AC_OUTPUT
lists.
*)
+(*
PROCEDURE AddSymToWatch (sym: WORD) ;
BEGIN
IF (sym#NulSym) AND (NOT IsElementInSet(WatchList, sym))
FIO.FlushBuffer(FIO.StdOut)
END
END AddSymToWatch ;
+*)
(*
PROCEDURE BuildConstHighFromSym (tok: CARDINAL) ;
VAR
- Dim,
NoOfParam,
ReturnVar: CARDINAL ;
BEGIN
PopT (NoOfParam) ;
ReturnVar := MakeTemporary (tok, ImmediateValue) ;
- Dim := OperandD (1) ;
- INC (Dim) ;
GenHigh (tok, ReturnVar, 1, OperandT (1)) ;
PopN (NoOfParam+1) ;
PushTtok (ReturnVar, tok)
Sym, Type,
Ref : CARDINAL ;
BEGIN
+ BuildStmtNoteTok (withTok) ;
DisplayStack ;
PopTFtok (Sym, Type, tok) ;
Type := SkipType (Type) ;
PROCEDURE BuildStmtNote (offset: INTEGER) ;
VAR
- filename: Name ;
- f : QuadFrame ;
- i : INTEGER ;
+ tokenno: INTEGER ;
BEGIN
IF NextQuad#Head
THEN
- f := GetQF (NextQuad-1) ;
- i := offset ;
- INC (i, GetTokenNo ()) ;
- (* no need to have multiple notes at the same position. *)
- IF (f^.Operator # StatementNoteOp) OR (f^.Operand3 # VAL (CARDINAL, i))
- THEN
- filename := makekey (string (GetFileName ())) ;
- GenQuad (StatementNoteOp, WORD (filename), NulSym, i)
- END
+ tokenno := offset ;
+ INC (tokenno, GetTokenNo ()) ;
+ BuildStmtNoteTok (VAL(CARDINAL, tokenno))
END
END BuildStmtNote ;
(*
+ BuildStmtNoteTok - adds a nop (with an assigned tokenno location) to the code.
+*)
+
+PROCEDURE BuildStmtNoteTok (tokenno: CARDINAL) ;
+VAR
+ filename: Name ;
+ f : QuadFrame ;
+BEGIN
+ f := GetQF (NextQuad-1) ;
+ (* no need to have multiple notes at the same position. *)
+ IF (f^.Operator # StatementNoteOp) OR (f^.Operand3 # tokenno)
+ THEN
+ filename := makekey (string (GetFileName ())) ;
+ GenQuad (StatementNoteOp, WORD (filename), NulSym, tokenno)
+ END
+END BuildStmtNoteTok ;
+
+
+(*
AddRecordToList - adds the record held on the top of stack to the
list of records and varient fields.
*)
# Report bugs to <gm2@nongnu.org>.
#
#
-# Copyright (C) 1992-2023 Free Software Foundation, Inc.
+# Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc.
#
#
# This configure script is free software; the Free Software Foundation
ASCII.def configure 1.9.5
generated by GNU Autoconf 2.69
-Copyright (C) 2012-2023 Free Software Foundation, Inc.
+Copyright (C) 2012 Free Software Foundation, Inc.
This configure script is free software; the Free Software Foundation
gives unlimited permission to copy, distribute and modify it.
_ACEOF
configured by $0, generated by GNU Autoconf 2.69,
with options \\"\$ac_cs_config\\"
-Copyright (C) 2012-2023 Free Software Foundation, Inc.
+Copyright (C) 2012 Free Software Foundation, Inc.
This config.status script is free software; the Free Software Foundation
gives unlimited permission to copy, distribute and modify it."
-/* gm2config.h.in. Generated from configure.ac by autoheader. */
+/* gm2config.aci.in. Generated from configure.ac by autoheader. */
/* Define to 1 if you have the <dirent.h> header file, and it defines `DIR'.
*/