OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [objc.dg/] [objc-gc-4.m] - Blame information for rev 823

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
/* Test looking up fields in superclasses in the context of write-barriers
2
   (where component references get rewritten).  */
3
/* Contributed by Ziemowit Laski <zlaski@apple.com>  */
4
 
5
/* { dg-do compile { target *-*-darwin* } } */
6
/* { dg-options "-fobjc-gc" } */
7
 
8
#include <objc/Object.h>
9
 
10
@class MyWindow;
11
 
12
@interface MyDocument : Object {
13
    MyWindow *_window;
14
}
15
@end
16
 
17
@interface MyFileDocument : MyDocument {
18
     struct {
19
        unsigned int autoClose:1;
20
        unsigned int openForUI:1;
21
        unsigned int isClosing:1;
22
        unsigned int needsDiskCheck:1;
23
        unsigned int isWritable:1;
24
        unsigned int representsFileOnDisk:1;
25
        unsigned int RESERVED:26;
26
    } _fdFlags;
27
}
28
@end
29
 
30
@interface MyTextFileDocument : MyFileDocument {
31
    Object *_textStorage;
32
    struct __tfdFlags {
33
        unsigned int immutable:1;
34
        unsigned int lineEnding:2;
35
        unsigned int isClosing:1;
36
        unsigned int settingsAreSet:1;
37
        unsigned int usesTabs:1;
38
        unsigned int isUTF8WithBOM:1;
39
        unsigned int wrapsLines:1;
40
        unsigned int usingDefaultLanguage:1;
41
        unsigned int RESERVED:23;
42
    } _tfdFlags;
43
    int _tabWidth;
44
    int _indentWidth;
45
}
46
@end
47
 
48
@interface MyRTFFileDocument : MyTextFileDocument
49
- (BOOL)readFromFile:(const char *)fileName ofType:(const char *)type;
50
@end
51
 
52
@implementation MyRTFFileDocument
53
- (BOOL)readFromFile:(const char *)fileName ofType:(const char *)type {
54
        if (_textStorage && fileName) {
55
            [_textStorage free];
56
            return YES;
57
        } else if (type) {
58
            _textStorage = [MyRTFFileDocument new];
59
            return NO;
60
        }
61
   return (fileName && type);
62
}
63
@end

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.