Skip to content
Browse files

Fixes for last commit.

git-svn-id: https://polyml.svn.sourceforge.net/svnroot/polyml/trunk@1608 57040599-48ee-4647-8227-d26cbd406fcb
  • Loading branch information...
1 parent 4c9de4d commit 37700300befbddc0135d93e850fcdfef71599153 dcjm committed Oct 5, 2012
Showing with 4 additions and 2 deletions.
  1. +3 −1 polyml/basis/build.sml
  2. +1 −1 polyml/libpolyml/run_time.cpp
View
4 polyml/basis/build.sml
@@ -49,7 +49,9 @@ val () = Bootstrap.use "basis/LargeWord.sml";
val () =
if LargeWord.wordSize = 32
then Bootstrap.use "basis/Word32.sml"
- else Bootstrap.use "basis/Word32In64.sml";
+ else if LargeWord.wordSize = 64
+ then Bootstrap.use "basis/Word32In64.sml"
+ else ();
val () = Bootstrap.use "basis/Word8.sml";
val () = Bootstrap.use "basis/INTEGER.sml";
View
2 polyml/libpolyml/run_time.cpp
@@ -876,7 +876,7 @@ static Handle shift_right_word_c(TaskData *taskData, Handle y, Handle x)
static Handle shift_right_arith_word_c(TaskData *taskData, Handle y, Handle x)
{
POLYSIGNED wx = UNTAGGED(DEREFWORD(x)); /* Treat as a signed quantity. */
- POLYSIGNED wy = UNTAGGED(DEREFWORD(y));
+ POLYUNSIGNED wy = UNTAGGED_UNSIGNED(DEREFWORD(y));
// This function in ML is defined to return 0 or ~1 if the shift is greater
// than the number of bits in the word.
// C does not actually define how signed values are shifted although most

0 comments on commit 3770030

Please sign in to comment.
Something went wrong with that request. Please try again.