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

class
	FILE_DESCRIPTOR

inherit

	FILE_DESCRIPTOR_GENERAL

create

	make

feature

	make (context: LLVM_CONTEXT; source_file_name_a: STRING_8; source_file_directory_a: STRING_8; compile_unit_a: COMPILE_UNIT_DESCRIPTOR)
		local
			values: VALUE_VECTOR
		do
			create values.make
			values.push_back (create {CONSTANT_INT}.make (create {INTEGER_TYPE}.make (context, 32), (0x70000 + 41).to_natural_64))
			values.push_back (create {MD_STRING}.make (context, source_file_name_a))
			values.push_back (create {MD_STRING}.make (context, source_file_directory_a))
			values.push_back (compile_unit_a.descriptor)
			create descriptor.make (context, values)
		end

end