[m-rev.] trivial diff: fix compilation of mopenssl

[Julien Fischer]

Branches: main

extras/mopenssl/mopenssl.m:
 	Replace export pragmas with foreign_export pragmas.

Julien.

Index: mopenssl.m
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/extras/mopenssl/mopenssl.m,v
retrieving revision 1.2
diff -u -r1.2 mopenssl.m
--- mopenssl.m	9 May 2007 04:05:06 -0000	1.2
+++ mopenssl.m	15 Dec 2010 14:57:20 -0000
@@ -212,7 +212,8 @@
  ").

  :- pred call_password_cb(password_cb::in, string::out, io::di, io::uo) is det.
-:- pragma export(call_password_cb(in, out, di, uo), "MOPENSSL_call_password_cb").
+:- pragma foreign_export("C", call_password_cb(in, out, di, uo),
+    "MOPENSSL_call_password_cb").
  call_password_cb(password_cb(P), Password, !IO) :-
      password_cb(P, Password, !IO).

@@ -249,15 +250,16 @@
  ").

  :- func empty = list(string).
-:- pragma export(empty = out, "MOPENSSL_empty").
+:- pragma foreign_export("C", empty = out, "MOPENSSL_empty").
  empty = [].

  :- func mycons(string, list(string)) = list(string).
-:- pragma export(mycons(in, in) = (out), "MOPENSSL_cons").
+:- pragma foreign_export("C", mycons(in, in) = (out), "MOPENSSL_cons").
  mycons(H, T) = [H|T].

  :- pred throw_ssl_exception(list(string)::in) is erroneous.
-:- pragma export(throw_ssl_exception(in), "MOPENSSL_throw_exception").
+:- pragma foreign_export("C", throw_ssl_exception(in),
+    "MOPENSSL_throw_exception").
  throw_ssl_exception(L) :-
      throw(ssl_exception(L)).

--------------------------------------------------------------------------
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
--------------------------------------------------------------------------