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

* fixed range check errors

Browse Source
This commit is contained in:
peter 2003-12-14 22:42:39 +00:00
parent 39b4e0398a
commit c98d2211bc
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/i386/ag386int.pas
View File

@ -456,7 +456,7 @@ implementation
ait_const_32bit,
ait_const_8bit,
ait_const_16bit : begin
AsmWrite(ait_const2str[hp.typ]+tostr(tai_const(hp).value));
AsmWrite(ait_const2str[hp.typ]+tostru(tai_const(hp).value));
consttyp:=hp.typ;
l:=0;
repeat
@ -464,7 +464,7 @@ implementation
if found then
begin
hp:=tai(hp.next);
s:=','+tostr(tai_const(hp).value);
s:=','+tostru(tai_const(hp).value);
AsmWrite(s);
inc(l,length(s));
end;
@ -875,7 +875,10 @@ initialization
end.
{
$Log$
Revision 1.43 2003-10-21 15:15:36 peter
Revision 1.44 2003-12-14 22:42:39 peter
* fixed range check errors
Revision 1.43 2003/10/21 15:15:36 peter
* taicpu_abstract.oper[] changed to pointers
Revision 1.42 2003/10/19 01:34:30 florian

9
compiler/i386/ag386nsm.pas
View File

@ -486,7 +486,7 @@ interface
ait_const_16bit,
ait_const_8bit :
begin
AsmWrite(ait_const2str[hp.typ]+tostr(tai_const(hp).value));
AsmWrite(ait_const2str[hp.typ]+tostru(tai_const(hp).value));
consttyp:=hp.typ;
l:=0;
repeat
@ -494,7 +494,7 @@ interface
if found then
begin
hp:=tai(hp.next);
s:=','+tostr(tai_const(hp).value);
s:=','+tostru(tai_const(hp).value);
AsmWrite(s);
inc(l,length(s));
end;
@ -920,7 +920,10 @@ initialization
end.
{
$Log$
Revision 1.42 2003-11-29 15:53:06 florian
Revision 1.43 2003-12-14 22:42:39 peter
* fixed range check errors
Revision 1.42 2003/11/29 15:53:06 florian
+ nasmelf mode for BeOS
+ DQWORD directive in intel assembler mode