Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
2c64208b
Commit
2c64208b
authored
Feb 15, 2000
by
sewardj
Browse files
[project @ 2000-02-15 15:14:09 by sewardj]
Implement CONST_INT_big and CONST_ADDR_big.
parent
7c1668b4
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/rts/Evaluator.c
View file @
2c64208b
...
...
@@ -5,8 +5,8 @@
* Copyright (c) 1994-1998.
*
* $RCSfile: Evaluator.c,v $
* $Revision: 1.3
3
$
* $Date: 2000/02/15 1
3
:1
6:20
$
* $Revision: 1.3
4
$
* $Date: 2000/02/15 1
5
:1
4:09
$
* ---------------------------------------------------------------------------*/
#include
"Rts.h"
...
...
@@ -915,6 +915,12 @@ StgThreadReturnCode enter( Capability* cap, StgClosure* obj0 )
xPushTaggedInt
(
bcoConstInt
(
bco
,
BCO_INSTR_8
));
Continue
;
}
Case
(
i_CONST_INT_big
)
:
{
int
n
=
BCO_INSTR_16
;
xPushTaggedInt
(
bcoConstInt
(
bco
,
n
));
Continue
;
}
Case
(
i_PACK_INT
)
:
{
StgClosure
*
o
;
...
...
@@ -1005,6 +1011,12 @@ StgThreadReturnCode enter( Capability* cap, StgClosure* obj0 )
xPushTaggedAddr
(
bcoConstAddr
(
bco
,
BCO_INSTR_8
));
Continue
;
}
Case
(
i_CONST_ADDR_big
)
:
{
int
n
=
BCO_INSTR_16
;
xPushTaggedAddr
(
bcoConstAddr
(
bco
,
n
));
Continue
;
}
Case
(
i_PACK_ADDR
)
:
{
StgClosure
*
o
;
...
...
@@ -1268,11 +1280,9 @@ StgThreadReturnCode enter( Capability* cap, StgClosure* obj0 )
Case
(
i_VAR_FLOAT_big
)
:
Case
(
i_CONST_CHAR_big
)
:
Case
(
i_VAR_CHAR_big
)
:
Case
(
i_CONST_ADDR_big
)
:
Case
(
i_VAR_ADDR_big
)
:
Case
(
i_VAR_STABLE_big
)
:
Case
(
i_CONST_INTEGER_big
)
:
Case
(
i_CONST_INT_big
)
:
Case
(
i_VAR_INT_big
)
:
Case
(
i_VAR_WORD_big
)
:
Case
(
i_RETADDR_big
)
:
...
...
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