| Fariborz Jahanian | 64a8034 | 2010-05-28 19:40:48 +0000 | [diff] [blame] | 1 | // RUN: %clang_cc1 -emit-llvm -o - %s -fpascal-strings -fshort-wchar | FileCheck %s |
| 2 | // rdar: // 8020384 |
| 3 | |
| 4 | extern void abort (void); |
| 5 | |
| 6 | typedef unsigned short UInt16; |
| 7 | |
| 8 | typedef UInt16 UniChar; |
| 9 | |
| 10 | int main(int argc, char* argv[]) |
| 11 | { |
| 12 | |
| 13 | char st[] = "\pfoo"; // pascal string |
| 14 | UniChar wt[] = L"\pbar"; // pascal Unicode string |
| 15 | UniChar wt1[] = L"\p"; |
| 16 | UniChar wt2[] = L"\pgorf"; |
| 17 | |
| 18 | if (st[0] != 3) |
| 19 | abort (); |
| 20 | if (wt[0] != 3) |
| 21 | abort (); |
| 22 | if (wt1[0] != 0) |
| 23 | abort (); |
| 24 | if (wt2[0] != 4) |
| 25 | abort (); |
| 26 | |
| 27 | return 0; |
| 28 | } |
| 29 | |
| 30 | // CHECK: c"\03\00b\00a\00r\00\00\00" |
| 31 | // CHECK: c"\04\00g\00o\00r\00f\00\00\00" |