Browse Source

* fixed range check errors

peter 21 years ago
parent
commit
c98d2211bc
2 changed files with 12 additions and 6 deletions
  1. 6 3
      compiler/i386/ag386int.pas
  2. 6 3
      compiler/i386/ag386nsm.pas

+ 6 - 3
compiler/i386/ag386int.pas

@@ -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

+ 6 - 3
compiler/i386/ag386nsm.pas

@@ -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