Mercurial > octave

comparison liboctave/util/f77-fcn.h @ 30177:2f39642b9084

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: f77-fcn.h: Use C++ named union declaration rather than C-style typedef. * f77-fcn.h: Use C++ named union declaration for "octave_cray_descriptor" rather than C-style typedef.
author Rik <rik@octave.org>
date Tue, 14 Sep 2021 17:11:55 -0700
parents aef11bb4e6d1
children 51b1966816e5
comparison
equal deleted inserted replaced
30176:0cd93ca0b237 30177:2f39642b9084
148 #endif 148 #endif
149 149
150 /* FIXME: These should work for SV1 or Y-MP systems but will 150 /* FIXME: These should work for SV1 or Y-MP systems but will
151 need to be changed for others. */ 151 need to be changed for others. */
152 152
153 typedef union 153 union octave_cray_descriptor
154 { 154 {
155 const char *const_ptr; 155 const char *const_ptr;
156 char *ptr; 156 char *ptr;
157 struct 157 struct
158 { 158 {
159 unsigned off : 6; 159 unsigned off : 6;
160 unsigned len : 26; 160 unsigned len : 26;
161 unsigned add : 32; 161 unsigned add : 32;
162 } mask; 162 } mask;
163 } octave_cray_descriptor; 163 };
164 164
165 typedef void *octave_cray_ftn_ch_dsc; 165 typedef void *octave_cray_ftn_ch_dsc;
166 166
167 #if defined (__cplusplus) 167 #if defined (__cplusplus)
168 # define OCTAVE_F77_FCN_INLINE inline 168 # define OCTAVE_F77_FCN_INLINE inline