Branch: Tag:

1997-03-12

1997-03-12 12:21:50 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

clone() renamed to clone_object()

Rev: src/ChangeLog:1.87
Rev: src/builtin_functions.c:1.33
Rev: src/interpret.c:1.35
Rev: src/modules/Gmp/mpz_glue.c:1.6
Rev: src/modules/Image/dct.c:1.3
Rev: src/modules/Image/font.c:1.3
Rev: src/modules/Image/image.c:1.3
Rev: src/modules/Image/matrix.c:1.2
Rev: src/modules/Image/operator.c:1.2
Rev: src/modules/Image/pattern.c:1.2
Rev: src/modules/Mysql/mysql.c:1.3
Rev: src/modules/Pipe/pipe.c:1.3
Rev: src/modules/Ssleay/ssleay.c:1.2
Rev: src/modules/_Crypto/cbc.c:1.6
Rev: src/modules/_Crypto/crypto.c:1.17
Rev: src/modules/_Crypto/pipe.c:1.6
Rev: src/modules/files/file.c:1.29
Rev: src/object.c:1.15
Rev: src/object.h:1.9
Rev: src/testsuite.in:1.36
Rev: src/threads.c:1.19

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.32 1997/03/11 03:58:58 hubbe Exp $"); + RCSID("$Id: builtin_functions.c,v 1.33 1997/03/12 12:15:26 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "macros.h"
395:    fatal("No cwd in combine_path!\n");   #endif    -  if(cwd[strlen(cwd)-1]=='/') +  if(!*cwd || cwd[strlen(cwd)-1]=='/')    {    ret=(char *)xalloc(strlen(cwd)+strlen(file)+1);    strcpy(ret,cwd);
622:    if(sp[-args].type != T_INT)    error("Bad argument 1 to exit.\n");    +  i=sp[-args].u.integer; +    #ifdef _REENTRANT    if(num_threads) exit(i);   #endif
631:    call_callback(&exit_callbacks, (void *)0);    free_callback(&exit_callbacks);    -  i=sp[-args].u.integer; +     exit_modules();       UNSET_ONERROR(tmp);