note description: "Summary description for {COMPILE_UNIT_DESCRIPTOR}." author: "" date: "$Date$" revision: "$Revision$" class COMPILE_UNIT_DESCRIPTOR inherit FILE_DESCRIPTOR_GENERAL create make feature make (context: LLVM_CONTEXT; source_file_name_a: STRING_8; source_file_directory_a: STRING_8; producer_a: STRING_8; main_unit_a: BOOLEAN; optimized_a: BOOLEAN; flags: STRING_8; runtime_version_a: INTEGER_32) local values: VALUE_VECTOR do create values.make values.push_back (create {CONSTANT_INT}.make (create {INTEGER_TYPE}.make (context, 32), (0x70000 + 17).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), dw_lang_c99)) 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 (create {MD_STRING}.make (context, producer_a)) values.push_back (create {CONSTANT_INT}.make (create {INTEGER_TYPE}.make (context, 1), main_unit_a.to_integer.to_natural_64)) values.push_back (create {CONSTANT_INT}.make (create {INTEGER_TYPE}.make (context, 1), optimized_a.to_integer.to_natural_64)) values.push_back (create {MD_STRING}.make (context, flags)) values.push_back (create {CONSTANT_INT}.make (create {INTEGER_TYPE}.make (context, 32), runtime_version_a.to_natural_64)) create descriptor.make (context, values) end dw_lang_c: NATURAL_64 = 0x0002 dw_lang_c99: NATURAL_64 = 0x000c end