mercurylang/mercury
1
0
Fork 0
mirror of https://github.com/Mercury-Language/mercury.git synced 2025-12-14 21:35:49 +00:00
Code Issues Projects Releases Wiki Activity

Implement mutvars in C#.

Browse Source 
Estimated hours taken: 0.5
Branches: main

library/std_util.m:
	Implement mutvars in C#.
This commit is contained in:
Peter Ross
2003-11-13 12:26:51 +00:00
parent 4cfd32d3f4
commit 77dbb00c8d
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
library/std_util.m
View File

@@ -1309,24 +1309,24 @@ XXX `ui' modes don't work yet
*(MR_Word *) Ref = X;
").
:- pragma foreign_proc("MC++",
:- pragma foreign_proc("C#",
new_mutvar(X::in, Ref::out),
[will_not_call_mercury, thread_safe],
"
MR_untagged_newobj(Ref, 1);
Ref = new object[1];
Ref[0] = X;
").
:- pragma foreign_proc("MC++",
:- pragma foreign_proc("C#",
new_mutvar(X::di, Ref::uo),
[will_not_call_mercury, thread_safe],
"
MR_untagged_newobj(Ref, 1);
Ref = new object[1];
Ref[0] = X;
").
:- pragma inline(get_mutvar/2).
:- pragma foreign_proc("MC++",
:- pragma foreign_proc("C#",
get_mutvar(Ref::in, X::uo),
[will_not_call_mercury, thread_safe],
"
@@ -1335,7 +1335,7 @@ XXX `ui' modes don't work yet
:- pragma inline(set_mutvar/2).
:- pragma foreign_proc("MC++",
:- pragma foreign_proc("C#",
set_mutvar(Ref::in, X::in),
[will_not_call_mercury, thread_safe],
"