diff options
author | Erlang/OTP <[email protected]> | 2010-02-02 13:06:57 +0000 |
---|---|---|
committer | Erlang/OTP <[email protected]> | 2010-02-02 13:06:57 +0000 |
commit | f9fef81dbd1a121b56e56a884101e83ee495e790 (patch) | |
tree | bf2c889e94db642aab10fc9d45bf9512c4483e13 /lib/erl_interface | |
parent | 921925be3c10d86f27597f1aebdbe0cde893a06a (diff) | |
parent | 938ccfe9c937c7d7716bb3f4fa17264ab03a240b (diff) | |
download | otp-f9fef81dbd1a121b56e56a884101e83ee495e790.tar.gz otp-f9fef81dbd1a121b56e56a884101e83ee495e790.tar.bz2 otp-f9fef81dbd1a121b56e56a884101e83ee495e790.zip |
Merge branch 'sf/erl_match-longlong' into ccase/r13b04_dev
* sf/erl_match-longlong:
erl_interface: Allow erl_match() to match ERL_LONGLONG and ERL_U_LONGLONG terms
OTP-8400 Allow erl_match() to match ERL_LONGLONG and ERL_U_LONGLONG terms
(Thanks to Scott Lystig Fritchie).
Diffstat (limited to 'lib/erl_interface')
-rw-r--r-- | lib/erl_interface/src/legacy/erl_eterm.c | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/lib/erl_interface/src/legacy/erl_eterm.c b/lib/erl_interface/src/legacy/erl_eterm.c index b685709c02..8d559f0f55 100644 --- a/lib/erl_interface/src/legacy/erl_eterm.c +++ b/lib/erl_interface/src/legacy/erl_eterm.c @@ -1,19 +1,19 @@ /* * %CopyrightBegin% - * - * Copyright Ericsson AB 1996-2009. All Rights Reserved. - * + * + * Copyright Ericsson AB 1996-2010. All Rights Reserved. + * * The contents of this file are subject to the Erlang Public License, * Version 1.1, (the "License"); you may not use this file except in * compliance with the License. You should have received a copy of the * Erlang Public License along with this software. If not, it can be * retrieved online at http://www.erlang.org/. - * + * * Software distributed under the License is distributed on an "AS IS" * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See * the License for the specific language governing rights and limitations * under the License. - * + * * %CopyrightEnd% */ /* @@ -786,6 +786,12 @@ ETERM *erl_copy_term(const ETERM *ep) case ERL_U_SMALL_BIG: ERL_INT_UVALUE(cp) = ERL_INT_UVALUE(ep); break; + case ERL_LONGLONG: + ERL_LL_VALUE(cp) = ERL_LL_VALUE(ep); + break; + case ERL_U_LONGLONG: + ERL_LL_UVALUE(cp) = ERL_LL_UVALUE(ep); + break; case ERL_FLOAT: ERL_FLOAT_VALUE(cp) = ERL_FLOAT_VALUE(ep); break; |