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

Add a new type of annotation on procedures defined by pragma foreign

Browse Source 
Estimated hours taken: 1

compiler/prog_data.m:
	Add a new type of annotation on procedures defined by pragma foreign
	code. For now the annotation is ignored. When I/O tabling is
	implemented (soon), this annotation will ask for the procedure
	to be considered an I/O predicate and tabled accordingly.

compiler/prog_io_pragma.m:
	Parse the new annotation.

tests/valid/tabled_for_io.m:
	Test case to check that the compiler accepts the new annotation.

tests/valid/Mmakefile:
	Enable the test case.
This commit is contained in:
Zoltan Somogyi
2000-10-27 03:13:04 +00:00
parent b251a990aa
commit 702b512aaf
4 changed files with 70 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
compiler/prog_data.m
View File

@@ -535,6 +535,13 @@
pragma_foreign_code_attributes).
:- mode set_thread_safe(in, in, out) is det.
:- pred tabled_for_io(pragma_foreign_code_attributes, tabled_for_io).
:- mode tabled_for_io(in, out) is det.
:- pred set_tabled_for_io(pragma_foreign_code_attributes, tabled_for_io,
pragma_foreign_code_attributes).
:- mode set_tabled_for_io(in, in, out) is det.
% For pragma c_code, there are two different calling conventions,
% one for C code that may recursively call Mercury code, and another
% more efficient one for the case when we know that the C code will
@@ -550,6 +557,10 @@
---> not_thread_safe
; thread_safe.
:- type tabled_for_io
---> not_tabled_for_io
; tabled_for_io.
:- type pragma_var
---> pragma_var(prog_var, string, mode).
% variable, name, mode
@@ -924,24 +935,30 @@
:- type pragma_foreign_code_attributes
---> attributes(
may_call_mercury,
thread_safe
may_call_mercury :: may_call_mercury,
thread_safe :: thread_safe,
tabled_for_io :: tabled_for_io
).
default_attributes(attributes(may_call_mercury, not_thread_safe)).
default_attributes(attributes(may_call_mercury, not_thread_safe,
not_tabled_for_io)).
may_call_mercury(Attrs, MayCallMercury) :-
Attrs = attributes(MayCallMercury, _).
MayCallMercury = Attrs ^ may_call_mercury.
thread_safe(Attrs, ThreadSafe) :-
Attrs = attributes(_, ThreadSafe).
ThreadSafe = Attrs ^ thread_safe.
tabled_for_io(Attrs, TabledForIo) :-
TabledForIo = Attrs ^ tabled_for_io.
set_may_call_mercury(Attrs0, MayCallMercury, Attrs) :-
Attrs0 = attributes(_, ThreadSafe),
Attrs = attributes(MayCallMercury, ThreadSafe).
Attrs = Attrs0 ^ may_call_mercury := MayCallMercury.
set_thread_safe(Attrs0, ThreadSafe, Attrs) :-
Attrs0 = attributes(MayCallMercury, _),
Attrs = attributes(MayCallMercury, ThreadSafe).
Attrs = Attrs0 ^ thread_safe := ThreadSafe.
set_tabled_for_io(Attrs0, TabledForIo, Attrs) :-
Attrs = Attrs0 ^ tabled_for_io := TabledForIo.
%-----------------------------------------------------------------------------%