note
	description: "Summary description for {SUBPROGRAM_DESCRIPTOR}."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	SUBPROGRAM_DESCRIPTOR

inherit

	BLOCK_DESCRIPTOR_GENERAL

create

	make

feature {NONE}

	make (context: LLVM_CONTEXT; descriptor_context: COMPILE_UNIT_DESCRIPTOR; name: STRING_8; display_name: STRING_8; mips_linkage_name: STRING_8; file: FILE_DESCRIPTOR_GENERAL; line: INTEGER_32; type: TYPE_DESCRIPTOR; static: BOOLEAN; defined: BOOLEAN)
		local
			values: VALUE_VECTOR
		do
			create values.make
			values.push_back (create {CONSTANT_INT}.make (create {INTEGER_TYPE}.make (context, 32), (0x70000 + 46).to_natural_64))
			values.push_back (create {CONSTANT_INT}.make (create {INTEGER_TYPE}.make (context, 32), 0))
			values.push_back (descriptor_context.descriptor)
			values.push_back (create {MD_STRING}.make (context, name))
			values.push_back (create {MD_STRING}.make (context, display_name))
			values.push_back (create {MD_STRING}.make (context, mips_linkage_name))
			values.push_back (file.descriptor)
			values.push_back (create {CONSTANT_INT}.make (create {INTEGER_TYPE}.make (context, 32), line.to_natural_64))
			values.push_back (type.descriptor)
			values.push_back (create {CONSTANT_INT}.make (create {INTEGER_TYPE}.make (context, 1), static.to_integer.to_natural_64))
			values.push_back (create {CONSTANT_INT}.make (create {INTEGER_TYPE}.make (context, 1), defined.to_integer.to_natural_64))
			values.push_back (create {CONSTANT_INT}.make (create {INTEGER_TYPE}.make (context, 32), 0))
			values.push_back (create {CONSTANT_INT}.make (create {INTEGER_TYPE}.make (context, 32), 0))
			values.push_back (create {MD_NODE}.make_null)
			values.push_back (create {CONSTANT_INT}.make (create {INTEGER_TYPE}.make (context, 1), 0))
			create descriptor.make (context, values)
		end
end