From 84adefa331c4159d432d22840663c38f155cd4c1 Mon Sep 17 00:00:00 2001 From: Erlang/OTP Date: Fri, 20 Nov 2009 14:54:40 +0000 Subject: The R13B03 release. --- .../compilation_SUITE_data/beam_compiler_4.erl | 150 +++++++++++++++++++++ 1 file changed, 150 insertions(+) create mode 100644 lib/compiler/test/compilation_SUITE_data/beam_compiler_4.erl (limited to 'lib/compiler/test/compilation_SUITE_data/beam_compiler_4.erl') diff --git a/lib/compiler/test/compilation_SUITE_data/beam_compiler_4.erl b/lib/compiler/test/compilation_SUITE_data/beam_compiler_4.erl new file mode 100644 index 0000000000..5e74d3cd3c --- /dev/null +++ b/lib/compiler/test/compilation_SUITE_data/beam_compiler_4.erl @@ -0,0 +1,150 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 1997-2009. 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% +%% +-module(beam_compiler_4). +-export([beam_compiler_4/0]). + +%% From Ulf Wiger. + +beam_compiler_4() -> + ok. + +selected_alarm(_Env, Parameters) -> + UnWebParam = x, + [Time, Severity, Info, Cause, + Type, Sender, Name, FaultId] = bar:foo(), + + %% The following case generates no test heap instructions, + %% but the test heap generated before the call to bar:foo(), + %% will be moved to here. And the number of words to allocate + %% will be ridicously big (> 65535) and will not fit in a 16 big + %% word. + + SenderLink = case Name of + "pchScheduledConnectionAlarm" -> + Sender; + "pchVpVcAlarm" -> + Sender; + "pchSystemMemoryAlarm" -> + Sender; + "uniProtocolRestartFailureAlarm" -> + Sender; + "spvcScheduledConnectionAlarm" -> + Sender; + "eqmSwitchCoreInterfaceAlarm" -> + Sender; + "atmPhysicalLayerAlarm" -> + Sender; + "atmBufferCongestionAlarm" -> + Sender; + "sdhLinkAlarm" -> + Sender; + "sdhFarEndAlarm" -> + Sender; + "sdhUpperQosAlarm" -> + Sender; + "sdhLowerQosAlarm" -> + Sender; + "eqmSwitchCoreAlarm" -> + Sender; + "eqmEtAlarm" -> + Sender; + "eqmHwIdentityFaultAlarm" -> + Sender; + "eqmOperatorBlockedEquipmentAlarm" -> + Sender; + "pdh34PathAlarm" -> + Sender; + "pdh34ObservationAlarm" -> + Sender; + "pdh34UpperQosAlarm" -> + Sender; + "pdh34LowerQosAlarm" -> + Sender; + "nsySynchRefAlarm" -> + Sender; + "nsySynchRefBlockedAlarm" -> + Sender; + "nsySynchNodeHoldoverAlarm" -> + Sender; + "nsySynchNodeNotWorkingAlarm" -> + Sender; + "eqmAtbAlarm" -> + Sender; + "eqmCbEtAlarm" -> + Sender; + "eqmCpAlarm" -> + Sender; + "eqmCpInterfaceAlarm" -> + Sender; + "eqmCbClkAlarm" -> + Sender; + "eqmCbClkInterfaceAlarm" -> + Sender; + "eqmCbClkVelocityAlarm" -> + Sender; + "eqmCbClkPhaseDiffAlarm" -> + Sender; + "eqmHwNotFoundAlarm" -> + Sender; + "eqmPduAlarm" -> + Sender; + "eqmFanAlarm" -> + Sender; + "eqmLocAlarm" -> + Sender; + "eqmCustomerDefined1Alarm" -> + Sender; + "eqmCustomerDefined2Alarm" -> + Sender; + "eqmCustomerDefined3Alarm" -> + Sender; + "eqmCustomerDefined4Alarm" -> + Sender; + "eqmOperatorBlockedLinkAlarm" -> + Sender; + "eqmPowerFilterAlarm" -> + Sender; + "eqmCbAbrAlarm" -> + Sender; + "eqmAlarmCutOffAlarm" -> + Sender; + OtherAlarm -> + Sender + end, + + %% The testHeap instruction generated here will move up to before + %% the case. + + bar:foo(" +
Fault id: + " ++ FaultId ++ " +
Name: + " ++ Name ++ " +
Sender: + " ++ SenderLink ++ " +
Class: + " ++ Type ++ " +
Cause: + " ++ Cause ++ " +
Severity: + " ++ Severity ++ " +
Information: + " ++ Info ++ " +
Time: + " ++ Time). -- cgit v1.2.3