Patch title: Release 92 bulk changes
Abstract:
File: /graphic/misc/bytes.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/unsafe.pli"


function bytes_copy src src_step dest dest_step count
  arg Address src dest ; arg Int src_step dest_step count
module "/pliant/language/unsafe.pli"


function bytes_copy src src_step dest dest_step count
  arg Address src dest ; arg Int src_step dest_step count
  if src_step=1 and dest_step=1
    memory_copy src dest count
    return  
  var Address s := src
  var Address stop := src translate Byte src_step*count
  var Address d := dest
  while s<>stop
    d map uInt8 := s map uInt8
    s := s translate Byte src_step
    d := d translate Byte dest_step

  var Address s := src
  var Address stop := src translate Byte src_step*count
  var Address d := dest
  while s<>stop
    d map uInt8 := s map uInt8
    s := s translate Byte src_step
    d := d translate Byte dest_step

function bytes_copy_255minus src src_step dest dest_step siz
  arg Address src dest ; arg Int src_step dest_step size
  constant maxi (cast 2n^uInt:bitsize-1 uInt)
function bytes_copy_255minus src src_step dest dest_step count
  arg Address src dest ; arg Int src_step dest_step count
  var Address s := src
  var Address d := dest
  if src_step=1 and dest_step=1
  var Address s := src
  var Address d := dest
  if src_step=1 and dest_step=1
    var Address stop := src translate Byte (size .and. .not.
    var Address stop := src translate Byte (count .and. .not. (Int:size-1))
    while s<>stop
    while s<>stop
      d map uInt := maxi-(s map uInt)
      s := s translate uInt 1
      d := d translate uInt 1
  var Address stop := src translate Byte src_step*size
      d map Int := (-1) .-. (s map Int)
      s := s translate Int 1
      d := d translate Int 1
  var Address stop := src translate Byte src_step*count
  while s<>stop
    d map uInt8 := 255-(s map uInt8)
    s := s translate Byte src_step
    d := d translate Byte dest_step


  while s<>stop
    d map uInt8 := 255-(s map uInt8)
    s := s translate Byte src_step
    d := d translate Byte dest_step