Patch title: Release 90 bulk changes
Abstract:
File: /graphic/browser/xml/tree.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/compiler.pli"



function build t
  arg_w XmlTree t
  t buf := memory_allocate 2*Int:size addressof:t
  t:buf map Int := 0
  (t:buf translate Int 1) map Int := undefined
  t first :> null map XmlTree
module "/pliant/language/compiler.pli"



function build t
  arg_w XmlTree t
  t buf := memory_allocate 2*Int:size addressof:t
  t:buf map Int := 0
  (t:buf translate Int 1) map Int := undefined
  t first :> null map XmlTree
  t next :> null map XmlTree
  t x0 := undefined ; t y0 := undefined ; t x1 := undefined 


function new_xml_node -> n
  arg_RW XmlTree n
  n :> (memory_allocate XmlTree:size null) map XmlTree
  XmlTree build_instance addressof:n
  t x0 := undefined ; t y0 := undefined ; t x1 := undefined 


function new_xml_node -> n
  arg_RW XmlTree n
  n :> (memory_allocate XmlTree:size null) map XmlTree
  XmlTree build_instance addressof:n
  n next :> null map XmlTree


meta each e
  if e:size=3 and e:0:is_pure_ident and (e:1 cast XmlTree) a


meta each e
  if e:size=3 and e:0:is_pure_ident and (e:1 cast XmlTree) a
    e suckup e:1
    var Link:Instruction end :> instruction the_function:'do
    var Link:Argument cursor :> e local_variable e:0 Pointer
    var Link:Argument cursor :> e local_variable e:0 Pointer
    e:2 compile ?
    var Link:Argument some :> argument local CBool
    var Link:Argument some :> argument local CBool
    e suckup e:1
    e add (instruction (the_function '. map_first' XmlTree P
    e add (instruction (the_function '. map_first' XmlTree P
    var Link:Instruction end :> instruction the_function:'do nothing'
    e add (instruction (the_function 'jump if not' CBool) so
    var Link:Instruction body :> instruction the_function:'d
    e add body
    e add (instruction (the_function 'jump if not' CBool) so
    var Link:Instruction body :> instruction the_function:'d
    e add body
    e suckup e:1
    e suckup e:2
    e add (instruction (the_function map_next Pointer:XmlTre
    e add (instruction (the_function 'jump if' CBool) some j
    e add end
    e set_void_result



export new_xml_node free_xml_node
    e add (instruction (the_function map_next Pointer:XmlTre
    e add (instruction (the_function 'jump if' CBool) some j
    e add end
    e set_void_result



export new_xml_node free_xml_node