diff options
| author | Kostis Sagonas <[email protected]> | 2011-02-10 02:05:44 +0200 |
|---|---|---|
| committer | Niclas Axelsson <[email protected]> | 2011-02-14 17:27:49 +0100 |
| commit | 7c53e286cc7f28fca00ff9fbd1c5ac241269b743 (patch) | |
| tree | 80cc31372fd1cb2bc38e55cd55099d546a91f05b /erts/emulator/hipe/hipe_amd64.c | |
| parent | e34f3a0c685e4933f717b83b1ec10c593104125e (diff) | |
| download | otp-7c53e286cc7f28fca00ff9fbd1c5ac241269b743.tar.gz otp-7c53e286cc7f28fca00ff9fbd1c5ac241269b743.tar.bz2 otp-7c53e286cc7f28fca00ff9fbd1c5ac241269b743.zip | |
New files for the 64-bit backends
Diffstat (limited to 'erts/emulator/hipe/hipe_amd64.c')
| -rw-r--r-- | erts/emulator/hipe/hipe_amd64.c | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/erts/emulator/hipe/hipe_amd64.c b/erts/emulator/hipe/hipe_amd64.c index cc20e1d0fa..b5dff06987 100644 --- a/erts/emulator/hipe/hipe_amd64.c +++ b/erts/emulator/hipe/hipe_amd64.c @@ -334,43 +334,3 @@ void hipe_arch_print_pcb(struct hipe_process_state *p) U("narity ", narity); #undef U } - -/* - * XXX: The following should really be moved to a generic hipe_bifs_64 file. - */ - -#if 0 /* unused */ -static int term_to_Sint64(Eterm term, Sint64 *sp) -{ - return term_to_Sint(term, sp); -} - -BIF_RETTYPE hipe_bifs_write_s64_2(BIF_ALIST_2) -{ - Sint64 *address; - Sint64 value; - - address = term_to_address(BIF_ARG_1); - if (!address || !hipe_word64_address_ok(address)) - BIF_ERROR(BIF_P, BADARG); - if (!term_to_Sint64(BIF_ARG_2, &value)) - BIF_ERROR(BIF_P, BADARG); - *address = value; - BIF_RET(NIL); -} -#endif - -BIF_RETTYPE hipe_bifs_write_u64_2(BIF_ALIST_2) -{ - Uint64 *address; - Uint64 value; - - address = term_to_address(BIF_ARG_1); - if (!address || !hipe_word64_address_ok(address)) - BIF_ERROR(BIF_P, BADARG); - if (!term_to_Uint(BIF_ARG_2, &value)) - BIF_ERROR(BIF_P, BADARG); - *address = value; - hipe_flush_icache_word(address); - BIF_RET(NIL); -} |