kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

*** empty log message ***

Browse source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/v1_1r@54 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
matz 1998-01-27 05:23:41 +00:00
parent 1d0b86572e
commit 402f001508
4 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

1
.cvsignore
View file

@ -1,3 +1,4 @@
Makefile
parse.c
newver.rb
ruby

1
MANIFEST
View file

@ -92,6 +92,7 @@ lib/delegate.rb
lib/e2mmap.rb
lib/eregex.rb
lib/find.rb
lib/final.rb
lib/finalize.rb
lib/ftplib.rb
lib/ftools.rb

12
eval.c
View file

@ -1105,13 +1105,13 @@ mod_alias_method(mod, new, old)
#if defined(C_ALLOCA) && defined(THREAD)
# define TMP_PROTECT NODE *__protect_tmp=0
# define ALLOCTMP(type,n) \
# define TMP_ALLOC(type,n) \
(__protect_tmp = node_newnode(NODE_ALLOCA, \
str_new(0,sizeof(type)*(n)),0,__protect_tmp), \
(void*)RSTRING(__protect_tmp->nd_head)->ptr)
#else
# define TMP_PROTECT typedef int foobazzz
# define ALLOCTMP(type,n) ALLOCA_N(type,n)
# define TMP_ALLOC(type,n) ALLOCA_N(type,n)
#endif
#define SETUP_ARGS(anode) {\
@ -1127,7 +1127,7 @@ mod_alias_method(mod, new, old)
int line = sourceline;\
int i;\
n = anode;\
argv = ALLOCTMP(VALUE,argc);\
argv = TMP_ALLOC(VALUE,argc);\
for (i=0;i<argc;i++) {\
argv[i] = rb_eval(self,n->nd_head);\
n=n->nd_next;\
@ -2349,7 +2349,7 @@ module_setup(module, node)
if (node->nd_rval) the_frame->cbase = node->nd_rval;
if (node->nd_tbl) {
VALUE *vars = ALLOCTMP(VALUE, node->nd_tbl[0]+1);
VALUE *vars = TMP_ALLOC(VALUE, node->nd_tbl[0]+1);
*vars++ = (VALUE)node;
the_scope->local_vars = vars;
memclear(the_scope->local_vars, node->nd_tbl[0]);
@ -3239,7 +3239,7 @@ rb_call(class, recv, mid, argc, argv, scope)
if (body->nd_rval) the_frame->cbase = body->nd_rval;
if (body->nd_tbl) {
local_vars = ALLOCTMP(VALUE, body->nd_tbl[0]+1);
local_vars = TMP_ALLOC(VALUE, body->nd_tbl[0]+1);
*local_vars++ = (VALUE)body;
memclear(local_vars, body->nd_tbl[0]);
the_scope->local_tbl = body->nd_tbl;
@ -3752,7 +3752,7 @@ f_load(obj, fname)
if (top_scope->local_tbl) {
int len = top_scope->local_tbl[0]+1;
ID *tbl = ALLOC_N(ID, len);
VALUE *vars = ALLOCTMP(VALUE, len);
VALUE *vars = TMP_ALLOC(VALUE, len);
*vars++ = 0;
MEMCPY(tbl, top_scope->local_tbl, ID, len);
MEMCPY(vars, top_scope->local_vars, ID, len-1);

2
object.c
View file

@ -680,7 +680,7 @@ fail_to_flo(val)
double big2dbl();
static VALUE
VALUE
f_float(obj, arg)
VALUE obj, arg;
{