diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-23 14:05:58 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-23 14:05:58 +0000 |
| commit | b00e31a85d48acfbf3c7bac23df1822c9ba7c86d (patch) | |
| tree | ec729e56cab341ae5cb54e9cbf286b5ab45ec5b8 /gcc/melt/warmelt-outobj.melt | |
| parent | f6fc17d03f28a94e35a53d0562595ea179ae2629 (diff) | |
| download | gcc-b00e31a85d48acfbf3c7bac23df1822c9ba7c86d.tar.gz | |
2014-01-23 Basile Starynkevitch <basile@starynkevitch.net>
* melt/warmelt-first.melt (class_any_module_context): Add
mocx_isgplcompatible field.
* melt/warmelt-macro.melt (class_source_module_is_gpl_compatible):
New class.
(module_is_gpl_compatible): New macro.
(mexpand_module_is_gpl_compatible): New macro-expanding function.
* melt/warmelt-normal.melt (normexp_module_is_gpl_compatible): New
method for normal_exp on normexp_module_is_gpl_compatible...
* melt/warmelt-outobj.melt (compile_list_sexpr)
(compile_first_bootstrap_list_sexpr)
(melt_translate_run_macroexpansions_list): Initialize field
:mocx_isgplcompatible to nil.
* melt/warmelt-modes.melt (makedoc_docmd): Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@206965 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/warmelt-outobj.melt')
| -rw-r--r-- | gcc/melt/warmelt-outobj.melt | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/melt/warmelt-outobj.melt b/gcc/melt/warmelt-outobj.melt index ac89ccb4825..f7ff4b9a3d4 100644 --- a/gcc/melt/warmelt-outobj.melt +++ b/gcc/melt/warmelt-outobj.melt @@ -6944,6 +6944,7 @@ if (1) return; :mocx_varlist (make_list discr_list) :mocx_hookdict (make_mapstring discr_map_strings 31) :mocx_macrolist (make_list discr_list) + :mocx_isgplcompatible () )) (ncx (create_normcontext modctx)) ) @@ -7019,6 +7020,7 @@ if (1) return; :mocx_varlist (make_list discr_list) :mocx_hookdict (make_mapstring discr_map_strings 31) :mocx_macrolist () ;; no macro list because macros are forbidden in first + :mocx_isgplcompatible () )) (ncx (create_normcontext modctx)) ) @@ -7336,6 +7338,7 @@ if (1) return; :mocx_gendevlist (make_list discr_list) :mocx_macrolist (make_list discr_list) :mocx_errorhandler runerrorhdlr + :mocx_isgplcompatible () :morcx_litervalist litvalist :morcx_countlitval (make_integerbox discr_integer 1) :morcx_literobjmap (make_mapobject discr_map_objects 53) @@ -7630,6 +7633,7 @@ if (1) return; :mocx_varlist (make_list discr_list) :mocx_hookdict (make_mapstring discr_map_strings 31) :mocx_macrolist (make_list discr_list) + :mocx_isgplcompatible () ;; :mocx_cflags (make_list discr_list) ;; :mocx_linkflags (make_list discr_list) :mocx_packagepclist (make_list discr_list) |