f7e7cb349b
Original-commit: flang-compiler/f18@aa7f55e15f Reviewed-on: https://github.com/flang-compiler/f18/pull/217
78 lines
2.1 KiB
C++
78 lines
2.1 KiB
C++
// Copyright (c) 2018, NVIDIA CORPORATION. All rights reserved.
|
|
//
|
|
// Licensed under the Apache License, Version 2.0 (the "License");
|
|
// you may not use this file except in compliance with the License.
|
|
// You may obtain a copy of the License at
|
|
//
|
|
// http://www.apache.org/licenses/LICENSE-2.0
|
|
//
|
|
// Unless required by applicable law or agreed to in writing, software
|
|
// distributed under the License is distributed on an "AS IS" BASIS,
|
|
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
// See the License for the specific language governing permissions and
|
|
// limitations under the License.
|
|
|
|
#include "default-kinds.h"
|
|
#include "../common/idioms.h"
|
|
|
|
namespace Fortran::semantics {
|
|
|
|
IntrinsicTypeDefaultKinds::IntrinsicTypeDefaultKinds() {
|
|
#if __x86_64__
|
|
quadPrecisionKind_ = 10;
|
|
#endif
|
|
}
|
|
|
|
IntrinsicTypeDefaultKinds &IntrinsicTypeDefaultKinds::set_defaultIntegerKind(
|
|
int k) {
|
|
defaultIntegerKind_ = k;
|
|
return *this;
|
|
}
|
|
|
|
IntrinsicTypeDefaultKinds &IntrinsicTypeDefaultKinds::set_subscriptIntegerKind(
|
|
int k) {
|
|
subscriptIntegerKind_ = k;
|
|
return *this;
|
|
}
|
|
|
|
IntrinsicTypeDefaultKinds &IntrinsicTypeDefaultKinds::set_defaultRealKind(
|
|
int k) {
|
|
defaultRealKind_ = k;
|
|
return *this;
|
|
}
|
|
|
|
IntrinsicTypeDefaultKinds &IntrinsicTypeDefaultKinds::set_doublePrecisionKind(
|
|
int k) {
|
|
doublePrecisionKind_ = k;
|
|
return *this;
|
|
}
|
|
|
|
IntrinsicTypeDefaultKinds &IntrinsicTypeDefaultKinds::set_quadPrecisionKind(
|
|
int k) {
|
|
quadPrecisionKind_ = k;
|
|
return *this;
|
|
}
|
|
|
|
IntrinsicTypeDefaultKinds &IntrinsicTypeDefaultKinds::set_defaultCharacterKind(
|
|
int k) {
|
|
defaultCharacterKind_ = k;
|
|
return *this;
|
|
}
|
|
|
|
IntrinsicTypeDefaultKinds &IntrinsicTypeDefaultKinds::set_defaultLogicalKind(
|
|
int k) {
|
|
defaultLogicalKind_ = k;
|
|
return *this;
|
|
}
|
|
|
|
int IntrinsicTypeDefaultKinds::GetDefaultKind(TypeCategory category) const {
|
|
switch (category) {
|
|
case TypeCategory::Integer: return defaultIntegerKind_;
|
|
case TypeCategory::Real:
|
|
case TypeCategory::Complex: return defaultRealKind_;
|
|
case TypeCategory::Character: return defaultCharacterKind_;
|
|
case TypeCategory::Logical: return defaultLogicalKind_;
|
|
default: CRASH_NO_CASE; return 0;
|
|
}
|
|
}
|
|
}
|