2009-11-28 Basile Starynkevitch <basile@starynkevitch.net>

	secondary C file generation seems to work.
	* gcc/testsuite/melt/tmultifil.melt: added new file.
	* gcc/melt-runtime.h (melt_output_cfile_decl_impl_secondary): new
	declaration.
	(melt_output_cfile_decl_impl) inlined function.
	* gcc/melt-runtime.c (melt_output_cfile_decl_impl) renamed as
	(melt_output_cfile_decl_impl_secondary) and handle filrank
	argument.
	* gcc/melt/warmelt-outobj.melt: some components of secfiles can be
	nil. Calling melt_output_cfile_decl_impl_secondary.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@154723 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 58 insertions, 0 deletions

diff --git a/gcc/testsuite/melt/tmultifil.melt b/gcc/testsuite/melt/tmultifil.melt
new file mode 100644
index 00000000000..802872faa0c
--- /dev/null
+++ b/gcc/testsuite/melt/tmultifil.melt
@@ -0,0 +1,58 @@
+; -*- lisp -*-
+;; file tmutltifil.melt
+
+;; test the ability to generate secondary C files when having many functions
+
+#| run in buildir/gcc
+ ./cc1 -fmelt=translatefile  -fmelt-module-path=.    \
+    -fmelt-source-path=.:$GCCMELTSOURCE/gcc/melt \
+    -fmelt-compile-script=./built-melt-cc-script \
+    -fmelt-tempdir=/tmp -fmelt-init=@warmelt2 \
+    -fmelt-single-c-file=no \
+    -fmelt-arg=$GCCMELTSOURCE/gcc/testsuite/melt/tmultifil.melt \
+    -fmelt-debug empty-file-for-melt.c
+|#
+
+(defun f00 (g x) (g x 0))
+
+(defun f01 (g x) (g x 1))
+
+(defun f02 (g x) (g x 2))
+
+(defun f03 (g x) (g x 3))
+
+(defun f04 (g x) (g x 4))
+
+(defun f05 (g x) (g x 5))
+
+(defun f06 (g x) (g x 6))
+
+(defun f07 (g x) (g x 7))
+
+(defun f08 (g x) (g x 8))
+
+(defun f09 (g x) (g x 9))
+
+(defun f10 (g x) (g x 10))
+
+(defun f11 (g x) (g x 11))
+
+(defun f12 (g x) (g x 12))
+
+(defun f13 (g x) (g x 13))
+
+(defun f14 (g x) (g x 14))
+
+(defun f15 (g x) (g x 15))
+
+(defun f16 (g x) (g x 16))
+
+(defun f17 (g x) (g x 17))
+
+(defun f18 (g x) (g x 18))
+
+(defun f19 (g x) (g x 19))
+
+(defun f20 (g x) (g x 20))
+
+;;; eof tmultifil.melt
\ No newline at end of file