Test suite results for test file webtbs/tw1157b.pp

Test run data :

Test file "webtbs/tw1157b.pp" information:

t_id 775
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 934965.

Source:

{ %version=1.1 }

{ Source provided for Free Pascal Bug Report 1157 }
{ Submitted by "Colin Goldie" on  2000-10-06 }
{ e-mail: Colin_G@Positek.com.au }
{$ifdef fpc}
{$mode delphi}

{$asmmode intel}
{$endif}

{ @Result in assembler functions should create only a temporary
  variable when it is used }

Function GetBLUEfromRGB( color : word ) : byte; assembler;
asm
    mov cx,color
    and cx,1fh
    mov @Result,cl
    mov ax,255
end;

{
Does something weird .. to the stack im guessing ... error 206 and 103
errors occur 'File not open' ...

However, if instead of using @Result , i chuck my return value into the
accumulator register , everything thing works hunky dory.
}

Function GetBLUEfromRGB2( color : word ) : byte; assembler;
asm
     mov cx,color
     and cx,1fh
     mov al,cl
end;

begin
  if GetBlueFromRGB2($fff)<>GetBlueFromRGB($fff) then
    begin
      Writeln('Error in assembler statement');
      Halt(1);
    end;
end.

Link to SVN view of webtbs/tw1157b.pp source.