ed/raddebugger
1
0 Fork 0
mirror of https://github.com/Ed94/raddebugger.git synced 2026-10-14 21:09:41 -07:00
Code Issues Packages Projects Releases Wiki Activity

add /FAILIFMISMATCH

Browse Source
This commit is contained in:
Nikita Smith committed 2026-02-05 19:45:34 -08:00
1 parent 8b729d4588
commit 0015e52d3c
5 files changed
+103 -16
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/torture/torture_radlink.c
+53
View File
@@ -40,6 +40,16 @@ t_make_sec_defn_obj(Arena *arena, String8 payload)
return obj;
}
internal String8
t_make_obj_with_directive(Arena *arena, String8 directive)
{
COFF_ObjWriter *cow = coff_obj_writer_alloc(0, COFF_MachineType_X64);
coff_obj_writer_push_directive(cow, directive);
String8 obj = coff_obj_writer_serialize(arena, cow);
coff_obj_writer_release(&cow);
return obj;
}
internal String8
t_make_entry_obj(Arena *arena)
{
@@ -3856,5 +3866,48 @@ T_BeginTest(opt_ref_dangling_section)
}
T_EndTest;
T_BeginTest(fail_if_mismatch)
{
T_Ok(t_write_entry_obj());
// ------------------------------------------------------------
// try linking two objs with mismatching directives
String8 a1 = t_make_obj_with_directive(scratch.arena, str8_lit("/FAILIFMISMATCH:a=1"));
String8 a2 = t_make_obj_with_directive(scratch.arena, str8_lit("/FAILIFMISMATCH:a=2"));
T_Ok(t_write_file(str8_lit("a1.obj"), a1));
T_Ok(t_write_file(str8_lit("a2.obj"), a2));
t_invoke_linkerf("entry.obj a1.obj a2.obj /entry:entry /subsystem:console /out:a2.exe");
if (t_id_linker() == T_Linker_RAD) T_Ok(g_last_exit_code == LNK_Error_FailIfMismatch);
else T_Ok(g_last_exit_code != 0);
// ------------------------------------------------------------
// happy case
T_Ok(t_write_file(str8_lit("a1_copy.obj"), a1));
t_invoke_linkerf("entry.obj a1.obj a1_copy.obj /entry:entry /subsystem:console /out:a1.exe");
T_Ok(g_last_exit_code == 0);
// ------------------------------------------------------------
// test conflicting directives in obj
String8 conf_dirs = t_make_obj_with_directive(scratch.arena, str8_lit("/FAILIFMISMATCH:a=1 /FAILIFMISMATCH:a=2"));
T_Ok(t_write_file(str8_lit("conf_dirs.obj"), conf_dirs));
t_invoke_linkerf("entry.obj conf_dirs.obj /entry:entry /subsystem:console /out:conf_dirs.exe");
if (t_id_linker() == T_Linker_RAD) T_Ok(g_last_exit_code == LNK_Error_FailIfMismatch);
else T_Ok(g_last_exit_code != 0);
// ------------------------------------------------------------
// passing switch on command line
t_invoke_linkerf("entry.obj a1.obj /FAILIFMISMATCH:a=2 /out:cmddir.exe");
if (t_id_linker() == T_Linker_RAD) T_Ok(g_last_exit_code == LNK_Error_FailIfMismatch);
else T_Ok(g_last_exit_code != 0);
}
T_EndTest;
#undef T_Group