paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 21:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ bug #1157 tests

Browse Source
This commit is contained in:
pierre 2000-10-31 07:36:22 +00:00
parent 0725ddca6c
commit a4e193a680
3 changed files with 117 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
tests/webtbf/tb1157a.pp Normal file
View File

@ -0,0 +1,41 @@
{ Source provided for Free Pascal Bug Report 1157 }
{ Submitted by "Colin Goldie" on 2000-10-06 }
{ e-mail: Colin_G@Positek.com.au }
{$mode tp}
{$asmmode intel}
{ @Result in assembler functions where
the function result is not on stack
should be refused in Turbo Pascal mode }
Function GetBLUEfromRGB( color : word ) : byte; assembler;
asm
mov cx,color
and cx,0000000000011111b
mov @Result,cl
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,0000000000011111b
mov al,cl
end;
begin
if GetBlueFromRGB2($fff)<>GetBlueFromRGB($fff) then
begin
Writeln('Error in assembler statement');
Halt(1);
end;
end.

41
tests/webtbf/tbug1157.pp Normal file
View File

@ -0,0 +1,41 @@
{ Source provided for Free Pascal Bug Report 1157 }
{ Submitted by "Colin Goldie" on 2000-10-06 }
{ e-mail: Colin_G@Positek.com.au }
{$mode delphi}
{$asmmode intel}
{ @Result in assembler functions where
the function result is not on stack
should be refused in Delphi mode }
Function GetBLUEfromRGB( color : word ) : byte; assembler;
asm
mov cx,color
and cx,0000000000011111b
mov @Result,cl
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,0000000000011111b
mov al,cl
end;
begin
if GetBlueFromRGB2($fff)<>GetBlueFromRGB($fff) then
begin
Writeln('Error in assembler statement');
Halt(1);
end;
end.

35
tests/webtbs/tbug1157.pp Normal file
View File

@ -0,0 +1,35 @@
{ Source provided for Free Pascal Bug Report 1157 }
{ Submitted by "Colin Goldie" on 2000-10-06 }
{ e-mail: Colin_G@Positek.com.au }
{$asmmode intel}
Function GetBLUEfromRGB( color : word ) : byte; assembler;
asm
mov cx,color
and cx,0000000000011111b
mov @Result,cl
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,0000000000011111b
mov al,cl
end;
begin
if GetBlueFromRGB2($fff)<>GetBlueFromRGB($fff) then
begin
Writeln('Error in assembler statement');
Halt(1);
end;
end.