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

* new test

Browse Source 
* fix compilation on i386

git-svn-id: trunk@6861 -
This commit is contained in:
florian 2007-03-14 21:09:05 +00:00
parent bae83ee777
commit 4fc85cb084
3 changed files with 14 additions and 2 deletions
.gitattributes
compiler/x86
nx86inl.pas
tests/webtbs
tw8525.pp

1
.gitattributes vendored
View File

@ -8116,6 +8116,7 @@ tests/webtbs/tw8391.pp svneol=native#text/plain
tests/webtbs/tw8434.pp svneol=native#text/plain
tests/webtbs/tw8462.pp svneol=native#text/plain
tests/webtbs/tw8513.pp svneol=native#text/plain
tests/webtbs/tw8525.pp svneol=native#text/plain
tests/webtbs/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain
tests/webtbs/uw0555.pp svneol=native#text/plain

4
compiler/x86/nx86inl.pas
View File

@ -197,9 +197,9 @@ implementation
function tx86inlinenode.first_trunc_real: tnode;
begin
if (cs_opt_size in current_settings.optimizerswitches) and
if (cs_opt_size in current_settings.optimizerswitches)
{$ifdef x86_64}
not(use_sse(left.resultdef))
and not(use_sse(left.resultdef))
{$endif x86_64}
then
result:=inherited

11
tests/webtbs/tw8525.pp Normal file
View File

@ -0,0 +1,11 @@
{$mode objfpc}{$H+}
var
x, y: integer;
begin
x:=1;
y := Round(x);
if y<>1 then
halt(1);
writeln('ok');
end.