forked from OSchip/llvm-project
63 lines
1.8 KiB
C++
63 lines
1.8 KiB
C++
// RUN: %clang_cc1 %s -fsyntax-only -fborland-extensions -triple x86_64-linux-gnu -verify
|
|
// RUN: %clang_cc1 %s -fsyntax-only -fborland-extensions -triple i686-linux-gnu -Werror
|
|
|
|
// Borland extensions
|
|
|
|
// 1. test -fborland-extensions
|
|
int dummy_function() { return 0; }
|
|
|
|
// 2. test __pascal
|
|
// expected-warning@+1 {{calling convention '_pascal' ignored for this target}}
|
|
int _pascal f2();
|
|
|
|
// expected-warning@+1 {{calling convention '__pascal' ignored for this target}}
|
|
float __pascal gi2(int, int);
|
|
// expected-warning@+1 {{calling convention '__pascal' ignored for this target}}
|
|
template<typename T> T g2(T (__pascal * const )(int, int)) { return 0; }
|
|
|
|
struct M {
|
|
// expected-warning@+1 {{calling convention '__pascal' ignored for this target}}
|
|
int __pascal addP();
|
|
// expected-warning@+1 {{calling convention '__pascal' ignored for this target}}
|
|
float __pascal subtractP();
|
|
};
|
|
// expected-warning@+1 {{calling convention '__pascal' ignored for this target}}
|
|
template<typename T> int h2(T (__pascal M::* const )()) { return 0; }
|
|
void m2() {
|
|
int i; float f;
|
|
i = f2();
|
|
f = gi2(2, i);
|
|
f = g2(gi2);
|
|
i = h2<int>(&M::addP);
|
|
f = h2(&M::subtractP);
|
|
}
|
|
|
|
// 3. test other calling conventions
|
|
int _cdecl fa3();
|
|
// expected-warning@+1 {{calling convention '_fastcall' ignored for this target}}
|
|
int _fastcall fc3();
|
|
// expected-warning@+1 {{calling convention '_stdcall' ignored for this target}}
|
|
int _stdcall fd3();
|
|
|
|
// 4. test __uuidof()
|
|
typedef struct _GUID {
|
|
unsigned long Data1;
|
|
unsigned short Data2;
|
|
unsigned short Data3;
|
|
unsigned char Data4[ 8 ];
|
|
} GUID;
|
|
|
|
struct __declspec(uuid("{12345678-1234-1234-1234-123456789abc}")) Foo;
|
|
struct Data {
|
|
GUID const* Guid;
|
|
};
|
|
|
|
void t4() {
|
|
unsigned long data;
|
|
|
|
const GUID guid_inl = __uuidof(Foo);
|
|
Data ata1 = { &guid_inl};
|
|
data = ata1.Guid->Data1;
|
|
}
|
|
|