[gforth] / gforth / engine / support.c  

gforth: gforth/engine/support.c

Diff for /gforth/engine/support.c between version 1.18 and 1.22

version 1.18, Sun Dec 31 13:39:17 2006 UTC version 1.22, Sun Mar 25 21:30:59 2007 UTC
Line 282 
Line 282 
   return result;    return result;
 }  }
   
   #ifdef HAS_FILE
 Cell rename_file(Char *c_addr1, UCell u1, Char *c_addr2, UCell u2)  Cell rename_file(Char *c_addr1, UCell u1, Char *c_addr2, UCell u2)
 {  {
   char *s1=tilde_cstr(c_addr2, u2, 1);    char *s1=tilde_cstr(c_addr2, u2, 1);
Line 404 
Line 405 
   *rp = r;    *rp = r;
   return flag;    return flag;
 }  }
   #endif
   
 Float v_star(Float *f_addr1, Cell nstride1, Float *f_addr2, Cell nstride2, UCell ucount)  Float v_star(Float *f_addr1, Cell nstride1, Float *f_addr2, Cell nstride2, UCell ucount)
 {  {
Line 500 
Line 502 
    n = 0;     n = 0;
 #if (SIZEOF_CHAR_P > 4)  #if (SIZEOF_CHAR_P > 4)
    if (x <= 0xffffffff) {n+=32; x <<= 32;}     if (x <= 0xffffffff) {n+=32; x <<= 32;}
   #error "this can't be correct"
 #endif  #endif
    if (x <= 0x0000FFFF) {n = n +16; x = x <<16;}     if (x <= 0x0000FFFF) {n = n +16; x = x <<16;}
    if (x <= 0x00FFFFFF) {n = n + 8; x = x << 8;}     if (x <= 0x00FFFFFF) {n = n + 8; x = x << 8;}
Line 528 
Line 531 
 #if UDIV_NEEDS_NORMALIZATION  #if UDIV_NEEDS_NORMALIZATION
   lz = nlz(v);    lz = nlz(v);
   v <<= lz;    v <<= lz;
   u <<= lz;    u = UDLSHIFT(u,lz);
   vm_ud2twoCell(u,u0,u1);    vm_ud2twoCell(u,u0,u1);
 #endif  #endif
   udiv_qrnnd(q,r,u1,u0,v);    udiv_qrnnd(q,r,u1,u0,v);

Generate output suitable for use with a patch program
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.22
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help