Automatic generation produced by ISE Eiffel

Classes
Clusters
Cluster hierarchy
Chart
Relations
Text
Flat
Contracts
Go to: 
note
	description: "[
		Exception raised when no more memory can be allocated.
	]"
	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 16:15:17 -0700 (Mon, 20 May 2013) $"
	revision: "$Revision: 92557 $"

class 
	NO_MORE_MEMORY

inherit
	EIFFEL_RUNTIME_EXCEPTION

create 
	default_create

feature -- Access

	frozen code: INTEGER_32
			-- Exception code
		do
			if internal_code = {EXCEP_CONST}.out_of_memory then
				Result := internal_code
			else
				Result := {EXCEP_CONST}.no_more_memory
			end
		end

	Tag: IMMUTABLE_STRING_32
			-- A short message describing what current exception is
		once
			create Result.make_from_string_8 ("No more memory.")
		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 NO_MORE_MEMORY


Classes
Clusters
Cluster hierarchy
Chart
Relations
Text
Flat
Contracts
Go to: 

-- Generated by ISE Eiffel --
For more details: www.eiffel.com