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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [gdb-5.0/] [gdb/] [testsuite/] [gdb.chill/] [pr-4975.ch] - Diff between revs 107 and 1765

Rev 107	Rev 1765
`/*`	`/*`
`>Number: 4975`	`>Number: 4975`
`>Category: chill`	`>Category: chill`
`>Synopsis: Segmentation fault of gdb 4.12.1`	`>Synopsis: Segmentation fault of gdb 4.12.1`
`>Description:`	`>Description:`

`Problem: gdb 4.12.1 segment faults with following chill program.`	`Problem: gdb 4.12.1 segment faults with following chill program.`
`*/`	`*/`

`gdb_bug: MODULE`	`gdb_bug: MODULE`

`<> USE_SEIZE_FILE "pr-4975-grt.grt" <>`	`<> USE_SEIZE_FILE "pr-4975-grt.grt" <>`
`SEIZE is_channel_type;`	`SEIZE is_channel_type;`

`SYNMODE chan_type = POWERSET is_channel_type;`	`SYNMODE chan_type = POWERSET is_channel_type;`
`SYN hugo chan_type = [chan_1, chan_3];`	`SYN hugo chan_type = [chan_1, chan_3];`

`DCL otto is_channel_type := chan_2;`	`DCL otto is_channel_type := chan_2;`

`x: PROC ();`	`x: PROC ();`

`IF otto IN hugo THEN`	`IF otto IN hugo THEN`
`WRITETEXT (STDOUT, "otto IN hugo%/");`	`WRITETEXT (STDOUT, "otto IN hugo%/");`
`ELSE`	`ELSE`
`WRITETEXT (STDOUT, "You loose%/");`	`WRITETEXT (STDOUT, "You loose%/");`
`FI;`	`FI;`
`END x;`	`END x;`

`x ();`	`x ();`

`END gdb_bug;`	`END gdb_bug;`
`/*`	`/*`
`Compiled with:`	`Compiled with:`

`chill -S -fgrant-only pr-315-grt.ch`	`chill -S -fgrant-only pr-315-grt.ch`
`chill -g -o pr-315 pr-315.ch`	`chill -g -o pr-315 pr-315.ch`

`Run gdb with`	`Run gdb with`

`gdb pr-315 --readnow`	`gdb pr-315 --readnow`

`will result in a sigsegv in file gdbtypes.c function force_to_range_type.`	`will result in a sigsegv in file gdbtypes.c function force_to_range_type.`
`*/`	`*/`