forked from OSchip/llvm-project
55 lines
1.9 KiB
C++
55 lines
1.9 KiB
C++
//===-- runtime/stat.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
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
// Defines the values returned by the runtime for STAT= specifiers
|
|
// on executable statements.
|
|
|
|
#ifndef FORTRAN_RUNTIME_STAT_H_
|
|
#define FORTRAN_RUNTIME_STAT_H_
|
|
#include "magic-numbers.h"
|
|
#include "flang/ISO_Fortran_binding.h"
|
|
namespace Fortran::runtime {
|
|
|
|
class Descriptor;
|
|
class Terminator;
|
|
|
|
// The value of STAT= is zero when no error condition has arisen.
|
|
|
|
enum Stat {
|
|
StatOk = 0, // required to be zero by Fortran
|
|
|
|
// Interoperable STAT= codes
|
|
StatBaseNull = CFI_ERROR_BASE_ADDR_NULL,
|
|
StatBaseNotNull = CFI_ERROR_BASE_ADDR_NOT_NULL,
|
|
StatInvalidElemLen = CFI_INVALID_ELEM_LEN,
|
|
StatInvalidRank = CFI_INVALID_RANK,
|
|
StatInvalidType = CFI_INVALID_TYPE,
|
|
StatInvalidAttribute = CFI_INVALID_ATTRIBUTE,
|
|
StatInvalidExtent = CFI_INVALID_EXTENT,
|
|
StatInvalidDescriptor = CFI_INVALID_DESCRIPTOR,
|
|
StatMemAllocation = CFI_ERROR_MEM_ALLOCATION,
|
|
StatOutOfBounds = CFI_ERROR_OUT_OF_BOUNDS,
|
|
|
|
// Standard STAT= values
|
|
StatFailedImage = FORTRAN_RUNTIME_STAT_FAILED_IMAGE,
|
|
StatLocked = FORTRAN_RUNTIME_STAT_LOCKED,
|
|
StatLockedOtherImage = FORTRAN_RUNTIME_STAT_LOCKED_OTHER_IMAGE,
|
|
StatStoppedImage = FORTRAN_RUNTIME_STAT_STOPPED_IMAGE,
|
|
StatUnlocked = FORTRAN_RUNTIME_STAT_UNLOCKED,
|
|
StatUnlockedFailedImage = FORTRAN_RUNTIME_STAT_UNLOCKED_FAILED_IMAGE,
|
|
|
|
// Additional "processor-defined" STAT= values
|
|
};
|
|
|
|
const char *StatErrorString(int);
|
|
int ToErrmsg(Descriptor *errmsg, int stat); // returns stat
|
|
int ReturnError(
|
|
Terminator &, int stat, Descriptor *errmsg = nullptr, bool hasStat = false);
|
|
} // namespace Fortran::runtime
|
|
#endif // FORTRAN_RUNTIME_STAT_H
|