Branch: Tag:

1995-08-17

1995-08-17 09:35:27 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

64 bittar och b{ttre bsd fd tjafs..

Rev: lib/simulate.lpc:1.2
Rev: src/BUGS:1.2
Rev: src/Makefile.in:1.3
Rev: src/array.c:1.2
Rev: src/backend.c:1.2
Rev: src/configure.in:1.3
Rev: src/docode.c:1.2
Rev: src/interpret.c:1.2
Rev: src/language.y:1.2
Rev: src/las.h:1.2
Rev: src/lex.c:1.2
Rev: src/list.c:1.2
Rev: src/macros.h:1.2
Rev: src/main.c:1.4
Rev: src/mapping.c:1.2
Rev: src/modules/files/file.c:1.2
Rev: src/modules/files/socket.c:1.2
Rev: src/modules/regexp/regexp.c:1.2
Rev: src/opcodes.c:1.2
Rev: src/port.c:1.3
Rev: src/port.h:1.3
Rev: src/program.c:1.2
Rev: src/rusage.c:1.2
Rev: src/stralloc.c:1.2
Rev: src/stralloc.h:1.2
Rev: src/svalue.c:1.2

166:    instr=prefix,\    prefix=0,\    instr+=EXTRACT_UCHAR(pc++),\ -  (t_flag>3 ? sprintf(trace_buffer,"- Arg = %ld\n",instr),write_to_stderr(trace_buffer,strlen(trace_buffer)) : 0),\ +  (t_flag>3 ? sprintf(trace_buffer,"- Arg = %ld\n",(long)instr),\ +  write_to_stderr(trace_buffer,strlen(trace_buffer)) : 0),\    instr))      #else
218:    pc+=EXTRACT_INT(pc); \    check_signals(); \    }else{ \ -  pc+=4; \ +  pc+=sizeof(INT32); \    pop_n_elems(3); \    } \    break; \
254: Inside #if defined(DEBUG)
     #ifdef DEBUG   #define BACKLOG 512 - #define BACKLOG_FILE_LENGTH 48 +    struct backlog   {    INT32 instruction;
286:    file=get_line(backlog[e].pc-1,backlog[e].program, &line);    fprintf(stderr,"%s:%ld: %s(%ld)\n",    file, -  line, +  (long)line,    low_get_f_name(backlog[e].instruction + F_OFFSET, backlog[e].program), -  backlog[e].arg); +  (long)backlog[e].arg);    }    }while(e!=backlogp);   };
343: Inside #if defined(DEBUG)
      file=get_line(pc-1,fp->context.prog,&linep);    while((f=strchr(file,'/'))) file=f+1; -  fprintf(stderr,"- %s:%4ld:(%x): %-25s %4d %4d\n", -  file,linep, -  pc-fp->context.prog->program-1, +  fprintf(stderr,"- %s:%4ld:(%lx): %-25s %4ld %4ld\n", +  file,(long)linep, +  (long)(pc-fp->context.prog->program-1),    get_f_name(instr + F_OFFSET), -  sp-evaluator_stack, -  mark_sp-mark_stack); +  (long)(sp-evaluator_stack), +  (long)(mark_sp-mark_stack));    if(nonblock)    set_nonblocking(2,1);    }
361:    CASE(F_ADD_512); instr=EXTRACT_UCHAR(pc++)+512; goto again;    CASE(F_ADD_768); instr=EXTRACT_UCHAR(pc++)+768; goto again;    CASE(F_ADD_1024);instr=EXTRACT_UCHAR(pc++)+1024;goto again; -  CASE(F_ADD_256X); instr=EXTRACT_UWORD(pc); pc+=2; goto again; +  CASE(F_ADD_256X); instr=EXTRACT_UWORD(pc); pc+=sizeof(INT16); goto again;       /* Support to allow large arguments */    CASE(F_PREFIX_256); prefix+=256; break;
586:    check_destructed(sp-1);    if(!IS_ZERO(sp-1))    { -  pc+=4; +  pc+=sizeof(INT32);    }else{    check_signals();    pc+=EXTRACT_INT(pc);
598:    check_destructed(sp-1);    if(IS_ZERO(sp-1))    { -  pc+=4; +  pc+=sizeof(INT32);    }else{    check_signals();    pc+=EXTRACT_INT(pc);
610:    check_destructed(sp-1);    if(!IS_ZERO(sp-1))    { -  pc+=4; +  pc+=sizeof(INT32);    pop_stack();    }else{    check_signals();
622:    check_destructed(sp-1);    if(IS_ZERO(sp-1))    { -  pc+=4; +  pc+=sizeof(INT32);    pop_stack();    }else{    check_signals();
631:    break;       CASE(F_CATCH); -  f_catch(pc+4); +  f_catch(pc+sizeof(INT32));    pc+=EXTRACT_INT(pc);    break;   
640:    INT32 tmp;    tmp=switch_lookup(fp->context.prog->    constants[EXTRACT_UWORD(pc)].u.array,sp-1); -  pc+=2; -  pc=(unsigned char *)ALIGN(pc); +  pc+=sizeof(INT16); +  pc=(unsigned char *)MY_ALIGN(pc);    if(tmp >= 0)    pc+=((INT32 *)pc)[1+tmp*2];    else
667:    pc+=EXTRACT_INT(pc);    sp[-1].u.integer++;    }else{ -  pc+=4; +  pc+=sizeof(INT32);    pop_n_elems(4);    }    break;
895: Inside #if defined(DEBUG)
   if((nonblock=query_nonblocking(2)))    set_nonblocking(2,0);    -  if(fp) +  if(fp && fp->pc)    {    file=get_line(fp->pc,fp->context.prog,&linep);    while((f=strchr(file,'/'))) file=f+1;
916: Inside #if defined(DEBUG)
   }    my_strcat(")");    s=simple_free_buf(); -  fprintf(stderr,"- %s:%4ld: %s\n",file,linep,s); +  fprintf(stderr,"- %s:%4ld: %s\n",file,(long)linep,s);    free(s);       if(nonblock)
1093: Inside #if defined(DEBUG)
   if((nonblock=query_nonblocking(2)))    set_nonblocking(2,0);    -  if(fp) +  if(fp && fp->pc)    {    file=get_line(fp->pc,fp->context.prog,&linep);    while((f=strchr(file,'/'))) file=f+1;
1112: Inside #if defined(DEBUG)
   }    my_strcat(")");    st=simple_free_buf(); -  fprintf(stderr,"- %s:%4ld: %s\n",file,linep,st); +  fprintf(stderr,"- %s:%4ld: %s\n",file,(long)linep,st);    free(st);       if(nonblock)