summaryrefslogtreecommitdiff
path: root/rts
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2022-03-28 19:30:28 -0400
committerBen Gamari <ben@smart-cactus.org>2022-04-06 15:18:37 -0400
commit59787ba55265e4632207e71f04a8d164d807791e (patch)
treeff70e7d2e08e005bc45063e9604398d22a96d5a0 /rts
parent3233374778d0deb0a99774319463d198d0ff0f65 (diff)
downloadhaskell-59787ba55265e4632207e71f04a8d164d807791e.tar.gz
linker/PEi386: More descriptive error message
Diffstat (limited to 'rts')
-rw-r--r--rts/linker/PEi386.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/linker/PEi386.c b/rts/linker/PEi386.c
index 2a90779142..cbe99f27a9 100644
--- a/rts/linker/PEi386.c
+++ b/rts/linker/PEi386.c
@@ -537,7 +537,7 @@ COFF_OBJ_TYPE getObjectType ( char* image, pathchar* fileName )
*************/
COFF_HEADER_INFO* getHeaderInfo ( ObjectCode* oc )
{
- COFF_OBJ_TYPE coff_type = getObjectType (oc->image, oc->fileName);
+ COFF_OBJ_TYPE coff_type = getObjectType (oc->image, OC_INFORMATIVE_FILENAME(oc));
COFF_HEADER_INFO* info
= stgMallocBytes (sizeof(COFF_HEADER_INFO), "getHeaderInfo");