diff options
| author | Niclas Eklund <[email protected]> | 2010-09-23 13:58:40 +0200 |
|---|---|---|
| committer | Niclas Eklund <[email protected]> | 2010-09-23 13:58:40 +0200 |
| commit | 2261f2a35a758133d3694816bb9bc35f22cc2d46 (patch) | |
| tree | 17996881c11b85679724c0a738f2cd0d39f0116b /lib/ic | |
| parent | ad4911ae7cf3f9af4a3eac18ddfee4277db8a047 (diff) | |
| download | otp-2261f2a35a758133d3694816bb9bc35f22cc2d46.tar.gz otp-2261f2a35a758133d3694816bb9bc35f22cc2d46.tar.bz2 otp-2261f2a35a758133d3694816bb9bc35f22cc2d46.zip | |
Removed test code.
Diffstat (limited to 'lib/ic')
| -rw-r--r-- | lib/ic/src/ic_pragma.erl | 19 |
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), |