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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.2/] [gdb/] [testsuite/] [gdb.pascal/] [integers.pas] - Rev 330

Compare with Previous | Blame | View Log

{
 Copyright 2008, 2009, 2010 Free Software Foundation, Inc.
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
 the Free Software Foundation; either version 3 of the License, or
 (at your option) any later version.
 
 This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
 along with this program.  If not, see <http://www.gnu.org/licenses/>.
}
 
program integers;
 
 
function add(a,b : integer) : integer;
begin
  add:=a+b;
end;
 
function sub(a,b : integer) : integer;
begin
  sub:=a-b;
end;
 
var
  i, j, k, l : integer;
 
begin
  i := 0;
  j := 0;
  k := 0;
  l := 0; { set breakpoint 1 here }
  i := 1;
  j := 2;
  k := 3;
  l := k;
 
  i := j + k;
 
  j := 0; { set breakpoint 2 here }
  k := 0;
  l := add(i,j);
  l := sub(i,j);
 
end.
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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