فهرست منبع

* fixed str() call

peter 20 سال پیش
والد
کامیت
ac95600774
1فایلهای تغییر یافته به همراه4 افزوده شده و 5 حذف شده
  1. 4 5
      rtl/objpas/sysconst.pp

+ 4 - 5
rtl/objpas/sysconst.pp

@@ -213,20 +213,19 @@ begin
 
   end;
   If length(Result)=0 then
-{$ifdef VER1_0}
     begin
       Str(Errno:3,Result);
       Result:=SUnknown+Result;
     end;
-{$else}
-    Result:=SUnknown+Str(Errno:3);
-{$endif}
 end;
 
 end.
 {
   $Log$
-  Revision 1.15  2005-02-14 17:13:31  peter
+  Revision 1.16  2005-03-17 16:29:04  peter
+    * fixed str() call
+
+  Revision 1.15  2005/02/14 17:13:31  peter
     * truncate log
 
   Revision 1.14  2005/01/14 12:59:25  michael