diff options
| author | Erlang/OTP <[email protected]> | 2010-12-14 17:21:22 +0100 |
|---|---|---|
| committer | Erlang/OTP <[email protected]> | 2010-12-14 17:21:22 +0100 |
| commit | 34f7f62caf25ef159b63ca4f080e212b8726675f (patch) | |
| tree | aa7df62e86bc519858bf7bde7b5106a5a5c48772 /lib/ic/src/ic_symtab.erl | |
| parent | caa311d4a2b5fb229d9369c7667b062b34945b36 (diff) | |
| parent | 98a66242abe688d852ec46f4298a364fc0124995 (diff) | |
| download | otp-34f7f62caf25ef159b63ca4f080e212b8726675f.tar.gz otp-34f7f62caf25ef159b63ca4f080e212b8726675f.tar.bz2 otp-34f7f62caf25ef159b63ca4f080e212b8726675f.zip | |
Merge branch 'nick/orber/recursive_types/OTP-8868' into maint-r13
* nick/orber/recursive_types/OTP-8868:
Support for recursive unions and structs. Break loop if recursive TypeCode.
Added basic tests for recursive uinions and structs.
Removed test code.
Added partial support for recursive IDL types.
Diffstat (limited to 'lib/ic/src/ic_symtab.erl')
| -rw-r--r-- | lib/ic/src/ic_symtab.erl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/ic/src/ic_symtab.erl b/lib/ic/src/ic_symtab.erl index 889c75e3a2..d710154a5d 100644 --- a/lib/ic/src/ic_symtab.erl +++ b/lib/ic/src/ic_symtab.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1998-2009. All Rights Reserved. +%% Copyright Ericsson AB 1998-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 @@ -69,6 +69,8 @@ store(G, N, X) -> ets:insert(G#genobj.symtab, {Name, X}); {ok, Y} when is_record(Y, forward) -> ets:insert(G#genobj.symtab, {Name, X}); + {ok, Y} when is_record(Y, constr_forward) -> + ets:insert(G#genobj.symtab, {Name, X}); {ok, _Y} -> ic_error:error(G, {multiply_defined, X}) end. |