@@ -123,7 +123,7 @@ static RT_API_ATTRS void Compare(Descriptor &result, const Descriptor &x,
123123 std::size_t xChars{x.ElementBytes () >> shift<CHAR>};
124124 std::size_t yChars{y.ElementBytes () >> shift<char >};
125125 for (SubscriptValue resultAt{0 }; elements-- > 0 ;
126- ++resultAt, x.IncrementSubscripts (xAt), y.IncrementSubscripts (yAt)) {
126+ ++resultAt, x.IncrementSubscripts (xAt), y.IncrementSubscripts (yAt)) {
127127 *result.OffsetElement <char >(resultAt) = CharacterScalarCompare<CHAR>(
128128 x.Element <CHAR>(xAt), y.Element <CHAR>(yAt), xChars, yChars);
129129 }
@@ -176,7 +176,7 @@ static RT_API_ATTRS void AdjustLRHelper(Descriptor &result,
176176 terminator.Crash (" ADJUSTL/R: could not allocate storage for result" );
177177 }
178178 for (SubscriptValue resultAt{0 }; elements-- > 0 ;
179- resultAt += elementBytes, string.IncrementSubscripts (stringAt)) {
179+ resultAt += elementBytes, string.IncrementSubscripts (stringAt)) {
180180 Adjust<CHAR, ADJUSTR>(result.OffsetElement <CHAR>(resultAt),
181181 string.Element <const CHAR>(stringAt), elementBytes >> shift<CHAR>);
182182 }
@@ -231,7 +231,7 @@ static RT_API_ATTRS void LenTrim(Descriptor &result, const Descriptor &string,
231231 }
232232 std::size_t stringElementChars{string.ElementBytes () >> shift<CHAR>};
233233 for (SubscriptValue resultAt{0 }; elements-- > 0 ;
234- resultAt += sizeof (INT), string.IncrementSubscripts (stringAt)) {
234+ resultAt += sizeof (INT), string.IncrementSubscripts (stringAt)) {
235235 *result.OffsetElement <INT>(resultAt) =
236236 LenTrim (string.Element <CHAR>(stringAt), stringElementChars);
237237 }
@@ -414,8 +414,8 @@ static RT_API_ATTRS void GeneralCharFunc(Descriptor &result,
414414 std::size_t stringElementChars{string.ElementBytes () >> shift<CHAR>};
415415 std::size_t argElementChars{arg.ElementBytes () >> shift<CHAR>};
416416 for (SubscriptValue resultAt{0 }; elements-- > 0 ; resultAt += sizeof (INT),
417- string.IncrementSubscripts (stringAt), arg.IncrementSubscripts (argAt),
418- back && back->IncrementSubscripts (backAt)) {
417+ string.IncrementSubscripts (stringAt), arg.IncrementSubscripts (argAt),
418+ back && back->IncrementSubscripts (backAt)) {
419419 if constexpr (FUNC == CharFunc::Index) {
420420 *result.OffsetElement <INT>(resultAt) =
421421 Index<CHAR>(string.Element <CHAR>(stringAt), stringElementChars,
@@ -514,7 +514,7 @@ static RT_API_ATTRS void MaxMinHelper(Descriptor &accumulator,
514514 RUNTIME_CHECK (terminator, accumulator.Allocate () == CFI_SUCCESS);
515515 }
516516 for (CHAR *result{accumulator.OffsetElement <CHAR>()}; elements-- > 0 ;
517- accumData += accumChars, result += chars, x.IncrementSubscripts (xAt)) {
517+ accumData += accumChars, result += chars, x.IncrementSubscripts (xAt)) {
518518 const CHAR *xData{x.Element <CHAR>(xAt)};
519519 int cmp{CharacterScalarCompare (accumData, xData, accumChars, xChars)};
520520 if constexpr (ISMIN) {
@@ -595,7 +595,7 @@ void RTDEF(CharacterConcatenate)(Descriptor &accumulator,
595595 char *to{static_cast <char *>(accumulator.raw ().base_addr )};
596596 from.GetLowerBounds (fromAt);
597597 for (; elements-- > 0 ;
598- to += newBytes, p += oldBytes, from.IncrementSubscripts (fromAt)) {
598+ to += newBytes, p += oldBytes, from.IncrementSubscripts (fromAt)) {
599599 std::memcpy (to, p, oldBytes);
600600 std::memcpy (to + oldBytes, from.Element <char >(fromAt), fromBytes);
601601 }
0 commit comments