note description: "[ Eiffel runtime panic ]" library: "Free implementation of ELKS library" copyright: "Copyright (c) 1986-2006, Eiffel Software and others" license: "Eiffel Forum License v2 (see forum.txt)" date: "$Date: 2013-05-20 23:15:17 +0000 (Mon, 20 May 2013) $" revision: "$Revision: 92557 $" class EIFFEL_RUNTIME_PANIC inherit SYS_EXCEPTION create default_create feature -- Access frozen code: INTEGER_32 -- Exception code do if internal_code = {EXCEP_CONST}.eiffel_runtime_fatal_error then Result := internal_code else Result := {EXCEP_CONST}.eiffel_runtime_panic end end Tag: IMMUTABLE_STRING_32 -- A short message describing what current exception is once create Result.make_from_string_8 ("Eiffel run-time panic.") end feature {EXCEPTION_MANAGER} -- Status setting set_code (a_code: like code) -- Set code with a_code. do internal_code := code end feature {NONE} -- Accesss internal_code: like code -- Internal code end -- class EIFFEL_RUNTIME_PANIC
Generated by ISE EiffelStudio