[m-dev.] trivial diff: fix bug in extras/curses/user.m

Fergus Henderson fjh at cs.mu.OZ.AU
Mon Apr 10 18:10:10 AEST 2000


Estimated hours taken: 0.25

extras/curses/user.m:
	Fix a cut-and-paste error: in a couple of places,
	change "pragma c_header_code" to "pragma c_code".

Workspace: /home/pgrad/fjh/ws/hg
Index: extras/curses/user.m
===================================================================
RCS file: /home/mercury1/repository/mercury/extras/curses/user.m,v
retrieving revision 1.2
diff -u -d -u -5 -r1.2 user.m
--- extras/curses/user.m	2000/01/31 03:12:54	1.2
+++ extras/curses/user.m	2000/04/10 08:05:51
@@ -600,11 +600,11 @@
 
 :- pragma c_header_code("
 	extern Word	curse_cursor;
 ").
 
-:- pragma c_header_code("
+:- pragma c_code("
 	Word		curse_cursor;
 ").
 
 :- pragma c_code(get_cursor(C::out, I0::di, I::uo),
 	[will_not_call_mercury], "
@@ -626,11 +626,11 @@
 
 :- pragma c_header_code("
 	extern Word	curse_store;
 ").
 
-:- pragma c_header_code("
+:- pragma c_code("
 	Word		curse_store;
 ").
 
 :- pragma c_code(get_curse(C::uo, I0::di, I::uo),
 	[will_not_call_mercury], "

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
WWW: <http://www.cs.mu.oz.au/~fjh>  |  of excellence is a lethal habit"
PGP: finger fjh at 128.250.37.3        |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------



More information about the developers mailing list