paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-27 11:31:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed web bug #2128

Browse Source
This commit is contained in:
florian 2003-10-26 13:37:22 +00:00
parent 5a3081439e
commit 4d070e2a71
2 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/i386/ra386att.pas
View File

@ -1612,7 +1612,7 @@ var
i : longint; i : longint;
begin begin
OpOrder:=op_att; OpOrder:=op_att;
for i:=1to max_operands do for i:=1 to max_operands do
Operands[i]:=T386AttOperand.Create; Operands[i]:=T386AttOperand.Create;
end; end;
@ -2119,7 +2119,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.54 2003-10-24 17:39:03 peter Revision 1.55 2003-10-26 13:37:22 florian
* fixed web bug 2128
Revision 1.54 2003/10/24 17:39:03 peter
* more intel parser updates * more intel parser updates
Revision 1.53 2003/10/23 17:19:44 peter Revision 1.53 2003/10/23 17:19:44 peter

12
compiler/ncgcon.pas
View File

@ -153,7 +153,12 @@ implementation
{$else ver1_0} {$else ver1_0}
{ the round is necessary for native compilers where comp isn't a float } { the round is necessary for native compilers where comp isn't a float }
ait_comp_64bit : ait_comp_64bit :
Consts.concat(Tai_comp_64bit.Create(round(value_real))); begin
if (value_real>9223372036854775807.0) or (value_real<-9223372036854775808.0) then
Message(parser_e_range_check_error)
else
Consts.concat(Tai_comp_64bit.Create(round(value_real)));
end;
{$endif ver1_0} {$endif ver1_0}
else else
internalerror(10120); internalerror(10120);
@ -554,7 +559,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.32 2003-10-10 17:48:13 peter Revision 1.33 2003-10-26 13:37:22 florian
* fixed web bug 2128
Revision 1.32 2003/10/10 17:48:13 peter
* old trgobj moved to x86/rgcpu and renamed to trgx86fpu * old trgobj moved to x86/rgcpu and renamed to trgx86fpu
* tregisteralloctor renamed to trgobj * tregisteralloctor renamed to trgobj
* removed rgobj from a lot of units * removed rgobj from a lot of units