diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2013-05-21 18:09:55 +0200 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2014-01-28 15:56:26 +0100 |
| commit | 03d5bb0d1bd5d7c4e09ee793a680f2d538fe0122 (patch) | |
| tree | 31901126a576691551cfb030cb2aef89243b4089 /erts/emulator/beam/erl_bif_op.c | |
| parent | 345bf9d4634f81ad0343e8c60442bdd293e41835 (diff) | |
| download | otp-03d5bb0d1bd5d7c4e09ee793a680f2d538fe0122.tar.gz otp-03d5bb0d1bd5d7c4e09ee793a680f2d538fe0122.tar.bz2 otp-03d5bb0d1bd5d7c4e09ee793a680f2d538fe0122.zip | |
erts: Initial Map instructions, type and structure
Diffstat (limited to 'erts/emulator/beam/erl_bif_op.c')
| -rw-r--r-- | erts/emulator/beam/erl_bif_op.c | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/erts/emulator/beam/erl_bif_op.c b/erts/emulator/beam/erl_bif_op.c index adac0052d6..37dd6457db 100644 --- a/erts/emulator/beam/erl_bif_op.c +++ b/erts/emulator/beam/erl_bif_op.c @@ -36,6 +36,7 @@ #include "dist.h" #include "erl_version.h" #include "erl_binary.h" +#include "erl_map.h" BIF_RETTYPE and_2(BIF_ALIST_2) { @@ -321,7 +322,10 @@ BIF_RETTYPE is_record_3(BIF_ALIST_3) BIF_RET(am_false); } - - - - +BIF_RETTYPE is_map_1(BIF_ALIST_1) +{ + if (is_map(BIF_ARG_1)) { + BIF_RET(am_true); + } + BIF_RET(am_false); +} |