vasilito
cb424d7448
verify-patch-sanity.py validates every active recipe .patch has internally- consistent hunk line counts — catching the 'malformed patch at line N' failure at commit/CI/preflight time instead of hours into a cook. This cycle hit that class three times (qtwaylandscanner, sddm, xwayland), each only discovered when cookbook tried to apply the patch. Running it across the repo found 29 latent malformed patches (validated against GNU patch: e.g. relibc/P3-sysv-ipc reproduces 'malformed patch at line 22'). They were harmless only because they sit in vendored recipes (baked, not re- applied) — but would fail on any version-bump re-derivation. --fix recounts the hunk headers (body untouched) and repaired all 29. Wired into build-preflight.sh (Phase 1.0D) and redbear-ci.yml, with a unit test (test-patch-sanity.sh). Skips archived/legacy trees and unvalidatable formats (empty placeholders, bare-@@ git hunks).
146 lines
5.9 KiB
C++
146 lines
5.9 KiB
C++
//===-- lib/runtime/edit-output.h -------------------------------*- C++ -*-===//
|
|
//
|
|
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
|
|
// See https://llvm.org/LICENSE.txt for license information.
|
|
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#ifndef FLANG_RT_RUNTIME_EDIT_OUTPUT_H_
|
|
#define FLANG_RT_RUNTIME_EDIT_OUTPUT_H_
|
|
|
|
// Output data editing templates implementing the FORMAT data editing
|
|
// descriptors E, EN, ES, EX, D, F, and G for REAL data (and COMPLEX
|
|
// components, I and G for INTEGER, and B/O/Z for both.
|
|
// See subclauses in 13.7.2.3 of Fortran 2018 for the
|
|
// detailed specifications of these descriptors.
|
|
// List-directed output (13.10.4) for numeric types is also done here.
|
|
// Drives the same fast binary-to-decimal formatting templates used
|
|
// in the f18 front-end.
|
|
|
|
#include "flang-rt/runtime/format.h"
|
|
#include "flang-rt/runtime/io-stmt.h"
|
|
#include "flang/Common/uint128.h"
|
|
#include "flang/Decimal/decimal.h"
|
|
|
|
namespace Fortran::runtime::io {
|
|
|
|
RT_OFFLOAD_API_GROUP_BEGIN
|
|
|
|
// I, B, O, Z, and G output editing for INTEGER.
|
|
// The DataEdit reference is const here (and elsewhere in this header) so that
|
|
// one edit descriptor with a repeat factor may safely serve to edit
|
|
// multiple elements of an array.
|
|
template <int KIND>
|
|
RT_API_ATTRS bool EditIntegerOutput(IoStatementState &, const DataEdit &,
|
|
common::HostSignedIntType<8 * KIND>, bool isSigned);
|
|
|
|
// Encapsulates the state of a REAL output conversion.
|
|
class RealOutputEditingBase {
|
|
protected:
|
|
explicit RT_API_ATTRS RealOutputEditingBase(IoStatementState &io) : io_{io} {}
|
|
|
|
// Returns null when the exponent overflows a fixed-size output field.
|
|
RT_API_ATTRS const char *FormatExponent(
|
|
int, const DataEdit &edit, int &length);
|
|
RT_API_ATTRS bool EmitPrefix(
|
|
const DataEdit &, std::size_t length, std::size_t width);
|
|
RT_API_ATTRS bool EmitSuffix(const DataEdit &);
|
|
|
|
IoStatementState &io_;
|
|
int trailingBlanks_{0}; // created when Gw editing maps to Fw
|
|
char exponent_[16];
|
|
};
|
|
|
|
template <int KIND> class RealOutputEditing : public RealOutputEditingBase {
|
|
public:
|
|
RT_VAR_GROUP_BEGIN
|
|
static constexpr int binaryPrecision{common::PrecisionOfRealKind(KIND)};
|
|
RT_VAR_GROUP_END
|
|
using BinaryFloatingPoint =
|
|
decimal::BinaryFloatingPointNumber<binaryPrecision>;
|
|
template <typename A>
|
|
RT_API_ATTRS RealOutputEditing(IoStatementState &io, A x)
|
|
: RealOutputEditingBase{io}, x_{x} {}
|
|
RT_API_ATTRS bool Edit(const DataEdit &);
|
|
|
|
private:
|
|
// The DataEdit arguments here are const references or copies so that
|
|
// the original DataEdit can safely serve multiple array elements when
|
|
// it has a repeat count.
|
|
RT_API_ATTRS bool EditEorDOutput(const DataEdit &);
|
|
RT_API_ATTRS bool EditFOutput(const DataEdit &);
|
|
RT_API_ATTRS DataEdit EditForGOutput(DataEdit); // returns an E or F edit
|
|
RT_API_ATTRS bool EditEXOutput(const DataEdit &);
|
|
RT_API_ATTRS bool EditListDirectedOutput(const DataEdit &);
|
|
|
|
RT_API_ATTRS bool IsZero() const { return x_.IsZero(); }
|
|
|
|
RT_API_ATTRS decimal::ConversionToDecimalResult ConvertToDecimal(
|
|
int significantDigits, enum decimal::FortranRounding, int flags = 0);
|
|
|
|
struct ConvertToHexadecimalResult {
|
|
const char *str;
|
|
int length;
|
|
int exponent;
|
|
};
|
|
RT_API_ATTRS ConvertToHexadecimalResult ConvertToHexadecimal(
|
|
int significantDigits, enum decimal::FortranRounding, int flags = 0);
|
|
|
|
BinaryFloatingPoint x_;
|
|
char buffer_[BinaryFloatingPoint::maxDecimalConversionDigits +
|
|
EXTRA_DECIMAL_CONVERSION_SPACE];
|
|
};
|
|
|
|
RT_API_ATTRS bool ListDirectedLogicalOutput(
|
|
IoStatementState &, ListDirectedStatementState<Direction::Output> &, bool);
|
|
RT_API_ATTRS bool EditLogicalOutput(IoStatementState &, const DataEdit &, bool);
|
|
|
|
template <typename CHAR>
|
|
RT_API_ATTRS bool ListDirectedCharacterOutput(IoStatementState &,
|
|
ListDirectedStatementState<Direction::Output> &, const CHAR *,
|
|
std::size_t chars);
|
|
extern template RT_API_ATTRS bool ListDirectedCharacterOutput(
|
|
IoStatementState &, ListDirectedStatementState<Direction::Output> &,
|
|
const char *, std::size_t chars);
|
|
extern template RT_API_ATTRS bool ListDirectedCharacterOutput(
|
|
IoStatementState &, ListDirectedStatementState<Direction::Output> &,
|
|
const char16_t *, std::size_t chars);
|
|
extern template RT_API_ATTRS bool ListDirectedCharacterOutput(
|
|
IoStatementState &, ListDirectedStatementState<Direction::Output> &,
|
|
const char32_t *, std::size_t chars);
|
|
|
|
template <typename CHAR>
|
|
RT_API_ATTRS bool EditCharacterOutput(
|
|
IoStatementState &, const DataEdit &, const CHAR *, std::size_t chars);
|
|
extern template RT_API_ATTRS bool EditCharacterOutput(
|
|
IoStatementState &, const DataEdit &, const char *, std::size_t chars);
|
|
extern template RT_API_ATTRS bool EditCharacterOutput(
|
|
IoStatementState &, const DataEdit &, const char16_t *, std::size_t chars);
|
|
extern template RT_API_ATTRS bool EditCharacterOutput(
|
|
IoStatementState &, const DataEdit &, const char32_t *, std::size_t chars);
|
|
|
|
extern template RT_API_ATTRS bool EditIntegerOutput<1>(
|
|
IoStatementState &, const DataEdit &, std::int8_t, bool);
|
|
extern template RT_API_ATTRS bool EditIntegerOutput<2>(
|
|
IoStatementState &, const DataEdit &, std::int16_t, bool);
|
|
extern template RT_API_ATTRS bool EditIntegerOutput<4>(
|
|
IoStatementState &, const DataEdit &, std::int32_t, bool);
|
|
extern template RT_API_ATTRS bool EditIntegerOutput<8>(
|
|
IoStatementState &, const DataEdit &, std::int64_t, bool);
|
|
extern template RT_API_ATTRS bool EditIntegerOutput<16>(
|
|
IoStatementState &, const DataEdit &, common::int128_t, bool);
|
|
|
|
extern template class RealOutputEditing<2>;
|
|
extern template class RealOutputEditing<3>;
|
|
extern template class RealOutputEditing<4>;
|
|
extern template class RealOutputEditing<8>;
|
|
extern template class RealOutputEditing<10>;
|
|
// TODO: double/double
|
|
extern template class RealOutputEditing<16>;
|
|
|
|
RT_OFFLOAD_API_GROUP_END
|
|
|
|
} // namespace Fortran::runtime::io
|
|
#endif // FLANG_RT_RUNTIME_EDIT_OUTPUT_H_
|