mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-26 16:51:46 -07:00
Code Issues Projects Releases Wiki Activity

Correct the error handling in the mps_fix_call example and in the mps_fix implementation.

Browse source 
Copied from Perforce
 Change: 187308
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Gareth Rees 2014-10-21 00:27:36 +01:00
parent 58293e62e5
commit 327a7dff39
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
mps/manual/source/topic/scanning.rst
View file

@ -180,7 +180,7 @@ so that it cannot move.
You could use this fact to optimize the scan by avoiding the need to
reassemble and store the updated reference after calling
:c:func:`MPS_FIX2`
:c:func:`MPS_FIX2`.
.. note::
@ -370,8 +370,6 @@ Scanning interface
``call`` is an expression containing a function call where ``ss``
is one of the arguments.
Returns the result of evaluating the expression ``call``.
Between :c:func:`MPS_SCAN_BEGIN` and :c:func:`MPS_SCAN_END`, the
scan state is in a special state, and must not be passed to a
function. If you really need to do so, for example because you
@ -392,12 +390,14 @@ Scanning interface
mps_res_t res;
MPS_SCAN_BEGIN(ss) {
for (obj = base; obj < limit; obj++) {
if (MPS_FIX12(ss, &obj->left) != MPS_RES_OK)
res = MPS_FIX12(ss, &obj->left);
if (res != MPS_RES_OK)
return res;
MPS_FIX_CALL(ss, res = data_scan(ss, &obj->data));
if (res != MPS_RES_OK)
return res;
if (MPS_FIX12(ss, &obj->right) != MPS_RES_OK)
res = MPS_FIX12(ss, &obj->right);
if (res != MPS_RES_OK)
return res;
}
} MPS_SCAN_END(ss);
@ -509,8 +509,9 @@ Fixing interface
This is a function equivalent to::
MPS_SCAN_BEGIN(ss);
MPS_FIX12(ss, ref_io);
res = MPS_FIX12(ss, ref_io);
MPS_SCAN_END(ss);
return res;
Because :term:`scanning <scan>` is an operation on the
:term:`critical path`, we recommend that you use