diff options
Diffstat (limited to 'mps/code')
| -rw-r--r-- | mps/code/amcss.c | 4 | ||||
| -rw-r--r-- | mps/code/amcsshe.c | 2 | ||||
| -rw-r--r-- | mps/code/amcssth.c | 2 | ||||
| -rw-r--r-- | mps/code/amsss.c | 2 | ||||
| -rw-r--r-- | mps/code/amssshe.c | 3 | ||||
| -rw-r--r-- | mps/code/exposet0.c | 2 | ||||
| -rw-r--r-- | mps/code/mpsicv.c | 9 | ||||
| -rw-r--r-- | mps/code/segsmss.c | 3 | ||||
| -rw-r--r-- | mps/code/steptest.c | 3 | ||||
| -rw-r--r-- | mps/code/walkt0.c | 2 |
10 files changed, 13 insertions, 19 deletions
diff --git a/mps/code/amcss.c b/mps/code/amcss.c index 279b33ce407..277ffca434a 100644 --- a/mps/code/amcss.c +++ b/mps/code/amcss.c | |||
| @@ -38,9 +38,7 @@ static mps_gen_param_s testChain[genCOUNT] = { | |||
| 38 | 38 | ||
| 39 | 39 | ||
| 40 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ | 40 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ |
| 41 | /* @@@@ W3I6MV Temporary fix (ull) to prevent Microsoft C complaining. Need | 41 | #define objNULL ((mps_addr_t)MPS_WORD_CONST(0xDECEA5ED)) |
| 42 | to work out what to do about such cases. */ | ||
| 43 | #define objNULL ((mps_addr_t)0xDECEA5EDull) | ||
| 44 | 42 | ||
| 45 | 43 | ||
| 46 | static mps_pool_t pool; | 44 | static mps_pool_t pool; |
diff --git a/mps/code/amcsshe.c b/mps/code/amcsshe.c index edc76a16deb..646f6c4f90b 100644 --- a/mps/code/amcsshe.c +++ b/mps/code/amcsshe.c | |||
| @@ -41,7 +41,7 @@ static mps_gen_param_s testChain[genCOUNT] = { | |||
| 41 | 41 | ||
| 42 | 42 | ||
| 43 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ | 43 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ |
| 44 | #define objNULL ((mps_addr_t)0xDECEA5ED) | 44 | #define objNULL ((mps_addr_t)MPS_WORD_CONST(0xDECEA5ED)) |
| 45 | 45 | ||
| 46 | 46 | ||
| 47 | static mps_pool_t pool; | 47 | static mps_pool_t pool; |
diff --git a/mps/code/amcssth.c b/mps/code/amcssth.c index e71849d72fa..08597be51a4 100644 --- a/mps/code/amcssth.c +++ b/mps/code/amcssth.c | |||
| @@ -38,7 +38,7 @@ static mps_gen_param_s testChain[genCOUNT] = { | |||
| 38 | 38 | ||
| 39 | 39 | ||
| 40 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ | 40 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ |
| 41 | #define objNULL ((mps_addr_t)0xDECEA5ED) | 41 | #define objNULL ((mps_addr_t)MPS_WORD_CONST(0xDECEA5ED)) |
| 42 | 42 | ||
| 43 | 43 | ||
| 44 | static mps_pool_t pool; | 44 | static mps_pool_t pool; |
diff --git a/mps/code/amsss.c b/mps/code/amsss.c index 394107abe29..c561aa96ff1 100644 --- a/mps/code/amsss.c +++ b/mps/code/amsss.c | |||
| @@ -31,7 +31,7 @@ | |||
| 31 | #define totalSizeSTEP 200 * (size_t)1024 | 31 | #define totalSizeSTEP 200 * (size_t)1024 |
| 32 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ | 32 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ |
| 33 | /* @@@@ temporary fix W3I6MV */ | 33 | /* @@@@ temporary fix W3I6MV */ |
| 34 | #define objNULL ((mps_addr_t)0xDECEA5EDull) | 34 | #define objNULL ((mps_addr_t)MPS_WORD_CONST(0xDECEA5ED)) |
| 35 | #define testArenaSIZE ((size_t)16<<20) | 35 | #define testArenaSIZE ((size_t)16<<20) |
| 36 | #define initTestFREQ 3000 | 36 | #define initTestFREQ 3000 |
| 37 | #define splatTestFREQ 6000 | 37 | #define splatTestFREQ 6000 |
diff --git a/mps/code/amssshe.c b/mps/code/amssshe.c index d80a83f7aaa..4e7c09c10f0 100644 --- a/mps/code/amssshe.c +++ b/mps/code/amssshe.c | |||
| @@ -28,8 +28,7 @@ | |||
| 28 | #define totalSizeMAX 800 * (size_t)1024 | 28 | #define totalSizeMAX 800 * (size_t)1024 |
| 29 | #define totalSizeSTEP 200 * (size_t)1024 | 29 | #define totalSizeSTEP 200 * (size_t)1024 |
| 30 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ | 30 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ |
| 31 | /* @@@@ Temporary fix for W3I6MV build ull */ | 31 | #define objNULL ((mps_addr_t)MPS_WORD_CONST(0xDECEA5ED)) |
| 32 | #define objNULL ((mps_addr_t)0xDECEA5EDull) | ||
| 33 | #define testArenaSIZE ((size_t)16<<20) | 32 | #define testArenaSIZE ((size_t)16<<20) |
| 34 | #define initTestFREQ 6000 | 33 | #define initTestFREQ 6000 |
| 35 | static mps_gen_param_s testChain[1] = { { 160, 0.90 } }; | 34 | static mps_gen_param_s testChain[1] = { { 160, 0.90 } }; |
diff --git a/mps/code/exposet0.c b/mps/code/exposet0.c index 009347ec8bd..c7000214d97 100644 --- a/mps/code/exposet0.c +++ b/mps/code/exposet0.c | |||
| @@ -45,7 +45,7 @@ static mps_gen_param_s testChain[genCOUNT] = { | |||
| 45 | 45 | ||
| 46 | 46 | ||
| 47 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ | 47 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ |
| 48 | #define objNULL ((mps_addr_t)0xDECEA5ED) | 48 | #define objNULL ((mps_addr_t)MPS_WORD_CONST(0xDECEA5ED)) |
| 49 | 49 | ||
| 50 | 50 | ||
| 51 | static mps_pool_t pool_g; | 51 | static mps_pool_t pool_g; |
diff --git a/mps/code/mpsicv.c b/mps/code/mpsicv.c index 0d4fcf88361..4440d648333 100644 --- a/mps/code/mpsicv.c +++ b/mps/code/mpsicv.c | |||
| @@ -29,8 +29,7 @@ | |||
| 29 | #define patternFREQ 100 | 29 | #define patternFREQ 100 |
| 30 | 30 | ||
| 31 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ | 31 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ |
| 32 | /* @@@@ Temporary fix W3I6MV ull */ | 32 | #define objNULL ((mps_addr_t)MPS_WORD_CONST(0xDECEA5ED)) |
| 33 | #define objNULL ((mps_addr_t)0xDECEA5EDull) | ||
| 34 | #define FILLER_OBJECT_SIZE 1023 | 33 | #define FILLER_OBJECT_SIZE 1023 |
| 35 | 34 | ||
| 36 | #define genCOUNT 2 | 35 | #define genCOUNT 2 |
| @@ -263,10 +262,10 @@ static void addr_pool_test(mps_arena_t arena, | |||
| 263 | mps_addr_t addr; | 262 | mps_addr_t addr; |
| 264 | /* DISTInguished values are to observe overwrites. */ | 263 | /* DISTInguished values are to observe overwrites. */ |
| 265 | /* @@@@ Temporary fix W3I6MV ull */ | 264 | /* @@@@ Temporary fix W3I6MV ull */ |
| 266 | mps_pool_t poolDistinguished = (mps_pool_t)0x000d1521ull; | 265 | mps_pool_t poolDistinguished = (mps_pool_t)MPS_WORD_CONST(0x000d1521); |
| 267 | mps_pool_t pool = poolDistinguished; | 266 | mps_pool_t pool = poolDistinguished; |
| 268 | /* @@@@ Temporary fix W3I6MV ull */ | 267 | /* @@@@ Temporary fix W3I6MV ull */ |
| 269 | mps_fmt_t fmtDistinguished = (mps_fmt_t)0x000d1521ull; | 268 | mps_fmt_t fmtDistinguished = (mps_fmt_t)MPS_WORD_CONST(0x000d1521); |
| 270 | mps_fmt_t fmt = fmtDistinguished; | 269 | mps_fmt_t fmt = fmtDistinguished; |
| 271 | 270 | ||
| 272 | /* 0a -- obj1 in pool1 (unformatted) */ | 271 | /* 0a -- obj1 in pool1 (unformatted) */ |
| @@ -441,7 +440,7 @@ static void *test(void *arg, size_t s) | |||
| 441 | die(mps_root_create_table_masked(&exactRoot, arena, | 440 | die(mps_root_create_table_masked(&exactRoot, arena, |
| 442 | MPS_RANK_EXACT, (mps_rm_t)0, | 441 | MPS_RANK_EXACT, (mps_rm_t)0, |
| 443 | &exactRoots[0], exactRootsCOUNT, | 442 | &exactRoots[0], exactRootsCOUNT, |
| 444 | (mps_word_t)1ull), | 443 | MPS_WORD_CONST(1)), |
| 445 | "root_create_table(exact)"); | 444 | "root_create_table(exact)"); |
| 446 | die(mps_root_create_table(&ambigRoot, arena, | 445 | die(mps_root_create_table(&ambigRoot, arena, |
| 447 | MPS_RANK_AMBIG, (mps_rm_t)0, | 446 | MPS_RANK_AMBIG, (mps_rm_t)0, |
diff --git a/mps/code/segsmss.c b/mps/code/segsmss.c index c0b18af8f6f..75dffa5e772 100644 --- a/mps/code/segsmss.c +++ b/mps/code/segsmss.c | |||
| @@ -714,8 +714,7 @@ static mps_class_t mps_class_amst(void) | |||
| 714 | #define totalSizeMAX sizeScale * 800 * (size_t)1024 | 714 | #define totalSizeMAX sizeScale * 800 * (size_t)1024 |
| 715 | #define totalSizeSTEP 200 * (size_t)1024 | 715 | #define totalSizeSTEP 200 * (size_t)1024 |
| 716 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ | 716 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ |
| 717 | /* @@@@ Temporary fix W3I6MV */ | 717 | #define objNULL ((mps_addr_t)MPS_WORD_CONST(0xDECEA5ED)) |
| 718 | #define objNULL ((mps_addr_t)0xDECEA5EDDECEA5ED) | ||
| 719 | #define testArenaSIZE ((size_t)16<<20) | 718 | #define testArenaSIZE ((size_t)16<<20) |
| 720 | #define initTestFREQ 6000 | 719 | #define initTestFREQ 6000 |
| 721 | #define stressTestFREQ 40 | 720 | #define stressTestFREQ 40 |
diff --git a/mps/code/steptest.c b/mps/code/steptest.c index 0f357c511ea..b36d4c4fa5d 100644 --- a/mps/code/steptest.c +++ b/mps/code/steptest.c | |||
| @@ -63,8 +63,7 @@ static int test_number = 0; | |||
| 63 | 63 | ||
| 64 | 64 | ||
| 65 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ | 65 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ |
| 66 | /* @@@@ Temporary fix W3I6MV */ | 66 | #define objNULL ((mps_addr_t)MPS_WORD_CONST(0xDECEA5ED)) |
| 67 | #define objNULL ((mps_addr_t)0xDECEA5EDull) | ||
| 68 | 67 | ||
| 69 | static mps_pool_t pool; | 68 | static mps_pool_t pool; |
| 70 | static mps_ap_t ap; | 69 | static mps_ap_t ap; |
diff --git a/mps/code/walkt0.c b/mps/code/walkt0.c index 1764b3f9f10..4b2163d88ee 100644 --- a/mps/code/walkt0.c +++ b/mps/code/walkt0.c | |||
| @@ -42,7 +42,7 @@ static mps_gen_param_s testChain[genCOUNT] = { | |||
| 42 | }; | 42 | }; |
| 43 | 43 | ||
| 44 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ | 44 | /* objNULL needs to be odd so that it's ignored in exactRoots. */ |
| 45 | #define objNULL ((mps_addr_t)0xDECEA5ED) | 45 | #define objNULL ((mps_addr_t)MPS_WORD_CONST(0xDECEA5ED)) |
| 46 | 46 | ||
| 47 | static mps_ap_t ap; | 47 | static mps_ap_t ap; |
| 48 | static mps_addr_t exactRoots[exactRootsCOUNT]; | 48 | static mps_addr_t exactRoots[exactRootsCOUNT]; |