← Back to branch summary

~ubuntu-branches/ubuntu/trusty/erlang/trusty

« back to all changes in this revision

Viewing changes to lib/ic/src/ic_pragma.erl

  • Committer: Bazaar Package Importer
  • Author(s): Clint Byrum
  • Date: 2011-05-05 15:48:43 UTC
  • mfrom: (3.5.13 sid)
  • Revision ID: james.westby@ubuntu.com-20110505154843-0om6ekzg6m7ugj27
Tags: 1:14.b.2-dfsg-3ubuntu1
* Merge from debian unstable.  Remaining changes:
  - Drop libwxgtk2.8-dev build dependency. Wx isn't in main, and not
    supposed to.
  - Drop erlang-wx binary.
  - Drop erlang-wx dependency from -megaco, -common-test, and -reltool, they
    do not really need wx. Also drop it from -debugger; the GUI needs wx,
    but it apparently has CLI bits as well, and is also needed by -megaco,
    so let's keep the package for now.
  - debian/patches/series: Do what I meant, and enable build-options.patch
    instead.
* Additional changes:
  - Drop erlang-wx from -et
* Dropped Changes:
  - patches/pcre-crash.patch: CVE-2008-2371: outer level option with
    alternatives caused crash. (Applied Upstream)
  - fix for ssl certificate verification in newSSL: 
    ssl_cacertfile_fix.patch (Applied Upstream)
  - debian/patches/series: Enable native.patch again, to get stripped beam
    files and reduce the package size again. (build-options is what
    actually accomplished this)
  - Remove build-options.patch on advice from upstream and because it caused
    odd build failures.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/ic/src/ic_pragma.erl
1
1
%%
2
2
%% %CopyrightBegin%
3
3
%% 
4
 
%% Copyright Ericsson AB 1998-2009. All Rights Reserved.
 
4
%% Copyright Ericsson AB 1998-2010. All Rights Reserved.
5
5
%% 
6
6
%% The contents of this file are subject to the Erlang Public License,
7
7
%% Version 1.1, (the "License"); you may not use this file except in
60
60
    init_pragma_status(S),
61
61
    registerOptions(G,S),
62
62
    pragma_reg_all(G, S, [], X),
63
 
    denote_specific_code_opts(G), %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
63
    denote_specific_code_opts(G),
64
64
    case get_pragma_compilation_status(S) of
65
65
        true ->
66
66
            %% Remove ugly pragmas from form
132
132
 
133
133
%% This removes all pragma records from the form.
134
134
%% When debugged, it can be enbodied in pragma_reg_all.
 
135
cleanup(undefined,C) -> C;
135
136
cleanup([],C) -> C;
136
137
cleanup([X|Xs],CSF) ->
137
138
    cleanup(Xs, CSF++cleanup(X)).
279
280
pragma_reg(G, S, N, X) when is_record(X, struct) -> 
280
281
    mk_ref(G,[get_id2(X) | N],struct_ref),
281
282
    mk_file_data(G,X,N,struct),
282
 
    pragma_reg_all(G, S, N, X#struct.body);
 
283
    case X#struct.body of
 
284
        undefined ->
 
285
            ok;
 
286
        _ ->
 
287
            pragma_reg_all(G, S, N, X#struct.body)
 
288
    end;
283
289
 
284
290
pragma_reg(G, _S, N, X) when is_record(X, attr) -> 
285
291
    XX = #id_of{type=X},