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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [rep_clause5_pkg.ads] - Blame information for rev 779

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


package Rep_Clause5_Pkg is
 
    type ID_Type      is mod 65536;
    type String_ID    is new ID_Type;
    type LNumber_Type is range 0..99999;
    subtype Long_Type is Integer;
 
    type Func_ID is (No_Func, FUN_SGN, FUN_EXP, FUN_LOG, FUN_LOG10);
 
    type Token_Kind is (
        No_Token,
        LEX_BINARY,
        LEX_SECTION,
        LEX_003,
        LEX_004,
        LEX_005,
        LEX_006,
        LEX_007,
        LEX_008,
        LEX_009,
        LEX_LF,
        LEX_011,
        LEX_012,
        LEX_013,
        LEX_014,
        LEX_015,
        LEX_016,
        LEX_017,
        LEX_018,
        LEX_019,
        LEX_020,
        LEX_021,
        LEX_022,
        LEX_023,
        LEX_024,
        LEX_025,
        LEX_026,
        LEX_027,
        LEX_028,
        LEX_029,
        LEX_030,
        LEX_031,
        LEX_032,
        '!',
        '"',
        '#',
        '$',
        '%',
        '&',
        ''',
        '(',
        ')',
        '*',
        '+',
        ',',
        '-',
        '.',
        '/',
        '0',
        '1',
        '2',
        '3',
        '4',
        '5',
        '6',
        '7',
        '8',
        '9',
        ':',
        ';',
        '<',
        '=',
        '>',
        '?',
        '@',
        'A',
        'B',
        'C',
        'D',
        'E',
        'F',
        'G',
        'H',
        'I',
        'J',
        'K',
        'L',
        'M',
        'N',
        'O',
        'P',
        'Q',
        'R',
        'S',
        'T',
        'U',
        'V',
        'W',
        'X',
        'Y',
        'Z',
        '[',
        '\',
        ']',
        '^',
        '_',
        '`',
        'a',
        'b',
        'c',
        'd',
        'e',
        'f',
        'g',
        'h',
        'i',
        'j',
        'k',
        'l',
        'm',
        'n',
        'o',
        LEX_SFUN3,
        LEX_SFUN2,
        LEX_SFUN1,
        LEX_SFUNN,
        LEX_FUN3,
        LEX_FUN2,
        LEX_FUN1,
        LEX_FUNN,
        'x',
        'y',
        'z',
        '{',
        '|',
        '}',
        '~',
        LEX_CRTA,
        LEX_ISNULL,
        LEX_USING,
        LEX_HANDLE,
        LEX_CALLX,
        LEX_COMPLEX,
        LEX_FIXED,
        LEX_ENV,
        LEX_SPARSE,
        LEX_SUBROUTINE,
        LEX_CALL,
        LEX_BOX,
        LEX_VLINE,
        LEX_HLINE,
        LEX_MAXLENGTH,
        LEX_DLENGTH,
        LEX_INPUT,
        LEX_INITIALIZE,
        LEX_OUTPUT,
        LEX_UNLINK,
        LEX_SEEK,
        LEX_EXIT,
        LEX_NOT,
        LEX_COMMON,
        LEX_CHAIN,
        LEX_DEF,
        LEX_ARITY,
        LEX_RESUME,
        LEX_PIC_S,
        LEX_BG,
        LEX_FG,
        LEX_PC,
        LEX_CRT,
        LEX_ENUM,
        LEX_DECLARE,
        LEX_CURSOR,
        LEX_DROP,
        LEX_CURRENT,
        LEX_ISOLATION,
        LEX_SET,
        LEX_TRANSACTION,
        LEX_COMMIT,
        LEX_ABORT,
        LEX_BEGIN,
        LEX_PREVIOUS,
        LEX_LAST,
        LEX_FIRST,
        LEX_KEY,
        LEX_START,
        LEX_REWRITE,
        LEX_INDEX,
        LEX_SECONDARY,
        LEX_PRIMARY,
        LEX_COLUMN,
        LEX_TEMP,
        LEX_TABLE,
        LEX_CREATE,
        LEX_HASH,
        LEX_BTREE,
        LEX_UPDATE,
        LEX_ERROR,
        LEX_ACCEPT,
        LEX_AVG,
        LEX_MAX,
        LEX_MIN,
        LEX_FIELD,
        LEX_RESTORE,
        LEX_END,
        LEX_STEP,
        LEX_NEXT,
        LEX_FOR,
        LEX_RETURN,
        LEX_GOSUB,
        LEX_RANGE,
        LEX_EXPON,
        LEX_XOR,
        LEX_OR,
        LEX_AND,
        LEX_SHIFTR,
        LEX_GE,
        LEX_NE,
        LEX_SHIFTL,
        LEX_LE,
        LEX_VARYING,
        LEX_LENGTH,
        LEX_PRINT,
        LEX_IF,
        LEX_GOTO,
        LEX_ON,
        LEX_THEN,
        LEX_DELETE,
        LEX_TO,
        LEX_SEQUENCE,
        LEX_NONUNIQUE,
        LEX_UNIQUE,
        LEX_FILE,
        LEX_CLOSE,
        LEX_OPEN,
        LEX_DATABASE,
        LEX_RECORD,
        LEX_DATA,
        LEX_WRITE,
        LEX_READ,
        LEX_STOP,
        LEX_LET,
        LEX_MOD,
        LEX_LONG,
        LEX_DIM,
        LEX_SHORT,
        LEX_REM,
        LEX_SHELL,
        LEX_TOKEN,
        LEX_FLOAT,
        LEX_SIDENT,
        LEX_INLREM,
        LEX_ENDLIT,
        LEX_STRLIT,
        LEX_IDENT,
        LEX_LNUMBER,
        LEX_HEX,
        LEX_NUMBER,
        LEX_EOF,
        LEX_QUIT,
        LEX_LIST,
        LEX_REMOVE,
        LEX_RENUMBER,
        LEX_CONTINUE,
        LEX_RUN,
        LEX_MERGE,
        LEX_ENTER,
        LEX_NEW,
        LEX_RESET,
        LEX_SYMTAB,
        LEX_CLS,
        LEX_EDIT,
        LEX_SAVE,
        LEX_RESAVE,
        LEX_LOAD,
        LEX_NAME,
        LEX_LISTP,
        LEX_SHOW,
        LEX_STACK,
        LEX_STATUS,
        LEX_CACHE,
        LEX_INSPECT,
        LEX_STOW,
        LEX_PKGRUN,
        LEX_POP,
        LEX_CHECK,
        LEX_INSERT,
        LEX_INTO,
        LEX_VALUES,
        LEX_NULL,
        LEX_WHERE,
        LEX_FROM,
        LEX_EXEC,
        LEX_SELECT,
        LEX_AS,
        LEX_ALL,
        LEX_BY,
        LEX_CROSS,
        LEX_DESC,
        LEX_FULL,
        LEX_GROUP,
        LEX_INNER,
        LEX_JOIN,
        LEX_LEFT,
        LEX_LIMIT,
        LEX_NATURAL,
        LEX_OFFSET,
        LEX_ORDER,
        LEX_OUTER,
        LEX_RIGHT,
        LEX_FETCH,
        LEX_DISTINCT,
        LEX_DEFAULT,
        LEX_RETURNING,
        LEX_LEVEL,
        LEX_COMMITTED,
        LEX_SERIALIZABLE,
        LEX_ONLY,
        LEX_HOLD,
        LEX_FORWARD,
        LEX_WITH,
        LEX_PRIOR,
        LEX_RELATIVE,
        LEX_BACKWARD,
        LEX_OF,
        LEX_SCROLL,
        LEX_NOWAIT,
        LEX_HAVING,
        LEX_END_TOKENS
    );
 
    type Aux_Kind is (No_Aux, SID_Aux, FID_Aux, LNO_Aux);
 
    type Token_Type(Aux : Aux_Kind := No_Aux) is
        record
            Token : Token_Kind := No_Token;
            case Aux is
                when SID_Aux =>
                    SID :       String_ID;
                when FID_Aux =>
                    FID :       Func_ID;
                when LNO_Aux =>
                    LNO :       LNumber_Type;
                when No_Aux =>
                    null;
            end case;
        end record;
 
    for Token_Type use
        record
            Aux     at 0 range 0..2;
            Token   at 0 range 3..12;
            SID     at 0 range 16..31;
            FID     at 0 range 16..31;
            LNO     at 0 range 13..31;
        end record;
 
    type Tokens_Index is range 0..999999;
    type Token_Array is array(Tokens_Index range <>) of Token_Type;
    type Token_Line is access all Token_Array;
 
    type Line_Node is
        record
            Line :     Token_Line;
            LNO :      LNumber_Type := 0;
            Numbered : Boolean := False;
        end record;
 
    type Nodes_Index is range 0..999999;
    type LNodes_Array is array(Nodes_Index range <>) of Line_Node;
    type LNodes_Ptr is access all LNodes_Array;
 
    type VString is
        record
            Max_Length : Natural := 0;
            Fixed :      Boolean := False;
        end record;
 
    function To_Long(Object : VString; Radix : Natural) return Long_Type;
 
    function Element (V : String_ID) return String;
 
end Rep_Clause5_Pkg;

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [rep_clause5_pkg.ads] - Blame information for rev 779

Line No.	Rev	Author	Line
1	304	jeremybenn	`package Rep_Clause5_Pkg is`
2
3			`type ID_Type is mod 65536;`
4			`type String_ID is new ID_Type;`
5			`type LNumber_Type is range 0..99999;`
6			`subtype Long_Type is Integer;`
7
8			`type Func_ID is (No_Func, FUN_SGN, FUN_EXP, FUN_LOG, FUN_LOG10);`
9
10			`type Token_Kind is (`
11			`No_Token,`
12			`LEX_BINARY,`
13			`LEX_SECTION,`
14			`LEX_003,`
15			`LEX_004,`
16			`LEX_005,`
17			`LEX_006,`
18			`LEX_007,`
19			`LEX_008,`
20			`LEX_009,`
21			`LEX_LF,`
22			`LEX_011,`
23			`LEX_012,`
24			`LEX_013,`
25			`LEX_014,`
26			`LEX_015,`
27			`LEX_016,`
28			`LEX_017,`
29			`LEX_018,`
30			`LEX_019,`
31			`LEX_020,`
32			`LEX_021,`
33			`LEX_022,`
34			`LEX_023,`
35			`LEX_024,`
36			`LEX_025,`
37			`LEX_026,`
38			`LEX_027,`
39			`LEX_028,`
40			`LEX_029,`
41			`LEX_030,`
42			`LEX_031,`
43			`LEX_032,`
44			`'!',`
45			`'"',`
46			`'#',`
47			`'$',`
48			`'%',`
49			`'&',`
50			`''',`
51			`'(',`
52			`')',`
53			`'*',`
54			`'+',`
55			`',',`
56			`'-',`
57			`'.',`
58			`'/',`
59			`'0',`
60			`'1',`
61			`'2',`
62			`'3',`
63			`'4',`
64			`'5',`
65			`'6',`
66			`'7',`
67			`'8',`
68			`'9',`
69			`':',`
70			`';',`
71			`'<',`
72			`'=',`
73			`'>',`
74			`'?',`
75			`'@',`
76			`'A',`
77			`'B',`
78			`'C',`
79			`'D',`
80			`'E',`
81			`'F',`
82			`'G',`
83			`'H',`
84			`'I',`
85			`'J',`
86			`'K',`
87			`'L',`
88			`'M',`
89			`'N',`
90			`'O',`
91			`'P',`
92			`'Q',`
93			`'R',`
94			`'S',`
95			`'T',`
96			`'U',`
97			`'V',`
98			`'W',`
99			`'X',`
100			`'Y',`
101			`'Z',`
102			`'[',`
103			`'\',`
104			`']',`
105			`'^',`
106			`'_',`
107			'`',
108			`'a',`
109			`'b',`
110			`'c',`
111			`'d',`
112			`'e',`
113			`'f',`
114			`'g',`
115			`'h',`
116			`'i',`
117			`'j',`
118			`'k',`
119			`'l',`
120			`'m',`
121			`'n',`
122			`'o',`
123			`LEX_SFUN3,`
124			`LEX_SFUN2,`
125			`LEX_SFUN1,`
126			`LEX_SFUNN,`
127			`LEX_FUN3,`
128			`LEX_FUN2,`
129			`LEX_FUN1,`
130			`LEX_FUNN,`
131			`'x',`
132			`'y',`
133			`'z',`
134			`'{',`
135			`'\|',`
136			`'}',`
137			`'~',`
138			`LEX_CRTA,`
139			`LEX_ISNULL,`
140			`LEX_USING,`
141			`LEX_HANDLE,`
142			`LEX_CALLX,`
143			`LEX_COMPLEX,`
144			`LEX_FIXED,`
145			`LEX_ENV,`
146			`LEX_SPARSE,`
147			`LEX_SUBROUTINE,`
148			`LEX_CALL,`
149			`LEX_BOX,`
150			`LEX_VLINE,`
151			`LEX_HLINE,`
152			`LEX_MAXLENGTH,`
153			`LEX_DLENGTH,`
154			`LEX_INPUT,`
155			`LEX_INITIALIZE,`
156			`LEX_OUTPUT,`
157			`LEX_UNLINK,`
158			`LEX_SEEK,`
159			`LEX_EXIT,`
160			`LEX_NOT,`
161			`LEX_COMMON,`
162			`LEX_CHAIN,`
163			`LEX_DEF,`
164			`LEX_ARITY,`
165			`LEX_RESUME,`
166			`LEX_PIC_S,`
167			`LEX_BG,`
168			`LEX_FG,`
169			`LEX_PC,`
170			`LEX_CRT,`
171			`LEX_ENUM,`
172			`LEX_DECLARE,`
173			`LEX_CURSOR,`
174			`LEX_DROP,`
175			`LEX_CURRENT,`
176			`LEX_ISOLATION,`
177			`LEX_SET,`
178			`LEX_TRANSACTION,`
179			`LEX_COMMIT,`
180			`LEX_ABORT,`
181			`LEX_BEGIN,`
182			`LEX_PREVIOUS,`
183			`LEX_LAST,`
184			`LEX_FIRST,`
185			`LEX_KEY,`
186			`LEX_START,`
187			`LEX_REWRITE,`
188			`LEX_INDEX,`
189			`LEX_SECONDARY,`
190			`LEX_PRIMARY,`
191			`LEX_COLUMN,`
192			`LEX_TEMP,`
193			`LEX_TABLE,`
194			`LEX_CREATE,`
195			`LEX_HASH,`
196			`LEX_BTREE,`
197			`LEX_UPDATE,`
198			`LEX_ERROR,`
199			`LEX_ACCEPT,`
200			`LEX_AVG,`
201			`LEX_MAX,`
202			`LEX_MIN,`
203			`LEX_FIELD,`
204			`LEX_RESTORE,`
205			`LEX_END,`
206			`LEX_STEP,`
207			`LEX_NEXT,`
208			`LEX_FOR,`
209			`LEX_RETURN,`
210			`LEX_GOSUB,`
211			`LEX_RANGE,`
212			`LEX_EXPON,`
213			`LEX_XOR,`
214			`LEX_OR,`
215			`LEX_AND,`
216			`LEX_SHIFTR,`
217			`LEX_GE,`
218			`LEX_NE,`
219			`LEX_SHIFTL,`
220			`LEX_LE,`
221			`LEX_VARYING,`
222			`LEX_LENGTH,`
223			`LEX_PRINT,`
224			`LEX_IF,`
225			`LEX_GOTO,`
226			`LEX_ON,`
227			`LEX_THEN,`
228			`LEX_DELETE,`
229			`LEX_TO,`
230			`LEX_SEQUENCE,`
231			`LEX_NONUNIQUE,`
232			`LEX_UNIQUE,`
233			`LEX_FILE,`
234			`LEX_CLOSE,`
235			`LEX_OPEN,`
236			`LEX_DATABASE,`
237			`LEX_RECORD,`
238			`LEX_DATA,`
239			`LEX_WRITE,`
240			`LEX_READ,`
241			`LEX_STOP,`
242			`LEX_LET,`
243			`LEX_MOD,`
244			`LEX_LONG,`
245			`LEX_DIM,`
246			`LEX_SHORT,`
247			`LEX_REM,`
248			`LEX_SHELL,`
249			`LEX_TOKEN,`
250			`LEX_FLOAT,`
251			`LEX_SIDENT,`
252			`LEX_INLREM,`
253			`LEX_ENDLIT,`
254			`LEX_STRLIT,`
255			`LEX_IDENT,`
256			`LEX_LNUMBER,`
257			`LEX_HEX,`
258			`LEX_NUMBER,`
259			`LEX_EOF,`
260			`LEX_QUIT,`
261			`LEX_LIST,`
262			`LEX_REMOVE,`
263			`LEX_RENUMBER,`
264			`LEX_CONTINUE,`
265			`LEX_RUN,`
266			`LEX_MERGE,`
267			`LEX_ENTER,`
268			`LEX_NEW,`
269			`LEX_RESET,`
270			`LEX_SYMTAB,`
271			`LEX_CLS,`
272			`LEX_EDIT,`
273			`LEX_SAVE,`
274			`LEX_RESAVE,`
275			`LEX_LOAD,`
276			`LEX_NAME,`
277			`LEX_LISTP,`
278			`LEX_SHOW,`
279			`LEX_STACK,`
280			`LEX_STATUS,`
281			`LEX_CACHE,`
282			`LEX_INSPECT,`
283			`LEX_STOW,`
284			`LEX_PKGRUN,`
285			`LEX_POP,`
286			`LEX_CHECK,`
287			`LEX_INSERT,`
288			`LEX_INTO,`
289			`LEX_VALUES,`
290			`LEX_NULL,`
291			`LEX_WHERE,`
292			`LEX_FROM,`
293			`LEX_EXEC,`
294			`LEX_SELECT,`
295			`LEX_AS,`
296			`LEX_ALL,`
297			`LEX_BY,`
298			`LEX_CROSS,`
299			`LEX_DESC,`
300			`LEX_FULL,`
301			`LEX_GROUP,`
302			`LEX_INNER,`
303			`LEX_JOIN,`
304			`LEX_LEFT,`
305			`LEX_LIMIT,`
306			`LEX_NATURAL,`
307			`LEX_OFFSET,`
308			`LEX_ORDER,`
309			`LEX_OUTER,`
310			`LEX_RIGHT,`
311			`LEX_FETCH,`
312			`LEX_DISTINCT,`
313			`LEX_DEFAULT,`
314			`LEX_RETURNING,`
315			`LEX_LEVEL,`
316			`LEX_COMMITTED,`
317			`LEX_SERIALIZABLE,`
318			`LEX_ONLY,`
319			`LEX_HOLD,`
320			`LEX_FORWARD,`
321			`LEX_WITH,`
322			`LEX_PRIOR,`
323			`LEX_RELATIVE,`
324			`LEX_BACKWARD,`
325			`LEX_OF,`
326			`LEX_SCROLL,`
327			`LEX_NOWAIT,`
328			`LEX_HAVING,`
329			`LEX_END_TOKENS`
330			`);`
331
332			`type Aux_Kind is (No_Aux, SID_Aux, FID_Aux, LNO_Aux);`
333
334			`type Token_Type(Aux : Aux_Kind := No_Aux) is`
335			`record`
336			`Token : Token_Kind := No_Token;`
337			`case Aux is`
338			`when SID_Aux =>`
339			`SID : String_ID;`
340			`when FID_Aux =>`
341			`FID : Func_ID;`
342			`when LNO_Aux =>`
343			`LNO : LNumber_Type;`
344			`when No_Aux =>`
345			`null;`
346			`end case;`
347			`end record;`
348
349			`for Token_Type use`
350			`record`
351			`Aux at 0 range 0..2;`
352			`Token at 0 range 3..12;`
353			`SID at 0 range 16..31;`
354			`FID at 0 range 16..31;`
355			`LNO at 0 range 13..31;`
356			`end record;`
357
358			`type Tokens_Index is range 0..999999;`
359			`type Token_Array is array(Tokens_Index range <>) of Token_Type;`
360			`type Token_Line is access all Token_Array;`
361
362			`type Line_Node is`
363			`record`
364			`Line : Token_Line;`
365			`LNO : LNumber_Type := 0;`
366			`Numbered : Boolean := False;`
367			`end record;`
368
369			`type Nodes_Index is range 0..999999;`
370			`type LNodes_Array is array(Nodes_Index range <>) of Line_Node;`
371			`type LNodes_Ptr is access all LNodes_Array;`
372
373			`type VString is`
374			`record`
375			`Max_Length : Natural := 0;`
376			`Fixed : Boolean := False;`
377			`end record;`
378
379			`function To_Long(Object : VString; Radix : Natural) return Long_Type;`
380
381			`function Element (V : String_ID) return String;`
382
383			`end Rep_Clause5_Pkg;`