2018-12-27 01:12:09 -05:00
|
|
|
%# -*- C -*-
|
2018-12-25 19:58:26 -05:00
|
|
|
%# Copyright (c) 2018 Urabe, Shyouhei. All rights reserved.
|
|
|
|
%#
|
|
|
|
%# This file is a part of the programming language Ruby. Permission is hereby
|
|
|
|
%# granted, to either redistribute and/or modify this file, provided that the
|
|
|
|
%# conditions mentioned in the file COPYING are met. Consult the file for
|
|
|
|
%# details.
|
|
|
|
%;
|
2018-12-26 02:23:35 -05:00
|
|
|
#line <%= __LINE__ + 1 %> <%=cstr __FILE__ %>
|
2018-12-25 19:58:26 -05:00
|
|
|
|
|
|
|
static rb_snum_t
|
|
|
|
sp_inc_of_sendish(const struct rb_call_info *ci)
|
|
|
|
{
|
|
|
|
/* Send-ish instructions will:
|
|
|
|
*
|
|
|
|
* 1. Pop block argument, if any.
|
2018-12-26 04:14:28 -05:00
|
|
|
* 2. Pop ordinal arguments.
|
2018-12-25 19:58:26 -05:00
|
|
|
* 3. Pop receiver.
|
|
|
|
* 4. Push return value.
|
|
|
|
*/
|
|
|
|
const int argb = (ci->flag & VM_CALL_ARGS_BLOCKARG) ? 1 : 0;
|
2018-12-27 04:09:42 -05:00
|
|
|
const int argc = ci->orig_argc;
|
2018-12-25 19:58:26 -05:00
|
|
|
const int recv = 1;
|
|
|
|
const int retn = 1;
|
|
|
|
|
|
|
|
/* 1. 2. 3. 4. */
|
|
|
|
return 0 - argb - argc - recv + retn;
|
|
|
|
}
|
|
|
|
|
|
|
|
static rb_snum_t
|
|
|
|
sp_inc_of_invokeblock(const struct rb_call_info *ci)
|
|
|
|
{
|
|
|
|
/* sp_inc of invokeblock is almost identical to that of sendish
|
2018-12-26 04:14:28 -05:00
|
|
|
* instructions, except that it does not pop receiver. */
|
2018-12-25 19:58:26 -05:00
|
|
|
return sp_inc_of_sendish(ci) + 1;
|
|
|
|
}
|
2018-12-26 02:23:35 -05:00
|
|
|
#pragma RubyVM reset source
|