Apparent binary matching bug with native compilation

[Einar Karttunen]

Hello

It seems that there is a problem with binary matching when 
compiling native code. A length prefixed field matches one
byte too short in the native case. 

The test module works when compiled with no options, but 
crashes with case_clause when compiled with [native].
This has been confirmed with R9C-0 and hipe snapshot
5.4.2004.04.27.

- Einar Karttunen



-module(test).
-export([crash/0]).

crash() ->
    pp(<<3,$r,$e,$i,0>>).

pp(Bin) ->
    io:format("PP with ~p~n", [Bin]),
    case Bin of 
	<<>> -> 
	    ["."];
	<<_:2, Len:6, Part:Len/binary>> ->
	    [binary_to_list(Part)];
	<<_:2, Len:6, Part:Len/binary, Rest/binary>> ->
	    io:format("Len ~p Part ~p Rest ~p~n", [Len,Part,Rest]),
	    [binary_to_list(Part), "." | pp(Rest)]
    end.