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

* Remove useless code for i386

Browse Source 
git-svn-id: trunk@17806 -
This commit is contained in:
pierre 2011-06-23 14:50:31 +00:00
parent 0c210a9df3
commit 8a0ed92957
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/x86/aasmcpu.pas
View File

@ -2226,8 +2226,12 @@ implementation
172,173,174 : // 0254..0256 - dword implicitly sign-extended to 64-bit (x86_64 only) 172,173,174 : // 0254..0256 - dword implicitly sign-extended to 64-bit (x86_64 only)
begin begin
getvalsym(c-172); getvalsym(c-172);
{$ifdef x86_64}
{ for i386 as aint type is longint the
following test is useless }
if (currval<low(longint)) or (currval>high(longint)) then if (currval<low(longint)) or (currval>high(longint)) then
Message2(asmw_e_value_exceeds_bounds,'signed dword',tostr(currval)); Message2(asmw_e_value_exceeds_bounds,'signed dword',tostr(currval));
{$endif x86_64}
if assigned(currsym) then if assigned(currsym) then
objdata_writereloc(currval,4,currsym,currabsreloc32) objdata_writereloc(currval,4,currsym,currabsreloc32)