X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=mono%2Fcil%2Fmake-opcodes-def.pl;h=4a4c8cf55b8b212d80417fbf93e2fa7138c305b8;hb=HEAD;hp=a94c15778cac608d1f83d9d1e23421d0de139da9;hpb=0abc2e6270020edc4a5b4c66f93b4ae582815f20;p=mono.git

diff --git a/mono/cil/make-opcodes-def.pl b/mono/cil/make-opcodes-def.pl
index a94c15778ca..4a4c8cf55b8 100644
--- a/mono/cil/make-opcodes-def.pl
+++ b/mono/cil/make-opcodes-def.pl
@@ -22,6 +22,7 @@ my %valid_flow;
 open OUTPUT, ">$ARGV[1]" || die "Can not create $ARGV[1] file: $!";
 
 my $parser = new XML::Parser (Handlers => {Start => \&handle_opcode});
+print_header();
 $parser->parsefile($ARGV[0]);
 print_trailer();
 close(OUTPUT) || die "Can not close file: $!";
@@ -53,6 +54,12 @@ sub handle_opcode {
     
 }
 
+sub print_header {
+print OUTPUT<<EOF;
+/* GENERATED FILE, DO NOT EDIT */
+EOF
+}
+
 sub print_trailer {
 print OUTPUT<<EOF;
 #ifndef OPALIAS