Add SetAllocIdx

clementval · clementval · commit e0335651c13b · 2024-07-30T10:52:56.000-07:00
diff --git a/flang/include/flang/ISO_Fortran_binding.h b/flang/include/flang/ISO_Fortran_binding.h
@@ -173,6 +173,9 @@ typedef struct CFI_cdesc_t {
   RT_API_ATTRS inline int GetAllocIdx() const {
     return ((int)extra >> _CFI_ADDENDUM_BITS);
   }
+  RT_API_ATTRS inline void SetAllocIdx(int pos) {
+    extra = extra | (pos << _CFI_ADDENDUM_BITS);
+  }
 #endif
 } CFI_cdesc_t;
 

Original file line number	Diff line number	Diff line change
`@@ -173,6 +173,9 @@ typedef struct CFI_cdesc_t {`
`173`	`173`	`RT_API_ATTRS inline int GetAllocIdx() const {`
`174`	`174`	`return ((int)extra >> _CFI_ADDENDUM_BITS);`
`175`	`175`	`}`
	`176`	`+ RT_API_ATTRS inline void SetAllocIdx(int pos) {`
	`177`	`+ extra = extra \| (pos << _CFI_ADDENDUM_BITS);`
	`178`	`+ }`
`176`	`179`	`#endif`
`177`	`180`	`} CFI_cdesc_t;`
`178`	`181`