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

* fixed comparisation of booleans and nulls in variants, fixes bug #3953

Browse Source 
git-svn-id: trunk@35 -
This commit is contained in:
florian 2005-05-19 22:16:53 +00:00
parent 3beb4d960f
commit 6c233eaae4
3 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -6099,6 +6099,8 @@ tests/webtbs/tw3893.pp svneol=native#text/plain
tests/webtbs/tw3898.pp svneol=native#text/plain
tests/webtbs/tw3899.pp svneol=native#text/plain
tests/webtbs/tw3900.pp svneol=native#text/plain
tests/webtbs/tw3953a.pp svneol=native#text/plain
tests/webtbs/tw3953b.pp svneol=native#text/plain
tests/webtbs/tw3973.pp svneol=native#text/plain
tests/webtbs/tw3977.pp svneol=native#text/plain
tests/webtbs/tw3977.txt svneol=native#text/plain

18
tests/webtbs/tw3953a.pp Normal file
View File

@ -0,0 +1,18 @@
{ Source provided for Free Pascal Bug Report 3953 }
{ Submitted by "Jesus Reyes A." on 2005-05-08 }
{ e-mail: jesusrmx@yahoo.com.mx }
program CompareBooleanVars;
uses variants;
var
A,B: Variant;
begin
A := True;
B := True;
if A=B then
WriteLn('A and B are equal')
else
begin
WriteLn('A and B are NOT equal');
halt(1);
end;
end.

18
tests/webtbs/tw3953b.pp Normal file
View File

@ -0,0 +1,18 @@
{ Source provided for Free Pascal Bug Report 3953 }
{ Submitted by "Jesus Reyes A." on 2005-05-08 }
{ e-mail: jesusrmx@yahoo.com.mx }
program CompareNULLVars;
uses variants;
var
A,B: Variant;
begin
A := NULL;
B := NULL;
if A=B then
WriteLn('A and B are equal')
else
begin
WriteLn('A and B are NOT equal');
halt(1);
end;
end.