diff options
| author | johnvg | 2001-12-05 12:25:52 +0000 |
|---|---|---|
| committer | johnvg | 2001-12-05 12:25:52 +0000 |
| commit | 55e593fde5249c7216729d7e21a9dcab47362874 (patch) | |
| tree | bcdf53e941d97afaec79d2e3991e4f21e134b027 /frontend/StdCompare.icl | |
| parent | forgot to some definitions to export (diff) | |
removed type from BasicExpr
added BVInt
removed symb_arity from SymbIdent
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@918 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/StdCompare.icl')
| -rw-r--r-- | frontend/StdCompare.icl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/frontend/StdCompare.icl b/frontend/StdCompare.icl index 10a9455..e14b52f 100644 --- a/frontend/StdCompare.icl +++ b/frontend/StdCompare.icl @@ -54,7 +54,10 @@ where instance == BasicValue where - (==) (BVI int1) (BVI int2) = int1 == int2 + (==) (BVI int1) (BVI int2) = int1 == int2 + (==) (BVI int1) (BVInt int2) = int1 == toString int2 + (==) (BVInt int1) (BVI int2) = toString int1 == int2 + (==) (BVInt int1) (BVInt int2) = int1 == int2 (==) (BVC char1) (BVC char2) = char1 == char2 (==) (BVB bool1) (BVB bool2) = bool1 == bool2 (==) (BVR real1) (BVR real2) = real1 == real2 |