Hi function , error in MP8.1

[yo2lio]

Hello,

When variables is LongInt or dWord :

Code: Select all

program Test_mp8_1_Hi_Function;
      
var data_long : Longint;
    data_byte : byte;

begin
   data_byte := Hi(data_long);
end.

Asm :

Code: Select all

;test_mp8_1.ppas,6 :: 			begin
;test_mp8_1.ppas,7 :: 			data_byte := Hi(data_long);
$0008	$C017	F015			MOVFF	_data_long+1, _data_byte
$000C	$C018	F016			MOVFF	_data_long+2, _data_byte+1
$0010	$C019	F017			MOVFF	_data_long+3, _data_byte+2
$0014	$	test_mp8_1_L_0:
;test_mp8_1.ppas,8 :: 			end.