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

* fixed s<'', fixes 4925

Browse Source 
git-svn-id: trunk@3505 -
This commit is contained in:
florian 2006-05-13 20:10:27 +00:00
parent 9b75d87b55
commit 5d9f3cf33d
3 changed files with 11 additions and 0 deletions

1
.gitattributes vendored
View File

@ -6802,6 +6802,7 @@ tests/webtbs/tw4893c.pp svneol=native#text/plain
tests/webtbs/tw4898.pp -text
tests/webtbs/tw4902.pp -text
tests/webtbs/tw4922.pp svneol=native#text/plain
tests/webtbs/tw4925.pp svneol=native#text/plain
tests/webtbs/tw4950.pp svneol=native#text/plain
tests/webtbs/tw4999.pp svneol=native#text/plain
tests/webtbs/tw5001.pp svneol=native#text/plain

3
compiler/nadd.pas
View File

@ -1551,6 +1551,8 @@ implementation
function taddnode.first_addstring: tnode;
const
swap_relation: array [ltn..unequaln] of Tnodetype=(gtn, gten, ltn, lten, equaln, unequaln);
var
p: tnode;
begin
@ -1581,6 +1583,7 @@ implementation
p := left;
left := right;
right := p;
nodetype:=swap_relation[nodetype];
end;
if is_shortstring(left.resulttype.def) or
(nodetype in [gtn,gten,ltn,lten]) then

7
tests/webtbs/tw4925.pp Normal file
View File

@ -0,0 +1,7 @@
var
s : string;
begin
s:='asdf';
if not(''<s) then
halt(1);
end.