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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.base/] [arithmet.exp] - Blame information for rev 157

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn
# Copyright 1998, 1999, 2001, 2007, 2008 Free Software Foundation, Inc.
2
 
3
# This program is free software; you can redistribute it and/or modify
4
# it under the terms of the GNU General Public License as published by
5
# the Free Software Foundation; either version 3 of the License, or
6
# (at your option) any later version.
7
#
8
# This program is distributed in the hope that it will be useful,
9
# but WITHOUT ANY WARRANTY; without even the implied warranty of
10
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
11
# GNU General Public License for more details.
12
#
13
# You should have received a copy of the GNU General Public License
14
# along with this program.  If not, see .
15
 
16
# Please email any bugs, comments, and/or additions to this file to:
17
# bug-gdb@prep.ai.mit.edu
18
 
19
# This file was written by Elena Zannoni (ezannoni@cygnus.com)
20
# Rewritten to use gdb_test by Michael Chastain (chastain@redhat.com)
21
 
22
# This file is part of the gdb testsuite
23
#
24
# tests for correctness of arithmetic operators, associativity and precedence
25
# with integer type variables
26
#
27
 
28
if $tracelevel then {
29
        strace $tracelevel
30
        }
31
 
32
#
33
# test running programs
34
#
35
set prms_id 0
36
set bug_id 0
37
 
38
set testfile "int-type"
39
set srcfile ${testfile}.c
40
set binfile ${objdir}/${subdir}/${testfile}
41
 
42
if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug nowarnings}] != "" } {
43
     untested arithmet.exp
44
     return -1
45
    }
46
 
47
gdb_exit
48
gdb_start
49
gdb_reinitialize_dir $srcdir/$subdir
50
gdb_load ${binfile}
51
 
52
 
53
#
54
# set it up at a breakpoint so we can play with the variable values
55
#
56
 
57
if ![runto_main] then {
58
    perror "couldn't run to breakpoint"
59
    continue
60
}
61
 
62
#
63
# test expressions with "int" types
64
#
65
 
66
gdb_test "set variable x=14" ""
67
gdb_test "set variable y=2"  ""
68
gdb_test "set variable z=2"  ""
69
gdb_test "set variable w=3"  ""
70
 
71
gdb_test "print x" "14"
72
gdb_test "print y"  "2"
73
gdb_test "print z"  "2"
74
gdb_test "print w"  "3"
75
 
76
gdb_test "print x+y" "16"
77
gdb_test "print x-y" "12"
78
gdb_test "print x*y" "28"
79
gdb_test "print x/y"  "7"
80
gdb_test "print x%y"  "0"
81
 
82
#  x  y  z  w
83
# 14  2  2  3
84
 
85
# Test associativity of +, -, *, % ,/
86
 
87
gdb_test "print x+y+z" "18"
88
gdb_test "print x-y-z" "10"
89
gdb_test "print x*y*z" "56"
90
gdb_test "print x/y/z"  "3"
91
gdb_test "print x%y%z"  "0"
92
 
93
# test precedence rules on pairs of arithmetic operators
94
 
95
gdb_test "set variable x=10" ""
96
gdb_test "set variable y=4"  ""
97
 
98
#  x  y  z  w
99
# 10  4  2  3
100
 
101
gdb_test "print x+y-z" "12"
102
gdb_test "print x+y*z" "18"
103
gdb_test "print x+y%w" "11"
104
gdb_test "print x+y/w" "11"
105
gdb_test "print x-y*z"  "2"
106
gdb_test "print x-y%z" "10"
107
gdb_test "print x-y/z"  "8"
108
gdb_test "print x*y/z" "20"
109
gdb_test "print x*y%w"  "1"
110
gdb_test "print x/y%w"  "2"
111
 
112
# test use of parentheses to enforce different order of evaluation
113
 
114
gdb_test "print x-(y+w)"  "3"
115
gdb_test "print x/(y*w)"  "0"
116
gdb_test "print x-(y/w)"  "9"
117
gdb_test "print (x+y)*w" "42"

powered by: WebSVN 2.1.0

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