id	summary	reporter	owner	description	type	status	priority	milestone	component	version	severity	resolution	keywords	cc	lang	patch	platform
468	string encoding not saved in pbc	NotFound		"This example shows the problem caused by the unimplementation of the Encoding field of string constants in pbc files:

{{{
$ cat strings.pir
.sub main
  $S0 = ""hello""
  show($S0)
  $S0 = unicode:""hello""
  show($S0)
  $S0 = utf8:unicode:""hello""
  show($S0)
  $S0 = utf16:unicode:""hello""
  show($S0)
  $S0 = ucs2:unicode:""hello""
  show($S0)
.end

.sub show
  .param string s
  print s
  $I0 = bytelength s
  print '('
  print $I0
  print ""): ""
  $I0 = encoding s
  $S0 = encodingname $I0
  say $S0
.end

$ ./parrot strings.pir
hello(5): fixed_8
hello(5): utf8
hello(5): utf8
hello(5): utf16
hello(5): ucs2
$ ./parrot -o strings.pbc strings.pir
$ ./parrot strings.pbc
hello(5): fixed_8
hello(5): utf8
hello(5): utf8
hello(5): utf8
hello(5): utf8
}}}

To adequately solve the problem and test it, the pir compilers must also be fixed."	bug	closed	major		core		medium	fixed					all