aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorNiclas Eklund <[email protected]>2010-09-23 13:58:40 +0200
committerNiclas Eklund <[email protected]>2010-09-23 13:58:40 +0200
commit2261f2a35a758133d3694816bb9bc35f22cc2d46 (patch)
tree17996881c11b85679724c0a738f2cd0d39f0116b
parentad4911ae7cf3f9af4a3eac18ddfee4277db8a047 (diff)
downloadotp-2261f2a35a758133d3694816bb9bc35f22cc2d46.tar.gz
otp-2261f2a35a758133d3694816bb9bc35f22cc2d46.tar.bz2
otp-2261f2a35a758133d3694816bb9bc35f22cc2d46.zip
Removed test code.
-rw-r--r--lib/ic/src/ic_pragma.erl19
1 files changed, 1 insertions, 18 deletions
diff --git a/lib/ic/src/ic_pragma.erl b/lib/ic/src/ic_pragma.erl
index e60774f1ab..45cb64c9c8 100644
--- a/lib/ic/src/ic_pragma.erl
+++ b/lib/ic/src/ic_pragma.erl
@@ -60,28 +60,11 @@ pragma_reg(G,X) ->
init_pragma_status(S),
registerOptions(G,S),
pragma_reg_all(G, S, [], X),
- denote_specific_code_opts(G), %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ denote_specific_code_opts(G),
case get_pragma_compilation_status(S) of
true ->
%% Remove ugly pragmas from form
PragmaCleanForm = cleanup(X),
-%% PragmaCleanForm = [{preproc,line_nr,
-%% {'<string_literal>',1,
-%% "/home/nick/trash/recursive/b.idl"},
-%% []},
-%% {struct,{'<identifier>',2,"Foo"},[],undefined},
-%% {typedef,
-%% {sequence,{scoped_id,local,3,["Foo"]},0},
-%% [{'<identifier>',3,"FooSeq"}],
-%% undefined},
-%% {struct,
-%% {'<identifier>',4,"Foo"},
-%% [{member,{long,5},[{'<identifier>',5,"value"}]},
-%% {member,
-%% {scoped_id,local,6,["FooSeq"]},
-%% [{'<identifier>',6,"chain"}]}],
-%% undefined}],
-
{ok,PragmaCleanForm};
false ->
ErrorNr = get_pragma_error_nr(S),