diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

pin cluses with floats.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1906 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2007-06-23 17:31:50 +00:00
parent 7a98e7df59
commit 21c8ead246
2 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
C/amasm.c
View File

@ -11,8 +11,11 @@
* File: amasm.c * * File: amasm.c *
* comments: abstract machine assembler * * comments: abstract machine assembler *
* * * *
* Last rev: $Date: 2006-12-27 01:32:37 $ * * Last rev: $Date: 2007-06-23 17:31:50 $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.94 2006/12/27 01:32:37 vsc
* diverse fixes
*
* Revision 1.93 2006/12/13 16:10:14 vsc * Revision 1.93 2006/12/13 16:10:14 vsc
* several debugger and CLP(BN) improvements. * several debugger and CLP(BN) improvements.
* *
@ -2856,9 +2859,11 @@ do_pass(int pass_no, yamop **entry_codep, int assembling, int *clause_has_blobsp
code_p = a_rc(_get_atom, code_p, pass_no, cip); code_p = a_rc(_get_atom, code_p, pass_no, cip);
break; break;
case get_float_op: case get_float_op:
*clause_has_blobsp = TRUE;
code_p = a_rd(_get_float, code_p, pass_no, cip->cpc); code_p = a_rd(_get_float, code_p, pass_no, cip->cpc);
break; break;
case get_longint_op: case get_longint_op:
*clause_has_blobsp = TRUE;
code_p = a_ri(_get_longint, code_p, pass_no, cip->cpc); code_p = a_ri(_get_longint, code_p, pass_no, cip->cpc);
break; break;
case get_bigint_op: case get_bigint_op:
@ -2869,9 +2874,11 @@ do_pass(int pass_no, yamop **entry_codep, int assembling, int *clause_has_blobsp
code_p = a_rc(_put_atom, code_p, pass_no, cip); code_p = a_rc(_put_atom, code_p, pass_no, cip);
break; break;
case put_float_op: case put_float_op:
*clause_has_blobsp = TRUE;
code_p = a_rd(_put_float, code_p, pass_no, cip->cpc); code_p = a_rd(_put_float, code_p, pass_no, cip->cpc);
break; break;
case put_longint_op: case put_longint_op:
*clause_has_blobsp = TRUE;
code_p = a_ri(_put_longint, code_p, pass_no, cip->cpc); code_p = a_ri(_put_longint, code_p, pass_no, cip->cpc);
break; break;
case put_bigint_op: case put_bigint_op:
@ -2924,9 +2931,11 @@ do_pass(int pass_no, yamop **entry_codep, int assembling, int *clause_has_blobsp
code_p = a_ucons(&do_not_optimise_uatom, unify_atom_op, code_p, pass_no, cip); code_p = a_ucons(&do_not_optimise_uatom, unify_atom_op, code_p, pass_no, cip);
break; break;
case unify_float_op: case unify_float_op:
*clause_has_blobsp = TRUE;
code_p = a_ud(_unify_float, _unify_float_write, code_p, pass_no, cip->cpc); code_p = a_ud(_unify_float, _unify_float_write, code_p, pass_no, cip->cpc);
break; break;
case unify_longint_op: case unify_longint_op:
*clause_has_blobsp = TRUE;
code_p = a_ui(_unify_longint, _unify_longint_write, code_p, pass_no, cip->cpc); code_p = a_ui(_unify_longint, _unify_longint_write, code_p, pass_no, cip->cpc);
break; break;
case unify_bigint_op: case unify_bigint_op:
@ -2937,9 +2946,11 @@ do_pass(int pass_no, yamop **entry_codep, int assembling, int *clause_has_blobsp
code_p = a_uc(cip->cpc->rnd1, _unify_l_atom, _unify_l_atom_write, code_p, pass_no); code_p = a_uc(cip->cpc->rnd1, _unify_l_atom, _unify_l_atom_write, code_p, pass_no);
break; break;
case unify_last_float_op: case unify_last_float_op:
*clause_has_blobsp = TRUE;
code_p = a_ud(_unify_l_float, _unify_l_float_write, code_p, pass_no, cip->cpc); code_p = a_ud(_unify_l_float, _unify_l_float_write, code_p, pass_no, cip->cpc);
break; break;
case unify_last_longint_op: case unify_last_longint_op:
*clause_has_blobsp = TRUE;
code_p = a_ui(_unify_l_longint, _unify_l_longint_write, code_p, pass_no, cip->cpc); code_p = a_ui(_unify_l_longint, _unify_l_longint_write, code_p, pass_no, cip->cpc);
break; break;
case unify_last_bigint_op: case unify_last_bigint_op:
@ -2950,9 +2961,11 @@ do_pass(int pass_no, yamop **entry_codep, int assembling, int *clause_has_blobsp
code_p = a_ucons(&do_not_optimise_uatom, write_atom_op, code_p, pass_no, cip); code_p = a_ucons(&do_not_optimise_uatom, write_atom_op, code_p, pass_no, cip);
break; break;
case write_float_op: case write_float_op:
*clause_has_blobsp = TRUE;
code_p = a_wd(_write_float, code_p, pass_no, cip->cpc); code_p = a_wd(_write_float, code_p, pass_no, cip->cpc);
break; break;
case write_longint_op: case write_longint_op:
*clause_has_blobsp = TRUE;
code_p = a_wi(_write_longint, code_p, pass_no, cip->cpc); code_p = a_wi(_write_longint, code_p, pass_no, cip->cpc);
break; break;
case write_bigint_op: case write_bigint_op:

2
pl/signals.yap
View File

@ -20,6 +20,7 @@
'$creep'(G) :- '$creep'(G) :-
% get the first signal from the mask % get the first signal from the mask
'$first_signal'(Sig), !, '$first_signal'(Sig), !,
format('~w~n',[G]),
% process it % process it
'$do_signal'(Sig, G). '$do_signal'(Sig, G).
'$creep'([M|G]) :- '$creep'([M|G]) :-
@ -32,6 +33,7 @@
'$continue_signals', '$continue_signals',
'$wake_up_goal'(G, LG). '$wake_up_goal'(G, LG).
'$do_signal'(sig_creep, [M|G]) :- '$do_signal'(sig_creep, [M|G]) :-
format('~w~n',[G]),
'$start_creep'([M|G]). '$start_creep'([M|G]).
'$do_signal'(sig_delay_creep, [M|G]) :- '$do_signal'(sig_delay_creep, [M|G]) :-
'$execute'(M:G), '$execute'(M:G),