X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=msvc%2Fcreate-windef.pl;h=129314ca64a7c0b5f894069502d3cd2ff1cc78af;hb=7c5b81f99b8196a519922d8e62aebf2c429642f2;hp=b0cd683aa562f77c4455c7e5e705a7a42cc03d59;hpb=00273b2d6235db605f9316ef6012270466005ed9;p=mono.git diff --git a/msvc/create-windef.pl b/msvc/create-windef.pl index b0cd683aa56..129314ca64a 100755 --- a/msvc/create-windef.pl +++ b/msvc/create-windef.pl @@ -3,13 +3,19 @@ use strict; my $outfile = shift || usage (); +my $soname = shift || usage (); +my $dllname = shift || usage (); my @symbols = (); my %excludes = (); -my $cmd = "nm -D ../mono/mini/.libs/libmono.so"; +my $cmd = "nm -D $soname"; @excludes {qw( mono_class_setup_vtable_general_new mono_debugger_init mono_debugger_main mono_once mono_pthread_key_for_tls + mono_gc_pthread_create mono_gc_pthread_detach mono_gc_pthread_join + mono_gc_pthread_exit + mono_file_map_fileio mono_file_unmap_fileio + mono_file_map_set_allocator )} = (); open (SYMS, "$cmd |") || die "Cannot run \$cmd': $!\n"; @@ -19,17 +25,19 @@ while () { push @symbols, $1; } close (SYMS); +push @symbols, "MonoFixupCorEE"; @symbols = sort @symbols; open (OUT, ">$outfile") || die "Cannot open '$outfile': $!\n"; print OUT "; file generated by create-windef.pl\n"; -print OUT "LIBRARY mono.dll\nEXPORTS\n"; +print OUT "LIBRARY $dllname\nEXPORTS\n"; print OUT join ("\n", @symbols); +print OUT "\n"; close (OUT); sub usage { - print "Usage: create-windef.pl output_file\n"; + print "Usage: create-windef.pl output_file soname dllname\n"; exit (1); }