URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gdb/] [gdb-6.8/] [gdb-6.8.openrisc-2.1/] [gdb/] [testsuite/] [gdb.pascal/] [hello.pas] - Diff between revs 24 and 33

Rev 24	Rev 33
`program hello;`	`program hello;`

`var`	`var`
`st : string;`	`st : string;`

`procedure print_hello;`	`procedure print_hello;`
`begin`	`begin`
`Writeln('Before assignment'); { set breakpoint 1 here }`	`Writeln('Before assignment'); { set breakpoint 1 here }`
`st:='Hello, world!';`	`st:='Hello, world!';`
`writeln(st); {set breakpoint 2 here }`	`writeln(st); {set breakpoint 2 here }`
`end;`	`end;`

`begin`	`begin`
`print_hello;`	`print_hello;`
`end.`	`end.`