瀏覽代碼

* int_str cardinal fix (merged)

peter 25 年之前
父節點
當前提交
b06b389b67
共有 1 個文件被更改,包括 4 次插入3 次删除
  1. 4 3
      rtl/inc/generic.inc

+ 4 - 3
rtl/inc/generic.inc

@@ -742,8 +742,6 @@ begin
        s:=char(ord('0')+(l mod 10))+s;
        l:=l div 10;
     end;
-  if sign then
-    s:='-'+s;
 end;
 
 {$endif ndef FPC_SYSTEM_HAS_INT_STR_CARDINAL}
@@ -773,7 +771,10 @@ end;
 
 {
   $Log$
-  Revision 1.8  2001-04-13 18:06:28  peter
+  Revision 1.9  2001-04-21 12:16:28  peter
+    * int_str cardinal fix (merged)
+
+  Revision 1.8  2001/04/13 18:06:28  peter
     * removed rtllite define
 
   Revision 1.7  2001/03/05 17:10:40  jonas