--- a/test/code-gen.pl	Wed Dec 28 11:32:22 2005 +0900
+++ b/test/code-gen.pl	Wed Dec 28 15:45:39 2005 +0900
@@ -1,14 +1,29 @@
 #!/usr/bin/perl
 
+my $call;
+
+open(INLINE,">test/code-gen-inline.c");
+
 print "#include \"code-gen.c\"\n";
-print "int main() {\n";
+
+$call .=  "int main() {\n";
 
 while(<>)
 {
-    if (/^\w+\(/) {
-	print "\t$&",");\n";
+    if (/^(\w+)(\(.*)/) {
+	$call .= "\t$1(".");\n";
+	print INLINE "inline $1$2";
     } elsif (/^#/) {
-	print;
+	$call .= $_;
+	print INLINE;
+    } else {
+	print INLINE;
     }
 }
-print "return 0; }\n";
+$call .=  "return 0; }\n";
+
+print $call;
+
+print INLINE $call;
+
+# end