*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
*/
#include "config.h"
+#include "wine/port.h"
#include <assert.h>
#include <ctype.h>
#include <string.h>
#include "winglue.h"
-
-#define EXCEPTION_WINE_STUB 0x80000100 /* stub entry point called */
-#define EH_NONCONTINUABLE 0x01
-
+//#include "wine/exception.h"
#include "build.h"
-static int string_compare( const void *ptr1, const void *ptr2 )
+/* check if entry point needs a relay thunk */
+static inline int needs_relay( const ORDDEF *odp )
{
- const char * const *str1 = ptr1;
- const char * const *str2 = ptr2;
- return strcmp( *str1, *str2 );
+ /* skip nonexistent entry points */
+ if (!odp) return 0;
+ /* skip non-functions */
+ if ((odp->type != TYPE_STDCALL) && (odp->type != TYPE_CDECL)) return 0;
+ /* skip norelay and forward entry points */
+ if (odp->flags & (FLAG_NORELAY|FLAG_FORWARD)) return 0;
+ return 1;
}
+/* check if dll will output relay thunks */
+int has_relays( DLLSPEC *spec )
+{
+ int i;
+
+ if (target_cpu != CPU_x86) return 0;
+
+ for (i = spec->base; i <= spec->limit; i++)
+ {
+ ORDDEF *odp = spec->ordinals[i];
+ if (needs_relay( odp )) return 1;
+ }
+ return 0;
+}
/*******************************************************************
* make_internal_name
return buffer;
}
-/*******************************************************************
- * declare_weak_function
- *
- * Output a prototype for a weak function.
- */
-static void declare_weak_function( FILE *outfile, const char *ret_type, const char *name, const char *params)
-{
- fprintf( outfile, "#ifdef __GNUC__\n" );
- if (target_platform == PLATFORM_APPLE)
- {
- fprintf( outfile, "extern %s %s(%s) __attribute__((weak_import));\n", ret_type, name, params );
- fprintf( outfile, "static %s (*__wine_spec_weak_%s)(%s) = %s;\n", ret_type, name, params, name );
- fprintf( outfile, "#define %s __wine_spec_weak_%s\n", name, name );
- fprintf( outfile, "asm(\".weak_reference %s\");\n", asm_name(name) );
- }
- else fprintf( outfile, "extern %s %s(%s) __attribute__((weak));\n", ret_type, name, params );
-
- fprintf( outfile, "#else\n" );
- fprintf( outfile, "extern %s %s(%s);\n", ret_type, name, params );
- fprintf( outfile, "static void __asm__dummy_%s(void)", name );
- fprintf( outfile, " { asm(\".weak %s\"); }\n", asm_name(name) );
- fprintf( outfile, "#endif\n\n" );
-}
-
/*******************************************************************
- * output_debug
+ * output_relay_debug
*
- * Output the debug channels.
+ * Output entry points for relay debugging
*/
-static int output_debug( FILE *outfile )
+static void output_relay_debug( DLLSPEC *spec )
{
int i;
+ unsigned int j, args, flags;
- if (!nb_debug_channels) return 0;
- qsort( debug_channels, nb_debug_channels, sizeof(debug_channels[0]), string_compare );
+ /* first the table of entry point offsets */
- for (i = 0; i < nb_debug_channels; i++)
- fprintf( outfile, "char __wine_dbch_%s[] = \"\\003%s\";\n",
- debug_channels[i], debug_channels[i] );
+ output( "\t%s\n", get_asm_rodata_section() );
+ output( "\t.align %d\n", get_alignment(4) );
+ output( ".L__wine_spec_relay_entry_point_offsets:\n" );
- fprintf( outfile, "\nstatic char * const debug_channels[%d] =\n{\n", nb_debug_channels );
- for (i = 0; i < nb_debug_channels; i++)
+ for (i = spec->base; i <= spec->limit; i++)
{
- fprintf( outfile, " __wine_dbch_%s", debug_channels[i] );
- if (i < nb_debug_channels - 1) fprintf( outfile, ",\n" );
- }
- fprintf( outfile, "\n};\n\n" );
- fprintf( outfile, "static void *debug_registration;\n\n" );
-
- return nb_debug_channels;
-}
+ ORDDEF *odp = spec->ordinals[i];
+ if (needs_relay( odp ))
+ output( "\t.long .L__wine_spec_relay_entry_point_%d-__wine_spec_relay_entry_points\n", i );
+ else
+ output( "\t.long 0\n" );
+ }
-/*******************************************************************
- * get_exports_size
- *
- * Compute the size of the export table.
- */
-static int get_exports_size( DLLSPEC *spec )
-{
- int nr_exports = spec->base <= spec->limit ? spec->limit - spec->base + 1 : 0;
- int i, fwd_size = 0, total_size;
+ /* then the table of argument types */
- if (!nr_exports) return 0;
+ output( "\t.align %d\n", get_alignment(4) );
+ output( ".L__wine_spec_relay_arg_types:\n" );
- /* export directory header */
- total_size = 10 * sizeof(int);
+ for (i = spec->base; i <= spec->limit; i++)
+ {
+ ORDDEF *odp = spec->ordinals[i];
+ unsigned int mask = 0;
- /* function pointers */
- total_size += nr_exports * sizeof(int);
+ if (needs_relay( odp ))
+ {
+ for (j = 0; j < 16 && odp->u.func.arg_types[j]; j++)
+ {
+ if (odp->u.func.arg_types[j] == 't') mask |= 1<< (j*2);
+ if (odp->u.func.arg_types[j] == 'W') mask |= 2<< (j*2);
+ }
+ }
+ output( "\t.long 0x%08x\n", mask );
+ }
- /* function name pointers */
- total_size += spec->nb_names * sizeof(int);
+ /* then the relay thunks */
- /* function ordinals */
- total_size += spec->nb_names * sizeof(short);
- if (spec->nb_names % 2) total_size += sizeof(short);
+ output( "\t.text\n" );
+ output( "__wine_spec_relay_entry_points:\n" );
+ output( "\tnop\n" ); /* to avoid 0 offset */
- /* forward strings */
for (i = spec->base; i <= spec->limit; i++)
{
ORDDEF *odp = spec->ordinals[i];
- if (odp && odp->flags & FLAG_FORWARD) fwd_size += strlen(odp->link_name) + 1;
- }
- total_size += (fwd_size + 3) & ~3;
- return total_size;
-}
+ if (!needs_relay( odp )) continue;
+ output( "\t.align %d\n", get_alignment(4) );
+ output( ".L__wine_spec_relay_entry_point_%d:\n", i );
-/*******************************************************************
- * output_export_names
- *
- * Output all the exported names for a Win32 module.
- */
-static void output_export_names( FILE *outfile, DLLSPEC *spec )
-{
- int i, nr_exports = spec->base <= spec->limit ? spec->limit - spec->base + 1 : 0;
+ if (odp->flags & FLAG_REGISTER)
+ output( "\tpushl %%eax\n" );
+ else
+ output( "\tpushl %%esp\n" );
- if (!nr_exports) return;
+ args = strlen(odp->u.func.arg_types);
+ flags = 0;
+ if (odp->flags & FLAG_RET64) flags |= 1;
+ if (odp->type == TYPE_STDCALL) flags |= 2;
+ output( "\tpushl $%u\n", (flags << 24) | (args << 16) | (i - spec->base) );
- fprintf( outfile, "\nconst char __wine_spec_exp_names[] =" );
- fprintf( outfile, "\n \"%s\\0\"", spec->file_name );
- for (i = 0; i < spec->nb_names; i++)
- fprintf( outfile, "\n \"%s\\0\"", spec->names[i]->name );
- fprintf( outfile, ";\n" );
-}
+ if (UsePIC)
+ {
+ output( "\tcall %s\n", asm_name("__wine_spec_get_pc_thunk_eax") );
+ output( "1:\tleal .L__wine_spec_relay_descr-1b(%%eax),%%eax\n" );
+ }
+ else output( "\tmovl $.L__wine_spec_relay_descr,%%eax\n" );
+ output( "\tpushl %%eax\n" );
+ if (odp->flags & FLAG_REGISTER)
+ {
+ output( "\tcall *8(%%eax)\n" );
+ }
+ else
+ {
+ output( "\tcall *4(%%eax)\n" );
+ if (odp->type == TYPE_STDCALL)
+ output( "\tret $%u\n", args * get_ptr_size() );
+ else
+ output( "\tret\n" );
+ }
+ }
+}
/*******************************************************************
* output_exports
*
* Output the export table for a Win32 module.
*/
-static void output_exports( FILE *outfile, DLLSPEC *spec )
+static void output_exports( DLLSPEC *spec )
{
int i, fwd_size = 0;
int nr_exports = spec->base <= spec->limit ? spec->limit - spec->base + 1 : 0;
if (!nr_exports) return;
- fprintf( outfile, "/* export table */\n" );
- fprintf( outfile, "asm(\".data\\n\"\n" );
- fprintf( outfile, " \"\\t.align %d\\n\"\n", get_alignment(4) );
- fprintf( outfile, " \"%s:\\n\"\n", asm_name("__wine_spec_exports") );
+ output( "\n/* export table */\n\n" );
+ output( "\t.data\n" );
+ output( "\t.align %d\n", get_alignment(4) );
+ output( ".L__wine_spec_exports:\n" );
/* export directory header */
- fprintf( outfile, " \"\\t.long 0\\n\"\n" ); /* Characteristics */
- fprintf( outfile, " \"\\t.long 0\\n\"\n" ); /* TimeDateStamp */
- fprintf( outfile, " \"\\t.long 0\\n\"\n" ); /* MajorVersion/MinorVersion */
- fprintf( outfile, " \"\\t.long %s\\n\"\n", asm_name("__wine_spec_exp_names") ); /* Name */
- fprintf( outfile, " \"\\t.long %d\\n\"\n", spec->base ); /* Base */
- fprintf( outfile, " \"\\t.long %d\\n\"\n", nr_exports ); /* NumberOfFunctions */
- fprintf( outfile, " \"\\t.long %d\\n\"\n", spec->nb_names ); /* NumberOfNames */
- fprintf( outfile, " \"\\t.long __wine_spec_exports_funcs\\n\"\n" ); /* AddressOfFunctions */
+ output( "\t.long 0\n" ); /* Characteristics */
+ output( "\t.long 0\n" ); /* TimeDateStamp */
+ output( "\t.long 0\n" ); /* MajorVersion/MinorVersion */
+ output( "\t.long .L__wine_spec_exp_names-.L__wine_spec_rva_base\n" ); /* Name */
+ output( "\t.long %u\n", spec->base ); /* Base */
+ output( "\t.long %u\n", nr_exports ); /* NumberOfFunctions */
+ output( "\t.long %u\n", spec->nb_names ); /* NumberOfNames */
+ output( "\t.long .L__wine_spec_exports_funcs-.L__wine_spec_rva_base\n" ); /* AddressOfFunctions */
if (spec->nb_names)
{
- fprintf( outfile, " \"\\t.long __wine_spec_exp_name_ptrs\\n\"\n" ); /* AddressOfNames */
- fprintf( outfile, " \"\\t.long __wine_spec_exp_ordinals\\n\"\n" ); /* AddressOfNameOrdinals */
+ output( "\t.long .L__wine_spec_exp_name_ptrs-.L__wine_spec_rva_base\n" ); /* AddressOfNames */
+ output( "\t.long .L__wine_spec_exp_ordinals-.L__wine_spec_rva_base\n" ); /* AddressOfNameOrdinals */
}
else
{
- fprintf( outfile, " \"\\t.long 0\\n\"\n" ); /* AddressOfNames */
- fprintf( outfile, " \"\\t.long 0\\n\"\n" ); /* AddressOfNameOrdinals */
+ output( "\t.long 0\n" ); /* AddressOfNames */
+ output( "\t.long 0\n" ); /* AddressOfNameOrdinals */
}
/* output the function pointers */
- fprintf( outfile, " \"__wine_spec_exports_funcs:\\n\"\n" );
+ output( "\n.L__wine_spec_exports_funcs:\n" );
for (i = spec->base; i <= spec->limit; i++)
{
ORDDEF *odp = spec->ordinals[i];
- if (!odp) fprintf( outfile, " \"\\t.long 0\\n\"\n" );
+ if (!odp) output( "\t%s 0\n", get_asm_ptr_keyword() );
else switch(odp->type)
{
case TYPE_EXTERN:
case TYPE_STDCALL:
case TYPE_VARARGS:
case TYPE_CDECL:
- if (!(odp->flags & FLAG_FORWARD))
+ if (odp->flags & FLAG_FORWARD)
+ {
+ output( "\t%s .L__wine_spec_forwards+%u\n", get_asm_ptr_keyword(), fwd_size );
+ fwd_size += strlen(odp->link_name) + 1;
+ }
+ else if (odp->flags & FLAG_EXT_LINK)
{
- fprintf( outfile, " \"\\t.long %s\\n\"\n", asm_name(odp->link_name) );
+ output( "\t%s %s_%s\n",
+ get_asm_ptr_keyword(), asm_name("__wine_spec_ext_link"), odp->link_name );
}
else
{
- fprintf( outfile, " \"\\t.long __wine_spec_forwards+%d\\n\"\n", fwd_size );
- fwd_size += strlen(odp->link_name) + 1;
+ output( "\t%s %s\n", get_asm_ptr_keyword(), asm_name(odp->link_name) );
}
break;
case TYPE_STUB:
- fprintf( outfile, " \"\\t.long %s\\n\"\n",
- asm_name( make_internal_name( odp, spec, "stub" )) );
+ output( "\t%s %s\n", get_asm_ptr_keyword(),
+ asm_name( get_stub_name( odp, spec )) );
break;
default:
assert(0);
int namepos = strlen(spec->file_name) + 1;
- fprintf( outfile, " \"__wine_spec_exp_name_ptrs:\\n\"\n" );
+ output( "\n.L__wine_spec_exp_name_ptrs:\n" );
for (i = 0; i < spec->nb_names; i++)
{
- fprintf( outfile, " \"\\t.long %s+%d\\n\"\n", asm_name("__wine_spec_exp_names"), namepos );
+ output( "\t.long .L__wine_spec_exp_names+%u-.L__wine_spec_rva_base\n", namepos );
namepos += strlen(spec->names[i]->name) + 1;
}
- }
- if (spec->nb_names)
- {
/* output the function ordinals */
- fprintf( outfile, " \"__wine_spec_exp_ordinals:\\n\"\n" );
+ output( "\n.L__wine_spec_exp_ordinals:\n" );
for (i = 0; i < spec->nb_names; i++)
{
- fprintf( outfile, " \"\\t%s %d\\n\"\n",
+ output( "\t%s %d\n",
get_asm_short_keyword(), spec->names[i]->ordinal - spec->base );
}
if (spec->nb_names % 2)
{
- fprintf( outfile, " \"\\t%s 0\\n\"\n", get_asm_short_keyword() );
+ output( "\t%s 0\n", get_asm_short_keyword() );
}
}
+ /* output the export name strings */
+
+ output( "\n.L__wine_spec_exp_names:\n" );
+ output( "\t%s \"%s\"\n", get_asm_string_keyword(), spec->file_name );
+ for (i = 0; i < spec->nb_names; i++)
+ output( "\t%s \"%s\"\n",
+ get_asm_string_keyword(), spec->names[i]->name );
+
/* output forward strings */
if (fwd_size)
{
- fprintf( outfile, " \"__wine_spec_forwards:\\n\"\n" );
+ output( "\n.L__wine_spec_forwards:\n" );
for (i = spec->base; i <= spec->limit; i++)
{
ORDDEF *odp = spec->ordinals[i];
if (odp && (odp->flags & FLAG_FORWARD))
- fprintf( outfile, " \"\\t%s \\\"%s\\\"\\n\"\n", get_asm_string_keyword(), odp->link_name );
+ output( "\t%s \"%s\"\n", get_asm_string_keyword(), odp->link_name );
}
- fprintf( outfile, " \"\\t.align %d\\n\"\n", get_alignment(4) );
}
+ output( "\t.align %d\n", get_alignment(get_ptr_size()) );
+ output( ".L__wine_spec_exports_end:\n" );
/* output relays */
/* we only support relay debugging on i386 */
- if (target_cpu == CPU_x86)
+ if (target_cpu != CPU_x86)
{
- for (i = spec->base; i <= spec->limit; i++)
- {
- ORDDEF *odp = spec->ordinals[i];
- unsigned int j, args, mask = 0;
-
- /* skip nonexistent entry points */
- if (!odp) goto ignore;
- /* skip non-functions */
- if ((odp->type != TYPE_STDCALL) && (odp->type != TYPE_CDECL)) goto ignore;
- /* skip norelay and forward entry points */
- if (odp->flags & (FLAG_NORELAY|FLAG_FORWARD)) goto ignore;
-
- for (j = 0; odp->u.func.arg_types[j]; j++)
- {
- if (odp->u.func.arg_types[j] == 't') mask |= 1<< (j*2);
- if (odp->u.func.arg_types[j] == 'W') mask |= 2<< (j*2);
- }
- if ((odp->flags & FLAG_RET64) && (j < 16)) mask |= 0x80000000;
-
- args = strlen(odp->u.func.arg_types) * sizeof(int);
+ output( "\t%s 0\n", get_asm_ptr_keyword() );
+ return;
+ }
- switch(odp->type)
- {
- case TYPE_STDCALL:
- fprintf( outfile, " \"\\tjmp %s\\n\"\n", asm_name(odp->link_name) );
- fprintf( outfile, " \"\\tret $%d\\n\"\n", args );
- fprintf( outfile, " \"\\t.long %s,0x%08x\\n\"\n", asm_name(odp->link_name), mask );
- break;
- case TYPE_CDECL:
- fprintf( outfile, " \"\\tjmp %s\\n\"\n", asm_name(odp->link_name) );
- fprintf( outfile, " \"\\tret\\n\"\n" );
- fprintf( outfile, " \"\\t%s %d\\n\"\n", get_asm_short_keyword(), args );
- fprintf( outfile, " \"\\t.long %s,0x%08x\\n\"\n", asm_name(odp->link_name), mask );
- break;
- default:
- assert(0);
- }
- continue;
+ output( ".L__wine_spec_relay_descr:\n" );
+ output( "\t%s 0xdeb90001\n", get_asm_ptr_keyword() ); /* magic */
+ output( "\t%s 0,0\n", get_asm_ptr_keyword() ); /* relay funcs */
+ output( "\t%s 0\n", get_asm_ptr_keyword() ); /* private data */
+ output( "\t%s __wine_spec_relay_entry_points\n", get_asm_ptr_keyword() );
+ output( "\t%s .L__wine_spec_relay_entry_point_offsets\n", get_asm_ptr_keyword() );
+ output( "\t%s .L__wine_spec_relay_arg_types\n", get_asm_ptr_keyword() );
- ignore:
- fprintf( outfile, " \"\\t.long 0,0,0,0\\n\"\n" );
- }
- }
- fprintf( outfile, ");\n" );
+ output_relay_debug( spec );
}
* output_stub_funcs
*
* Output the functions for stub entry points
-*/
-static void output_stub_funcs( FILE *outfile, DLLSPEC *spec )
+ */
+static void output_stub_funcs( DLLSPEC *spec )
{
int i;
+#if 0
for (i = 0; i < spec->nb_entry_points; i++)
{
ORDDEF *odp = &spec->entry_points[i];
if (odp->type != TYPE_STUB) continue;
fprintf( outfile, "#ifdef __GNUC__\n" );
- fprintf( outfile, "static void __wine_unimplemented( const char *func ) __attribute__((noreturn));\n" );
- fprintf( outfile, "#endif\n\n" );
- fprintf( outfile, "struct exc_record {\n" );
- fprintf( outfile, " unsigned int code, flags;\n" );
- fprintf( outfile, " void *rec, *addr;\n" );
- fprintf( outfile, " unsigned int params;\n" );
- fprintf( outfile, " const void *info[15];\n" );
- fprintf( outfile, "};\n\n" );
- fprintf( outfile, "extern void __stdcall RtlRaiseException( struct exc_record * );\n\n" );
- fprintf( outfile, "static void __wine_unimplemented( const char *func )\n{\n" );
- fprintf( outfile, " struct exc_record rec;\n" );
- fprintf( outfile, " rec.code = 0x%08x;\n", EXCEPTION_WINE_STUB );
- fprintf( outfile, " rec.flags = %d;\n", EH_NONCONTINUABLE );
- fprintf( outfile, " rec.rec = 0;\n" );
- fprintf( outfile, " rec.params = 2;\n" );
- fprintf( outfile, " rec.info[0] = \"%s\";\n", spec->file_name );
- fprintf( outfile, " rec.info[1] = func;\n" );
- fprintf( outfile, "#ifdef __GNUC__\n" );
- fprintf( outfile, " rec.addr = __builtin_return_address(1);\n" );
+ fprintf( outfile, "extern void __wine_spec_unimplemented_stub( const char *module, const char *func ) __attribute__((noreturn));\n" );
fprintf( outfile, "#else\n" );
- fprintf( outfile, " rec.addr = 0;\n" );
- fprintf( outfile, "#endif\n" );
- fprintf( outfile, " for (;;) RtlRaiseException( &rec );\n}\n\n" );
+ fprintf( outfile, "extern void __wine_spec_unimplemented_stub( const char *module, const char *func );\n" );
+ fprintf( outfile, "#endif\n\n" );
break;
}
+#endif
for (i = 0; i < spec->nb_entry_points; i++)
{
const ORDDEF *odp = &spec->entry_points[i];
if (odp->type != TYPE_STUB) continue;
- fprintf( outfile, "void %s(void) ", make_internal_name( odp, spec, "stub" ) );
+ output( "void %s(void) ", make_internal_name( odp, spec, "stub" ) );
if (odp->name)
- fprintf( outfile, "{ __wine_unimplemented(\"%s\"); }\n", odp->name );
+ output( "{ __wine_spec_unimplemented_stub(__wine_spec_file_name, \"%s\"); }\n", odp->name );
else if (odp->export_name)
- fprintf( outfile, "{ __wine_unimplemented(\"%s\"); }\n", odp->export_name );
+ output( "{ __wine_spec_unimplemented_stub(__wine_spec_file_name, \"%s\"); }\n", odp->export_name );
else
- fprintf( outfile, "{ __wine_unimplemented(\"%d\"); }\n", odp->ordinal );
+ output( "{ __wine_spec_unimplemented_stub(__wine_spec_file_name, \"%d\"); }\n", odp->ordinal );
}
}
/*******************************************************************
- * output_dll_init
+ * output_asm_constructor
*
- * Output code for calling a dll constructor and destructor.
+ * Output code for calling a dll constructor.
*/
-void output_dll_init( FILE *outfile, const char *constructor, const char *destructor )
+static void output_asm_constructor( const char *constructor )
{
if (target_platform == PLATFORM_APPLE)
{
/* Mach-O doesn't have an init section */
- if (constructor)
- {
- fprintf( outfile, "asm(\"\\t.mod_init_func\\n\"\n" );
- fprintf( outfile, " \"\\t.align 2\\n\"\n" );
- fprintf( outfile, " \"\\t.long %s\\n\"\n", asm_name(constructor) );
- fprintf( outfile, " \"\\t.text\\n\");\n" );
- }
- if (destructor)
- {
- fprintf( outfile, "asm(\"\\t.mod_term_func\\n\"\n" );
- fprintf( outfile, " \"\\t.align 2\\n\"\n" );
- fprintf( outfile, " \"\\t.long %s\\n\"\n", asm_name(destructor) );
- fprintf( outfile, " \"\\t.text\\n\");\n" );
- }
+ output( "\n\t.mod_init_func\n" );
+ output( "\t.align %d\n", get_alignment(4) );
+ output( "\t.long %s\n", asm_name(constructor) );
}
- else switch(target_cpu)
+ else
{
- case CPU_x86:
- if (constructor)
- {
- fprintf( outfile, "asm(\"\\t.section\\t\\\".init\\\" ,\\\"ax\\\"\\n\"\n" );
- fprintf( outfile, " \"\\tcall %s\\n\"\n", asm_name(constructor) );
- fprintf( outfile, " \"\\t.section\\t\\\".text\\\"\\n\");\n" );
- }
- if (destructor)
+ output( "\n\t.section \".init\",\"ax\"\n" );
+ switch(target_cpu)
{
- fprintf( outfile, "asm(\"\\t.section\\t\\\".fini\\\" ,\\\"ax\\\"\\n\"\n" );
- fprintf( outfile, " \"\\tcall %s\\n\"\n", asm_name(destructor) );
- fprintf( outfile, " \"\\t.section\\t\\\".text\\\"\\n\");\n" );
- }
- break;
- case CPU_SPARC:
- if (constructor)
- {
- fprintf( outfile, "asm(\"\\t.section\\t\\\".init\\\" ,\\\"ax\\\"\\n\"\n" );
- fprintf( outfile, " \"\\tcall %s\\n\"\n", asm_name(constructor) );
- fprintf( outfile, " \"\\tnop\\n\"\n" );
- fprintf( outfile, " \"\\t.section\\t\\\".text\\\"\\n\");\n" );
- }
- if (destructor)
- {
- fprintf( outfile, "asm(\"\\t.section\\t\\\".fini\\\" ,\\\"ax\\\"\\n\"\n" );
- fprintf( outfile, " \"\\tcall %s\\n\"\n", asm_name(destructor) );
- fprintf( outfile, " \"\\tnop\\n\"\n" );
- fprintf( outfile, " \"\\t.section\\t\\\".text\\\"\\n\");\n" );
- }
- break;
- case CPU_ALPHA:
- if (constructor)
- {
- fprintf( outfile, "asm(\"\\t.section\\t\\\".init\\\" ,\\\"ax\\\"\\n\"\n" );
- fprintf( outfile, " \"\\tjsr $26,%s\\n\"\n", asm_name(constructor) );
- fprintf( outfile, " \"\\t.section\\t\\\".text\\\"\\n\");\n" );
- }
- if (destructor)
- {
- fprintf( outfile, "asm(\"\\t.section\\t\\\".fini\\\" ,\\\"ax\\\"\\n\"\n" );
- fprintf( outfile, " \"\\tjsr $26,%s\\n\"\n", asm_name(destructor) );
- fprintf( outfile, " \"\\t.section\\t\\\".text\\\"\\n\");\n" );
- }
- break;
- case CPU_POWERPC:
- if (constructor)
- {
- fprintf( outfile, "asm(\"\\t.section\\t\\\".init\\\" ,\\\"ax\\\"\\n\"\n" );
- fprintf( outfile, " \"\\tbl %s\\n\"\n", asm_name(constructor) );
- fprintf( outfile, " \"\\t.section\\t\\\".text\\\"\\n\");\n" );
- }
- if (destructor)
- {
- fprintf( outfile, "asm(\"\\t.section\\t\\\".fini\\\" ,\\\"ax\\\"\\n\"\n" );
- fprintf( outfile, " \"\\tbl %s\\n\"\n", asm_name(destructor) );
- fprintf( outfile, " \"\\t.section\\t\\\".text\\\"\\n\");\n" );
+ case CPU_x86:
+ case CPU_x86_64:
+ output( "\tcall %s\n", asm_name(constructor) );
+ break;
+ case CPU_SPARC:
+ output( "\tcall %s\n", asm_name(constructor) );
+ output( "\tnop\n" );
+ break;
+ case CPU_ALPHA:
+ output( "\tjsr $26,%s\n", asm_name(constructor) );
+ break;
+ case CPU_POWERPC:
+ output( "\tbl %s\n", asm_name(constructor) );
+ break;
}
- break;
}
}
*
* Build a Win32 C file from a spec file.
*/
-void BuildSpec32File( FILE *outfile, DLLSPEC *spec )
+void BuildSpec32File( DLLSPEC *spec )
{
- int exports_size = 0;
- int nr_exports, nr_imports, nr_delayed;
+ int machine = 0;
unsigned int page_size = get_page_size();
- const char *init_func = spec->init_func;
- nr_exports = spec->base <= spec->limit ? spec->limit - spec->base + 1 : 0;
resolve_imports( spec );
- exports_size = get_exports_size( spec );
- output_standard_file_header( outfile );
+ output_standard_file_header();
/* Reserve some space for the PE header */
- fprintf( outfile, "extern char __wine_spec_pe_header[];\n" );
- fprintf( outfile, "#ifndef __GNUC__\n" );
- fprintf( outfile, "static void __asm__dummy_header(void) {\n" );
- fprintf( outfile, "#endif\n" );
- fprintf( outfile, "asm(\".text\\n\\t\"\n" );
- fprintf( outfile, " \".align %d\\n\"\n", get_alignment(page_size) );
- fprintf( outfile, " \"%s:\\t\"\n", asm_name("__wine_spec_pe_header") );
+ output( "\t.text\n" );
+ output( "\t.align %d\n", get_alignment(page_size) );
+ output( "__wine_spec_pe_header:\n" );
if (target_platform == PLATFORM_APPLE)
- fprintf( outfile, " \".space 65536\\n\\t\"\n" );
- else
- fprintf( outfile, " \".skip 65536\\n\\t\"\n" );
- fprintf( outfile, " \".data\\n\\t\"\n" );
- fprintf( outfile, " \".align %d\\n\"\n", get_alignment(4) );
- fprintf( outfile, " \"%s:\\t.long 1\");\n", asm_name("__wine_spec_data_start") );
- fprintf( outfile, "#ifndef __GNUC__\n" );
- fprintf( outfile, "}\n" );
- fprintf( outfile, "#endif\n" );
-
- if (target_platform == PLATFORM_APPLE)
- fprintf( outfile, "static char _end[4];\n" );
- else
- fprintf( outfile, "extern char _end[];\n" );
-
- fprintf( outfile, "extern int __wine_spec_data_start[], __wine_spec_exports[];\n\n" );
-
- if (target_cpu == CPU_x86)
- fprintf( outfile, "#define __stdcall __attribute__((__stdcall__))\n\n" );
+ output( "\t.space 65536\n" );
else
- fprintf( outfile, "#define __stdcall\n\n" );
+ output( "\t.skip 65536\n" );
- output_stub_funcs( outfile, spec );
- output_export_names( outfile, spec );
-
- /* Output the DLL imports */
-
- nr_imports = output_imports( outfile, spec, &nr_delayed );
-
- /* Output the resources */
-
- output_resources( outfile, spec );
+ /* Output the NT header */
- /* Output the entry point function */
+ output( "\n\t.data\n" );
+ output( "\t.align %d\n", get_alignment(get_ptr_size()) );
+ output( "%s\n", asm_globl("__wine_spec_nt_header") );
+ output( ".L__wine_spec_rva_base:\n" );
- fprintf( outfile, "static int __wine_spec_init_state;\n" );
- fprintf( outfile, "extern int __wine_main_argc;\n" );
- fprintf( outfile, "extern char **__wine_main_argv;\n" );
- fprintf( outfile, "extern char **__wine_main_environ;\n" );
- fprintf( outfile, "extern unsigned short **__wine_main_wargv;\n" );
- if (target_platform == PLATFORM_APPLE)
- {
- fprintf( outfile, "extern _dyld_func_lookup(char *, void *);" );
- fprintf( outfile, "static void __wine_spec_hidden_init(int argc, char** argv, char** envp)\n" );
- fprintf( outfile, "{\n" );
- fprintf( outfile, " void (*init)(void);\n" );
- fprintf( outfile, " _dyld_func_lookup(\"__dyld_make_delayed_module_initializer_calls\", (unsigned long *)&init);\n" );
- fprintf( outfile, " init();\n" );
- fprintf( outfile, "}\n" );
- fprintf( outfile, "static void __wine_spec_hidden_fini()\n" );
- fprintf( outfile, "{\n" );
- fprintf( outfile, " void (*fini)(void);\n" );
- fprintf( outfile, " _dyld_func_lookup(\"__dyld_mod_term_funcs\", (unsigned long *)&fini);\n" );
- fprintf( outfile, " fini();\n" );
- fprintf( outfile, "}\n" );
- fprintf( outfile, "#define _init __wine_spec_hidden_init\n" );
- fprintf( outfile, "#define _fini __wine_spec_hidden_fini\n" );
- }
- else
+ output( "\t.long 0x%04x\n", IMAGE_NT_SIGNATURE ); /* Signature */
+ switch(target_cpu)
{
- fprintf( outfile, "extern void _init(int, char**, char**);\n" );
- fprintf( outfile, "extern void _fini();\n" );
+ case CPU_x86: machine = IMAGE_FILE_MACHINE_I386; break;
+ case CPU_x86_64: machine = IMAGE_FILE_MACHINE_AMD64; break;
+ case CPU_POWERPC: machine = IMAGE_FILE_MACHINE_POWERPC; break;
+ case CPU_ALPHA: machine = IMAGE_FILE_MACHINE_ALPHA; break;
+ case CPU_SPARC: machine = IMAGE_FILE_MACHINE_UNKNOWN; break;
}
-
- if (spec->characteristics & IMAGE_FILE_DLL)
+ output( "\t%s 0x%04x\n", /* Machine */
+ get_asm_short_keyword(), machine );
+ output( "\t%s 0\n", /* NumberOfSections */
+ get_asm_short_keyword() );
+ output( "\t.long 0\n" ); /* TimeDateStamp */
+ output( "\t.long 0\n" ); /* PointerToSymbolTable */
+ output( "\t.long 0\n" ); /* NumberOfSymbols */
+ output( "\t%s %d\n", /* SizeOfOptionalHeader */
+ get_asm_short_keyword(),
+ get_ptr_size() == 8 ? IMAGE_SIZEOF_NT_OPTIONAL64_HEADER : IMAGE_SIZEOF_NT_OPTIONAL32_HEADER );
+ output( "\t%s 0x%04x\n", /* Characteristics */
+ get_asm_short_keyword(), spec->characteristics );
+ output( "\t%s 0x%04x\n", /* Magic */
+ get_asm_short_keyword(),
+ get_ptr_size() == 8 ? IMAGE_NT_OPTIONAL_HDR64_MAGIC : IMAGE_NT_OPTIONAL_HDR32_MAGIC );
+ output( "\t.byte 0\n" ); /* MajorLinkerVersion */
+ output( "\t.byte 0\n" ); /* MinorLinkerVersion */
+ output( "\t.long 0\n" ); /* SizeOfCode */
+ output( "\t.long 0\n" ); /* SizeOfInitializedData */
+ output( "\t.long 0\n" ); /* SizeOfUninitializedData */
+ /* note: we expand the AddressOfEntryPoint field on 64-bit by overwriting the BaseOfCode field */
+ output( "\t%s %s\n", /* AddressOfEntryPoint */
+ get_asm_ptr_keyword(), asm_name(spec->init_func) );
+ if (get_ptr_size() == 4)
{
- if (init_func)
- fprintf( outfile, "extern int __stdcall %s( void*, unsigned int, void* );\n\n", init_func );
- else
- {
- declare_weak_function( outfile, "int __stdcall", "DllMain", "void*, unsigned int, void*" );
- init_func = "DllMain";
- }
- fprintf( outfile,
- "static int __stdcall __wine_dll_main( void *inst, unsigned int reason, void *reserved )\n"
- "{\n"
- " int ret;\n"
- " if (reason == %d && __wine_spec_init_state == 1)\n"
- " _init( __wine_main_argc, __wine_main_argv, __wine_main_environ );\n"
- " ret = %s ? %s( inst, reason, reserved ) : 1;\n"
- " if (reason == %d && __wine_spec_init_state == 1)\n",
- DLL_PROCESS_ATTACH, init_func, init_func, DLL_PROCESS_DETACH );
- if (!nr_delayed)
- fprintf( outfile, " _fini();\n" );
- else
- fprintf( outfile,
- " {\n"
- " extern int __stdcall FreeLibrary(void *);\n"
- " unsigned int i;\n"
- " _fini();\n"
- " for (i = 0; i < sizeof(__wine_delay_imp_hmod)/sizeof(__wine_delay_imp_hmod[0]); i++)\n"
- " if (__wine_delay_imp_hmod[i]) FreeLibrary( __wine_delay_imp_hmod[i] );\n"
- " }\n" );
- fprintf( outfile, " return ret;\n}\n" );
- init_func = "__wine_dll_main";
- }
- else switch(spec->subsystem)
- {
- case IMAGE_SUBSYSTEM_NATIVE:
- if (init_func)
- fprintf( outfile, "extern int __stdcall %s( void*, void* );\n\n", init_func );
- else
- {
- declare_weak_function( outfile, "int __stdcall", "DriverEntry", "void*, void*");
- init_func = "DriverEntry";
- }
- fprintf( outfile,
- "static int __stdcall __wine_driver_entry( void *obj, void *path )\n"
- "{\n"
- " int ret;\n"
- " if (__wine_spec_init_state == 1)\n"
- " _init( __wine_main_argc, __wine_main_argv, __wine_main_environ );\n"
- " ret = %s ? %s( obj, path ) : 0;\n"
- " if (__wine_spec_init_state == 1) _fini();\n"
- " return ret;\n"
- "}\n",
- init_func, init_func );
- init_func = "__wine_driver_entry";
- break;
- case IMAGE_SUBSYSTEM_WINDOWS_GUI:
- case IMAGE_SUBSYSTEM_WINDOWS_CUI:
- if (init_func)
- fprintf( outfile, "extern int %s( int argc, char *argv[] );\n", init_func );
- else
- {
- declare_weak_function( outfile, "int", "main", "int argc, char *argv[]" );
- declare_weak_function( outfile, "int", "wmain", "int argc, unsigned short *argv[]" );
- declare_weak_function( outfile, "int __stdcall", "WinMain", "void *,void *,char *,int" );
- }
- fprintf( outfile,
- "\ntypedef struct {\n"
- " unsigned int cb;\n"
- " char *lpReserved, *lpDesktop, *lpTitle;\n"
- " unsigned int dwX, dwY, dwXSize, dwYSize;\n"
- " unsigned int dwXCountChars, dwYCountChars, dwFillAttribute, dwFlags;\n"
- " unsigned short wShowWindow, cbReserved2;\n"
- " char *lpReserved2;\n"
- " void *hStdInput, *hStdOutput, *hStdError;\n"
- "} STARTUPINFOA;\n"
- "extern char * __stdcall GetCommandLineA(void);\n"
- "extern void * __stdcall GetModuleHandleA(char *);\n"
- "extern void __stdcall GetStartupInfoA(STARTUPINFOA *);\n"
- "extern void __stdcall ExitProcess(unsigned int);\n"
- "static void __wine_exe_main(void)\n"
- "{\n"
- " int ret;\n"
- " if (__wine_spec_init_state == 1)\n"
- " _init( __wine_main_argc, __wine_main_argv, __wine_main_environ );\n" );
- if (init_func)
- fprintf( outfile,
- " ret = %s( __wine_main_argc, __wine_main_argv );\n", init_func );
- else
- fprintf( outfile,
- " if (WinMain) {\n"
- " STARTUPINFOA info;\n"
- " char *cmdline = GetCommandLineA();\n"
- " int bcount=0, in_quotes=0;\n"
- " while (*cmdline) {\n"
- " if ((*cmdline=='\\t' || *cmdline==' ') && !in_quotes) break;\n"
- " else if (*cmdline=='\\\\') bcount++;\n"
- " else if (*cmdline=='\\\"') {\n"
- " if ((bcount & 1)==0) in_quotes=!in_quotes;\n"
- " bcount=0;\n"
- " }\n"
- " else bcount=0;\n"
- " cmdline++;\n"
- " }\n"
- " while (*cmdline=='\\t' || *cmdline==' ') cmdline++;\n"
- " GetStartupInfoA( &info );\n"
- " if (!(info.dwFlags & 1)) info.wShowWindow = 1;\n"
- " ret = WinMain( GetModuleHandleA(0), 0, cmdline, info.wShowWindow );\n"
- " }\n"
- " else if (wmain) ret = wmain( __wine_main_argc, __wine_main_wargv );\n"
- " else ret = main( __wine_main_argc, __wine_main_argv );\n" );
- fprintf( outfile,
- " if (__wine_spec_init_state == 1) _fini();\n"
- " ExitProcess( ret );\n"
- "}\n\n" );
- init_func = "__wine_exe_main";
- break;
+ output( "\t.long 0\n" ); /* BaseOfCode */
+ output( "\t.long 0\n" ); /* BaseOfData */
}
+ output( "\t%s __wine_spec_pe_header\n", /* ImageBase */
+ get_asm_ptr_keyword() );
+ output( "\t.long %u\n", page_size ); /* SectionAlignment */
+ output( "\t.long %u\n", page_size ); /* FileAlignment */
+ output( "\t%s 1,0\n", /* Major/MinorOperatingSystemVersion */
+ get_asm_short_keyword() );
+ output( "\t%s 0,0\n", /* Major/MinorImageVersion */
+ get_asm_short_keyword() );
+ output( "\t%s %u,%u\n", /* Major/MinorSubsystemVersion */
+ get_asm_short_keyword(), spec->subsystem_major, spec->subsystem_minor );
+ output( "\t.long 0\n" ); /* Win32VersionValue */
+ output( "\t.long %s-.L__wine_spec_rva_base\n", /* SizeOfImage */
+ asm_name("_end") );
+ output( "\t.long %u\n", page_size ); /* SizeOfHeaders */
+ output( "\t.long 0\n" ); /* CheckSum */
+ output( "\t%s 0x%04x\n", /* Subsystem */
+ get_asm_short_keyword(), spec->subsystem );
+ output( "\t%s 0x%04x\n", /* DllCharacteristics */
+ get_asm_short_keyword(), spec->dll_characteristics );
+ output( "\t%s %u,%u\n", /* SizeOfStackReserve/Commit */
+ get_asm_ptr_keyword(), (spec->stack_size ? spec->stack_size : 1024) * 1024, page_size );
+ output( "\t%s %u,%u\n", /* SizeOfHeapReserve/Commit */
+ get_asm_ptr_keyword(), (spec->heap_size ? spec->heap_size : 1024) * 1024, page_size );
+ output( "\t.long 0\n" ); /* LoaderFlags */
+ output( "\t.long 16\n" ); /* NumberOfRvaAndSizes */
+
+ if (spec->base <= spec->limit) /* DataDirectory[IMAGE_DIRECTORY_ENTRY_EXPORT] */
+ output( "\t.long .L__wine_spec_exports-.L__wine_spec_rva_base,"
+ ".L__wine_spec_exports_end-.L__wine_spec_exports\n" );
+ else
+ output( "\t.long 0,0\n" );
- /* Output the NT header */
+ if (has_imports()) /* DataDirectory[IMAGE_DIRECTORY_ENTRY_IMPORT] */
+ output( "\t.long .L__wine_spec_imports-.L__wine_spec_rva_base,"
+ ".L__wine_spec_imports_end-.L__wine_spec_imports\n" );
+ else
+ output( "\t.long 0,0\n" );
- /* this is the IMAGE_NT_HEADERS structure, but we cannot include winnt.h here */
- fprintf( outfile, "static const struct image_nt_headers\n{\n" );
- fprintf( outfile, " int Signature;\n" );
- fprintf( outfile, " struct file_header {\n" );
- fprintf( outfile, " short Machine;\n" );
- fprintf( outfile, " short NumberOfSections;\n" );
- fprintf( outfile, " int TimeDateStamp;\n" );
- fprintf( outfile, " void *PointerToSymbolTable;\n" );
- fprintf( outfile, " int NumberOfSymbols;\n" );
- fprintf( outfile, " short SizeOfOptionalHeader;\n" );
- fprintf( outfile, " short Characteristics;\n" );
- fprintf( outfile, " } FileHeader;\n" );
- fprintf( outfile, " struct opt_header {\n" );
- fprintf( outfile, " short Magic;\n" );
- fprintf( outfile, " char MajorLinkerVersion, MinorLinkerVersion;\n" );
- fprintf( outfile, " int SizeOfCode;\n" );
- fprintf( outfile, " int SizeOfInitializedData;\n" );
- fprintf( outfile, " int SizeOfUninitializedData;\n" );
- fprintf( outfile, " void *AddressOfEntryPoint;\n" );
- fprintf( outfile, " void *BaseOfCode;\n" );
- fprintf( outfile, " void *BaseOfData;\n" );
- fprintf( outfile, " void *ImageBase;\n" );
- fprintf( outfile, " int SectionAlignment;\n" );
- fprintf( outfile, " int FileAlignment;\n" );
- fprintf( outfile, " short MajorOperatingSystemVersion;\n" );
- fprintf( outfile, " short MinorOperatingSystemVersion;\n" );
- fprintf( outfile, " short MajorImageVersion;\n" );
- fprintf( outfile, " short MinorImageVersion;\n" );
- fprintf( outfile, " short MajorSubsystemVersion;\n" );
- fprintf( outfile, " short MinorSubsystemVersion;\n" );
- fprintf( outfile, " int Win32VersionValue;\n" );
- fprintf( outfile, " void *SizeOfImage;\n" );
- fprintf( outfile, " int SizeOfHeaders;\n" );
- fprintf( outfile, " int CheckSum;\n" );
- fprintf( outfile, " short Subsystem;\n" );
- fprintf( outfile, " short DllCharacteristics;\n" );
- fprintf( outfile, " int SizeOfStackReserve;\n" );
- fprintf( outfile, " int SizeOfStackCommit;\n" );
- fprintf( outfile, " int SizeOfHeapReserve;\n" );
- fprintf( outfile, " int SizeOfHeapCommit;\n" );
- fprintf( outfile, " int LoaderFlags;\n" );
- fprintf( outfile, " int NumberOfRvaAndSizes;\n" );
- fprintf( outfile, " struct { const void *VirtualAddress; int Size; } DataDirectory[%d];\n",
- IMAGE_NUMBEROF_DIRECTORY_ENTRIES );
- fprintf( outfile, " } OptionalHeader;\n" );
- fprintf( outfile, "} nt_header = {\n" );
- fprintf( outfile, " 0x%04x,\n", IMAGE_NT_SIGNATURE ); /* Signature */
- switch(target_cpu)
- {
- case CPU_x86:
- fprintf( outfile, " { 0x%04x,\n", IMAGE_FILE_MACHINE_I386 ); /* Machine */
- break;
- case CPU_POWERPC:
- fprintf( outfile, " { 0x%04x,\n", IMAGE_FILE_MACHINE_POWERPC ); /* Machine */
- break;
- case CPU_ALPHA:
- fprintf( outfile, " { 0x%04x,\n", IMAGE_FILE_MACHINE_ALPHA ); /* Machine */
- break;
- case CPU_SPARC:
- fprintf( outfile, " { 0x%04x,\n", IMAGE_FILE_MACHINE_UNKNOWN ); /* Machine */
- break;
- }
- fprintf( outfile, " 0, 0, 0, 0,\n" );
- fprintf( outfile, " sizeof(nt_header.OptionalHeader),\n" ); /* SizeOfOptionalHeader */
- fprintf( outfile, " 0x%04x },\n", spec->characteristics ); /* Characteristics */
-
- fprintf( outfile, " { 0x%04x,\n", IMAGE_NT_OPTIONAL_HDR_MAGIC ); /* Magic */
- fprintf( outfile, " 0, 0,\n" ); /* Major/MinorLinkerVersion */
- fprintf( outfile, " 0, 0, 0,\n" ); /* SizeOfCode/Data */
- fprintf( outfile, " %s,\n", init_func ); /* AddressOfEntryPoint */
- fprintf( outfile, " 0, __wine_spec_data_start,\n" ); /* BaseOfCode/Data */
- fprintf( outfile, " __wine_spec_pe_header,\n" ); /* ImageBase */
- fprintf( outfile, " %u,\n", page_size ); /* SectionAlignment */
- fprintf( outfile, " %u,\n", page_size ); /* FileAlignment */
- fprintf( outfile, " 1, 0,\n" ); /* Major/MinorOperatingSystemVersion */
- fprintf( outfile, " 0, 0,\n" ); /* Major/MinorImageVersion */
- fprintf( outfile, " %d,\n", spec->subsystem_major ); /* MajorSubsystemVersion */
- fprintf( outfile, " %d,\n", spec->subsystem_minor ); /* MinorSubsystemVersion */
- fprintf( outfile, " 0,\n" ); /* Win32VersionValue */
- fprintf( outfile, " _end,\n" ); /* SizeOfImage */
- fprintf( outfile, " %u,\n", page_size ); /* SizeOfHeaders */
- fprintf( outfile, " 0,\n" ); /* CheckSum */
- fprintf( outfile, " 0x%04x,\n", spec->subsystem );/* Subsystem */
- fprintf( outfile, " 0,\n" ); /* DllCharacteristics */
- fprintf( outfile, " %u, %u,\n", /* SizeOfStackReserve/Commit */
- (spec->stack_size ? spec->stack_size : 1024) * 1024, page_size );
- fprintf( outfile, " %u, %u,\n", /* SizeOfHeapReserve/Commit */
- (spec->heap_size ? spec->heap_size : 1024) * 1024, page_size );
- fprintf( outfile, " 0,\n" ); /* LoaderFlags */
- fprintf( outfile, " %d,\n", IMAGE_NUMBEROF_DIRECTORY_ENTRIES ); /* NumberOfRvaAndSizes */
- fprintf( outfile, " {\n" );
- fprintf( outfile, " { %s, %d },\n", /* IMAGE_DIRECTORY_ENTRY_EXPORT */
- exports_size ? "__wine_spec_exports" : "0", exports_size );
- fprintf( outfile, " { %s, %s },\n", /* IMAGE_DIRECTORY_ENTRY_IMPORT */
- nr_imports ? "&imports" : "0", nr_imports ? "sizeof(imports)" : "0" );
- fprintf( outfile, " { %s, %s },\n", /* IMAGE_DIRECTORY_ENTRY_RESOURCE */
- spec->nb_resources ? "&__wine_spec_resources" : "0",
- spec->nb_resources ? "sizeof(__wine_spec_resources)" : "0" );
- fprintf( outfile, " }\n }\n};\n\n" );
-
- /* Output the DLL constructor */
-
- fprintf( outfile,
- "void __wine_spec_init(void)\n"
- "{\n"
- " extern void __wine_dll_register( const struct image_nt_headers *, const char * );\n"
- " __wine_spec_init_state = 1;\n"
- " __wine_dll_register( &nt_header, \"%s\" );\n"
- "}\n\n",
- spec->file_name );
-
- fprintf( outfile,
- "void __wine_spec_init_ctor(void)\n"
- "{\n"
- " if (__wine_spec_init_state) return;\n"
- " __wine_spec_init();\n"
- " __wine_spec_init_state = 2;\n"
- "}\n" );
-
- fprintf( outfile, "#ifndef __GNUC__\n" );
- fprintf( outfile, "static void __asm__dummy(void) {\n" );
- fprintf( outfile, "#endif\n" );
-
- output_exports( outfile, spec );
- output_import_thunks( outfile, spec );
- output_dll_init( outfile, "__wine_spec_init_ctor", NULL );
-
- fprintf( outfile, "#ifndef __GNUC__\n" );
- fprintf( outfile, "}\n" );
- fprintf( outfile, "#endif\n" );
+ if (spec->nb_resources) /* DataDirectory[IMAGE_DIRECTORY_ENTRY_RESOURCE] */
+ output( "\t.long .L__wine_spec_resources-.L__wine_spec_rva_base,"
+ ".L__wine_spec_resources_end-.L__wine_spec_resources\n" );
+ else
+ output( "\t.long 0,0\n" );
+
+ output( "\t.long 0,0\n" ); /* DataDirectory[3] */
+ output( "\t.long 0,0\n" ); /* DataDirectory[4] */
+ output( "\t.long 0,0\n" ); /* DataDirectory[5] */
+ output( "\t.long 0,0\n" ); /* DataDirectory[6] */
+ output( "\t.long 0,0\n" ); /* DataDirectory[7] */
+ output( "\t.long 0,0\n" ); /* DataDirectory[8] */
+ output( "\t.long 0,0\n" ); /* DataDirectory[9] */
+ output( "\t.long 0,0\n" ); /* DataDirectory[10] */
+ output( "\t.long 0,0\n" ); /* DataDirectory[11] */
+ output( "\t.long 0,0\n" ); /* DataDirectory[12] */
+ output( "\t.long 0,0\n" ); /* DataDirectory[13] */
+ output( "\t.long 0,0\n" ); /* DataDirectory[14] */
+ output( "\t.long 0,0\n" ); /* DataDirectory[15] */
+
+ output( "\n\t%s\n", get_asm_string_section() );
+ output( "%s\n", asm_globl("__wine_spec_file_name") );
+ output( ".L__wine_spec_file_name:\n" );
+ output( "\t%s \"%s\"\n", get_asm_string_keyword(), spec->file_name );
+ if (target_platform == PLATFORM_APPLE)
+ output( "\t.lcomm %s,4\n", asm_name("_end") );
+
+ output_stubs( spec );
+ output_exports( spec );
+ output_imports( spec );
+ output_resources( spec );
+ output_asm_constructor( "__wine_spec_init_ctor" );
+ output_gnu_stack_note();
}
*
* Build a Win32 def file from a spec file.
*/
-void BuildDef32File( FILE *outfile, DLLSPEC *spec )
+void BuildDef32File( DLLSPEC *spec )
{
const char *name;
- int i;
+ int i, total;
if (spec_file_name)
- fprintf( outfile, "; File generated automatically from %s; do not edit!\n\n",
+ output( "; File generated automatically from %s; do not edit!\n\n",
spec_file_name );
else
- fprintf( outfile, "; File generated automatically; do not edit!\n\n" );
-
- fprintf(outfile, "LIBRARY %s\n\n", spec->file_name);
+ output( "; File generated automatically; do not edit!\n\n" );
- fprintf(outfile, "EXPORTS\n");
+ output( "LIBRARY %s\n\n", spec->file_name);
+ output( "EXPORTS\n");
/* Output the exports and relay entry points */
- for(i = 0; i < spec->nb_entry_points; i++)
+ for (i = total = 0; i < spec->nb_entry_points; i++)
{
const ORDDEF *odp = &spec->entry_points[i];
int is_data = 0;
if (!odp) continue;
+
if (odp->name) name = odp->name;
- else if (odp->type == TYPE_STUB) name = make_internal_name( odp, spec, "stub" );
else if (odp->export_name) name = odp->export_name;
- else name = make_internal_name( odp, spec, "noname_export" );
+ else continue;
- fprintf(outfile, " %s", name);
+ if (!(odp->flags & FLAG_PRIVATE)) total++;
switch(odp->type)
{
case TYPE_EXTERN:
+ output( " %s", name );
is_data = 1;
- /* fall through */
+ if(strcmp(name, odp->link_name) || (odp->flags & FLAG_FORWARD))
+ output( "=%s", odp->link_name );
+ break;
case TYPE_VARARGS:
case TYPE_CDECL:
/* try to reduce output */
+ output( " %s", name );
if(strcmp(name, odp->link_name) || (odp->flags & FLAG_FORWARD))
- fprintf(outfile, "=%s", odp->link_name);
+ output( "=%s", odp->link_name );
break;
case TYPE_STDCALL:
{
- int at_param = strlen(odp->u.func.arg_types) * sizeof(int);
- if (!kill_at) fprintf(outfile, "@%d", at_param);
+ int at_param = strlen(odp->u.func.arg_types) * get_ptr_size();
+ output( " %s", name );
+ if (!kill_at) output( "@%d", at_param );
if (odp->flags & FLAG_FORWARD)
{
- fprintf(outfile, "=%s", odp->link_name);
+ output( "=%s", odp->link_name );
}
else if (strcmp(name, odp->link_name)) /* try to reduce output */
{
- fprintf(outfile, "=%s", odp->link_name);
- if (!kill_at) fprintf(outfile, "@%d", at_param);
+ output( "=%s", odp->link_name );
+ if (!kill_at) output( "@%d", at_param );
+ }
+ break;
+ }
+ case TYPE_FASTCALL:
+ {
+ int at_param = strlen(odp->u.func.arg_types) * get_ptr_size();
+ output( " @%s", name );
+ if (!kill_at) output( "@%d", at_param );
+ if (odp->flags & FLAG_FORWARD)
+ {
+ output( "=@%s", odp->link_name );
+ }
+ else if (strcmp(name, odp->link_name)) /* try to reduce output */
+ {
+ output( "=@%s", odp->link_name );
+ if (!kill_at) output( "@%d", at_param );
}
break;
}
case TYPE_STUB:
{
+ output( " %s", name );
if (!kill_at)
{
const char *check = name + strlen(name);
if (name != check && check != name + strlen(name) &&
'@' == check[-1])
{
- fprintf(outfile, "%s", check - 1);
+ output("%s", check - 1);
}
}
- if (NULL != odp->name)
+ if (odp->name || odp->export_name)
{
- fprintf(outfile, "=%s", make_internal_name( odp, spec, "stub" ));
+ output("=%s", make_internal_name( odp, spec, "stub" ));
}
break;
}
default:
assert(0);
}
- fprintf( outfile, " @%d", odp->ordinal );
-#if 0 /* MinGW binutils cannot handle this correctly */
- if (!odp->name) fprintf( outfile, " NONAME" );
-#else
- if (!odp->name && (odp->type == TYPE_STUB || odp->export_name)) fprintf( outfile, " NONAME" );
-#endif
- if (is_data) fprintf( outfile, " DATA" );
-#if 0
- /* MinGW binutils cannot handle this correctly */
- if (odp->flags & FLAG_PRIVATE) fprintf( outfile, " PRIVATE" );
-#endif
- fprintf( outfile, "\n" );
+ output( " @%d", odp->ordinal );
+ if (!odp->name || (odp->flags & FLAG_ORDINAL)) output( " NONAME" );
+ if (is_data) output( " DATA" );
+ if (odp->flags & FLAG_PRIVATE) output( " PRIVATE" );
+ output( "\n" );
}
+ if (!total) warning( "%s: Import library doesn't export anything\n", spec->file_name );
}
/*******************************************************************
- * BuildDebugFile
+ * BuildPedllFile
*
- * Build the debugging channels source file.
+ * Build a PE DLL C file from a spec file.
*/
-void BuildDebugFile( FILE *outfile, const char *srcdir, char **argv )
+void BuildPedllFile( DLLSPEC *spec )
{
- int nr_debug;
- char *prefix, *p, *constructor, *destructor;
+ int i, has_stubs = 0;
- while (*argv)
- {
- if (!parse_debug_channels( srcdir, *argv++ )) exit(1);
- }
+ output_standard_file_header();
- output_standard_file_header( outfile );
- nr_debug = output_debug( outfile );
- if (!nr_debug)
+ for (i = 0; i < spec->nb_entry_points; i++)
{
- fprintf( outfile, "/* no debug channels found for this module */\n" );
- return;
+ const ORDDEF *odp = &spec->entry_points[i];
+ if (odp->type == TYPE_STUB)
+ {
+ has_stubs = 1;
+ break;
+ }
}
- if (output_file_name)
+ if (!has_stubs)
{
- if ((p = strrchr( output_file_name, '/' ))) p++;
- prefix = xstrdup( p ? p : output_file_name );
- if ((p = strchr( prefix, '.' ))) *p = 0;
- strcpy( p, make_c_identifier(p) );
+ output( "/* This file is intentionally left blank */\n");
+ return;
}
- else prefix = xstrdup( "_" );
-
- /* Output the DLL constructor */
-
- constructor = xmalloc( strlen(prefix) + 17 );
- destructor = xmalloc( strlen(prefix) + 17 );
- sprintf( constructor, "__wine_dbg_%s_init", prefix );
- sprintf( destructor, "__wine_dbg_%s_fini", prefix );
- fprintf( outfile,
- "#ifdef __GNUC__\n"
- "void %s(void) __attribute__((constructor));\n"
- "void %s(void) __attribute__((destructor));\n"
- "#else\n"
- "static void __asm__dummy_dll_init(void) {\n",
- constructor, destructor );
- output_dll_init( outfile, constructor, destructor );
- fprintf( outfile, "}\n#endif /* defined(__GNUC__) */\n\n" );
-
- fprintf( outfile,
- "void %s(void)\n"
- "{\n"
- " extern void *__wine_dbg_register( char * const *, int );\n"
- " if (!debug_registration) debug_registration = __wine_dbg_register( debug_channels, %d );\n"
- "}\n\n", constructor, nr_debug );
- fprintf( outfile,
- "void %s(void)\n"
- "{\n"
- " extern void __wine_dbg_unregister( void* );\n"
- " __wine_dbg_unregister( debug_registration );\n"
- "}\n", destructor );
-
- free( constructor );
- free( destructor );
- free( prefix );
-}
+ output( "#include <windows.h>\n");
+ output( "#include <reactos/debug.h>\n");
-/*******************************************************************
- * BuildPedllFile
- *
- * Build a PE DLL C file from a spec file.
- */
-void BuildPedllFile( FILE *outfile, DLLSPEC *spec )
-{
- int nr_exports;
-
- nr_exports = spec->base <= spec->limit ? spec->limit - spec->base + 1 : 0;
- output_standard_file_header( outfile );
+ output( "DWORD __wine_spec_unimplemented_stub( const char *module, const char *function )\n");
+ output( "{\n");
+ output( " DPRINT1(\"%%s hit stub for %%s\\n\",module,function);");
+ output( "\n");
+ output( " SetLastError(ERROR_CALL_NOT_IMPLEMENTED);\n");
+ output( " return -1;\n");
+ output( "}\n");
- if (nr_exports)
- {
- /* Output the stub functions */
+ output( "static const char __wine_spec_file_name[] = \"%s\";\n\n", spec->file_name );
- output_stub_funcs( outfile, spec );
- }
+ /* Output the stub functions */
+ output_stub_funcs( spec );
}