[m-rev.] trivial diff: fix failure of debugger/declarative/sort

[Julien Fischer]

Estimated hours taken: 0
Branches: main

Fix the failure of debugger/declarative/sort.

tests/debugger/declarative/sort.exp:
 	Conform to the recent change in the standard library which inserted
 	calls lock/unlock predicates must be called before accessing the
 	stream DB.  This caused the number of I/O actions in the output to
 	increase.

Julien.

Index: sort.exp
===================================================================
RCS file: /home/mercury/mercury1/repository/tests/debugger/declarative/sort.exp,v
retrieving revision 1.3
diff -u -r1.3 sort.exp
--- sort.exp	13 Jun 2006 06:48:56 -0000	1.3
+++ sort.exp	22 Feb 2007 05:17:13 -0000
@@ -14,11 +14,13 @@
  mdb> format_param depth 1
  mdb> dd
  main(...)
-16 tabled IO actions:
+18 tabled IO actions:
  command_line_arguments(...)
  do_open_text(...)
+lock_stream_db
  get_stream_db(...)
  set_stream_db(...)
+unlock_stream_db
  read_line_as_string_2(...)
  read_line_as_string_2(...)
  read_line_as_string_2(...)
@@ -33,14 +35,17 @@
  write_string(...)
  Valid? depth io 10
  dd> print io 9
-read_line_as_string_2(<<foreign>>, yes, -1, "")
+read_line_as_string_2(<<foreign>>, yes, 0, "rafe
+")
  dd> depth io 1
  dd> no
  open_stream(...)
-3 tabled IO actions:
+5 tabled IO actions:
  do_open_text(...)
+lock_stream_db
  get_stream_db(...)
  set_stream_db(...)
+unlock_stream_db
  Valid? yes
  read_lines(...)
  5 tabled IO actions:

--------------------------------------------------------------------------
mercury-reviews mailing list
Post messages to:       mercury-reviews at csse.unimelb.edu.au
Administrative Queries: owner-mercury-reviews at csse.unimelb.edu.au
Subscriptions:          mercury-reviews-request at csse.unimelb.edu.au
--------------------------------------------------------------------------