X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/6cb6b7ede2d178e03fa817bc28474c175f5a93b9..257fdc360d4c80e606358c108c890c5367436a12:/btime.pas?ds=inline

diff --git a/btime.pas b/btime.pas
old mode 100755
new mode 100644
index 4636a9b..de279df
--- a/btime.pas
+++ b/btime.pas
@@ -20,7 +20,7 @@ const
 
 var
   timezone:integer;
-  timezonestr:string;
+  timezonestr:ansistring;
   irctime,unixtime:integer;
   tickcount:integer;
   settimebias:integer;
@@ -39,8 +39,8 @@ procedure gettimezone;
 procedure timehandler;
 procedure init;
 
-function timestring(i:integer):string;
-function timestrshort(i:integer):string;
+function timestring(i:integer):ansistring;
+function timestrshort(i:integer):ansistring;
 
 {$ifdef win32}
 function unixtimefloat_systemtime:float;
@@ -96,7 +96,7 @@ uses
     {$ifdef VER1_0}
       linux,
     {$else}
-      baseunix,unix,unixutil, {needed for 2.0.2}
+      baseunix,unix,unixutil,sockets, {unixutil and sockets needed by unixstuff.inc on some compiler versions}
     {$endif}
   {$else}
     windows,unitsettc,mmsystem,
@@ -546,10 +546,10 @@ begin
   timezonestr := timezonestr + char(l div 600 mod 10+48)+char(l div 60 mod 10+48)+':'+char(l div 10 mod 6+48)+char(l mod 10+48);
 end;
 
-function timestrshort(i:integer):string;
+function timestrshort(i:integer):ansistring;
 const
-  weekday:array[0..6] of string[4]=('Thu','Fri','Sat','Sun','Mon','Tue','Wed');
-  month:array[0..11] of string[4]=('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
+  weekday:array[0..6] of ansistring =('Thu','Fri','Sat','Sun','Mon','Tue','Wed');
+  month:array[0..11] of ansistring =('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
 var
   y,m,d,h,min,sec,ms:word;
   t:tdatetime;
@@ -562,10 +562,10 @@ begin
   inttostr(y);
 end;
 
-function timestring(i:integer):string;
+function timestring(i:integer):ansistring;
 const
-  weekday:array[0..6] of string[10]=('Thursday','Friday','Saturday','Sunday','Monday','Tuesday','Wednesday');
-  month:array[0..11] of string[10]=('January','February','March','April','May','June','July','August','September','October','November','December');
+  weekday:array[0..6] of ansistring =('Thursday','Friday','Saturday','Sunday','Monday','Tuesday','Wednesday');
+  month:array[0..11] of ansistring =('January','February','March','April','May','June','July','August','September','October','November','December');
 var
   y,m,d,h,min,sec,ms:word;
   t:tdatetime;