10 #include "descriptor.h"
18   const Descriptor &specialDesc{derived.special.descriptor()};  in FindFinal()
41     const Descriptor &descriptor, const typeInfo::DerivedType &derived) {  in CallFinalSubroutine()  argument
42   if (const auto *special{FindFinal(derived, descriptor.rank())}) {  in CallFinalSubroutine()
44       std::size_t byteStride{descriptor.ElementBytes()};  in CallFinalSubroutine()
47       std::size_t elements{descriptor.Elements()};  in CallFinalSubroutine()
49         p(descriptor.OffsetElement<char>(j * byteStride));  in CallFinalSubroutine()
52       auto p{reinterpret_cast<void (*)(const Descriptor &)>(special->proc)};  in CallFinalSubroutine()
53       p(descriptor);  in CallFinalSubroutine()
57       p(descriptor.OffsetElement<char>());  in CallFinalSubroutine()
63     const typeInfo::Value &value, const Descriptor &descriptor) {  in GetValue()  argument
65     return descriptor.Addendum()->LenParameterValue(value.value);  in GetValue()
74 void Destroy(const Descriptor &descriptor, bool finalize,  in Destroy()  argument
77     CallFinalSubroutine(descriptor, derived);  in Destroy()
79   const Descriptor &componentDesc{derived.component.descriptor()};  in Destroy()
81   std::size_t elements{descriptor.Elements()};  in Destroy()
82   std::size_t byteStride{descriptor.ElementBytes()};  in Destroy()
89         descriptor.OffsetElement<Descriptor>(j * byteStride + comp.offset)  in Destroy()
93         comp.derivedType.descriptor().raw().base_addr) {  in Destroy()
95       const Descriptor &boundsDesc{comp.bounds.descriptor()};  in Destroy()
100                 descriptor) -  in Destroy()
103                 descriptor) +  in Destroy()
107       Descriptor &compDesc{staticDescriptor.descriptor()};  in Destroy()
108       const auto &compType{*comp.derivedType.descriptor()  in Destroy()
112             descriptor.OffsetElement<char>(j * byteStride + comp.offset),  in Destroy()
118   const Descriptor &parentDesc{derived.parent.descriptor()};  in Destroy()
120     Destroy(descriptor, finalize, *parent);  in Destroy()