2004.02.13 (金) 00:47:57 <u*j*2*6*> 「for i := 0 to db_local.count - 1 do..」という繰り返しのなかでchecksync.pasを適当な間隔でよびださないとフリーズ気味になる気がしたのでいれてみました
2004.02.24 (火) 01:05:46 <Heracules> checksync.pasの処理内容がよくわからないのでできれば今度説明お願いします(w
2004.02.24 (火) 01:07:26 <u*j*2*6*> ごめんわかんない
2004.02.24 (火) 14:18:32 <Heracules> ( ̄□ ̄;)!!ガーン

shuusei241106:thread.pasの中の繰り返し処理でchecksync.pasが呼ばれてなかった場所を修正

diff --dos -urN 241105/constants.pas 241106/constants.pas
--- 241105/constants.pas	Tue Feb 03 22:35:50 2004
+++ 241106/constants.pas	Fri Feb 13 00:10:48 2004
@@ -27,8 +27,8 @@
  SLAVANAP_VERSION             = '2.4.1';
  SLAVANAP_BUILD               = '108';
  SLAVANAP_BUILD_DATE          = '24 January 2003';
- SLAVANAP_SHUUSEI             = '105';
- SLAVANAP_SHUUSEI_DATE        = '3 February 2004';
+ SLAVANAP_SHUUSEI             = '106';
+ SLAVANAP_SHUUSEI_DATE        = '13 February 2004';
  SLAVANAP_VERSION_SHORT       = SLAVANAP_TITLE+' '+SLAVANAP_VERSION;
  SLAVANAP_FULL                = SLAVANAP_TITLE+' '+SLAVANAP_VERSION+
                                 ' (build '+SLAVANAP_BUILD+
diff --dos -urN 241105/thread.pas 241106/thread.pas
--- 241105/thread.pas	Fri Jan 16 02:27:12 2004
+++ 241106/thread.pas	Fri Feb 13 00:20:32 2004
@@ -1458,6 +1458,10 @@
  for i:=0 to db_local.count-1 do
  begin
    loc:=db_local.Items[i];
+   if (i mod 20)=0 then
+   begin
+    {$I checksync.pas}
+   end;
    if (loc.shared<>nil) and
      (loc.shared.reindex=true) then
       loc.shared.DoReindex;
@@ -1910,6 +1914,10 @@
  for i:=db_local.count-1 downto 0 do
  try
    loc:=db_local.Items[i];
+   if (i mod 50)=0 then
+   begin
+    {$I checksync.pas}
+   end;
    if loc.logged then
     if loc.searchespm<>999 then
     begin
@@ -1965,6 +1973,10 @@
  for i:=db_local.count-1 downto 0 do
  try
    loc:=db_local.Items[i];
+   if (i mod 50)=0 then
+   begin
+    {$I checksync.pas}
+   end;
    if loc.logged then
     if loc.wantqueuep3m<>999 then
     begin
@@ -1986,6 +1998,10 @@
  for i:=db_local.count-1 downto 0 do
  try
    loc:=db_local.Items[i];
+   if (i mod 50)=0 then
+   begin
+    {$I checksync.pas}
+   end;
    if loc.logged then
     if loc.dlrequestsp3m<>999 then
     begin
@@ -2104,6 +2120,10 @@
  for i:=db_local.count-1 downto 0 do
  try
    loc:=db_local.Items[i];
+   if (i mod 20)=0 then
+   begin
+    {$I checksync.pas}
+   end;
    if loc.logged then
    if GetTickCount-loc.last_command_time>kill_idleuser_time then
    if loc.level<NapUserModerator then