Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/runtime/c-libs/smlnj-ccalls/c-calls.c
ViewVC logotype

Diff of /sml/trunk/src/runtime/c-libs/smlnj-ccalls/c-calls.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 8, Sun Jan 18 01:01:29 1998 UTC revision 106, Thu May 28 21:30:17 1998 UTC
# Line 594  Line 594 
594      SayDebug("mkCint: placing integer into %d bytes at %x\n", bytes, *dst);      SayDebug("mkCint: placing integer into %d bytes at %x\n", bytes, *dst);
595  #endif  #endif
596    
597    #ifdef BYTE_ORDER_BIG
598      src <<= (sizeof(Word_t) - bytes)*8;      src <<= (sizeof(Word_t) - bytes)*8;
599    #endif
600      memcpy (*dst, &src, bytes);      memcpy (*dst, &src, bytes);
601      (*(Byte_t **)dst) += bytes;      (*(Byte_t **)dst) += bytes;
602  }  }
# Line 606  Line 608 
608  #endif  #endif
609    
610      memcpy (dst, *src, bytes);      memcpy (dst, *src, bytes);
611    #ifdef BYTE_ORDER_BIG
612      *dst >>= (sizeof(Word_t) - bytes)*8;      *dst >>= (sizeof(Word_t) - bytes)*8;
613    #endif
614      *(Byte_t **)src += bytes;      *(Byte_t **)src += bytes;
615  }  }
616    

Legend:
Removed from v.8  
changed lines
  Added in v.106

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0