rev 308 - trunk/src
SVN User <[email protected]>
| Newsgroups | gmane.comp.lang.prothon.cvs |
|---|---|
| Message-ID | <[email protected]> |
Author: mark
Date: 2004-04-09 15:39:18 -0400 (Fri, 09 Apr 2004)
New Revision: 308
Modified:
trunk/src/interp.c
Log:
fixed a bug in parameter passing in __init__,
file_test.pr now works
Modified: trunk/src/interp.c
===================================================================
--- trunk/src/interp.c 2004-04-09 09:03:41 UTC (rev 307)
+++ trunk/src/interp.c 2004-04-09 19:39:18 UTC (rev 308)
@@ -899,7 +899,7 @@
if (intrp_exobj) break;
fr_push(func_obj);
} else {
- memmove(fr_stack+fr_sp+2, fr_stack+fr_sp+1, (param*2) * sizeof(obj_p));
+ memmove(fr_stack+fr_sp+3, fr_stack+fr_sp+1, (param*2) * sizeof(obj_p));
fr_stack[fr_sp] = new_object(ist, fr_stack[fr_sp]);
fr_stack[fr_sp+1] = fr_stack[fr_sp];
fr_stack[fr_sp+2] = SYM(__INIT__);