Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
jberryman
GHC
Commits
52f5a164
Commit
52f5a164
authored
Jun 09, 2002
by
matthewc
Browse files
[project @ 2002-06-09 13:37:41 by matthewc]
Initial GHCI support on IA64.
parent
400b162b
Changes
3
Expand all
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/ghci/ByteCodeItbls.lhs
View file @
52f5a164
...
...
@@ -147,9 +147,8 @@ mkJumpToAddr a
0x8610E000 .|. (lo10 w32),
0x81C0C000,
0x01000000 ]
#endif
#if i386_TARGET_ARCH
#
el
if i386_TARGET_ARCH
-- Let the address to jump to be 0xWWXXYYZZ.
-- Generate movl $0xWWXXYYZZ,%eax ; jmp *%eax
-- which is
...
...
@@ -165,9 +164,8 @@ mkJumpToAddr a
0xFF, 0xE0]
in
insnBytes
#endif
#if alpha_TARGET_ARCH
#
el
if alpha_TARGET_ARCH
type ItblCode = Word32
mkJumpToAddr a
= [ 0xc3800000 -- br at, .+4
...
...
@@ -177,6 +175,11 @@ mkJumpToAddr a
, fromIntegral (w64 .&. 0x0000FFFF)
, fromIntegral ((w64 `shiftR` 32) .&. 0x0000FFFF) ]
where w64 = fromIntegral (ptrToInt a) :: Word64
#else
type ItblCode = Word32
mkJumpToAddr a
= undefined
#endif
...
...
ghc/rts/Linker.c
View file @
52f5a164
This diff is collapsed.
Click to expand it.
ghc/rts/LinkerInternals.h
View file @
52f5a164
/* -----------------------------------------------------------------------------
* $Id: LinkerInternals.h,v 1.
5
200
1
/0
9
/0
4
1
6:33:04 sewardj
Exp $
* $Id: LinkerInternals.h,v 1.
6
200
2
/0
6
/0
9
1
3:37:44 matthewc
Exp $
*
* (c) The GHC Team, 2000
*
...
...
@@ -70,7 +70,13 @@ typedef struct _ObjectCode {
safely be prodded during relocation. Any attempt to prod
outside one of these is an error in the linker. */
ProddableBlock
*
proddables
;
#ifdef ia64_TARGET_ARCH
/* Procedure Linkage Table for this object */
void
*
plt
;
unsigned
int
pltIndex
;
#endif
}
ObjectCode
;
extern
ObjectCode
*
objects
;
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment