Commit aa10c67e authored by Ben Gamari's avatar Ben Gamari Committed by Ben Gamari

rts/linker: Move loadArchive to new source file

Test Plan: Validate

Reviewers: DemiMarie, austin, simonmar, erikd

Reviewed By: DemiMarie

Subscribers: Phyx, thomie, hvr

Differential Revision: https://phabricator.haskell.org/D2642

GHC Trac Issues: #12388
parent 122d826d
This diff is collapsed.
......@@ -261,4 +261,36 @@ extern /*Str*/HashTable *symhash;
#include "EndPrivate.h"
HsInt isAlreadyLoaded( pathchar *path );
HsInt loadOc( ObjectCode* oc );
ObjectCode* mkOc( pathchar *path, char *image, int imageSize,
rtsBool mapped, char *archiveMemberName,
int misalignment
);
#ifdef darwin_HOST_OS
int machoGetMisalignment( FILE * f );
#endif /* darwin_HOST_OS */
#if defined (mingw32_HOST_OS)
/* We use myindex to calculate array addresses, rather than
simply doing the normal subscript thing. That's because
some of the above structs have sizes which are not
a whole number of words. GCC rounds their sizes up to a
whole number of words, which means that the address calcs
arising from using normal C indexing or pointer arithmetic
are just plain wrong. Sigh.
*/
STATIC_INLINE UChar *
myindex ( int scale, void* base, int index )
{
return
((UChar*)base) + scale * index;
}
char *cstring_from_section_name(
UChar* name,
UChar* strtab);
#endif /* mingw32_HOST_OS */
#endif /* LINKERINTERNALS_H */
This diff is collapsed.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment