* IDE version number to 1.0.8

  - Remove giveuptimeslice from wutils (duplicate in drivers.pas)
  - Remove Unix compat hack (now handled by video unit).

git-svn-id: trunk@3432 -

ide/fpconst.pas

@@ -21,7 +21,7 @@ uses Views,App,
      WViews,WEditor,WHTMLHlp;
 
 const
-     VersionStr           = '1.0.6';
+     VersionStr           = '1.0.8';
 
      MaxRecentFileCount   = 9;
      MaxToolCount         = 16;
@@ -81,11 +81,7 @@ const
      WinHelpExt           = '.hlp';
      HelpFileExts         = '*.tph;*.htm*;*'+HTMLIndexExt+';*'+NGExt+';*'+WinHelpExt+';*'+INFExt;
 
-{$ifdef UNIX}
-     EnterSign            = '<'+#196#217;
-{$else}
      EnterSign            = #17#196#217;
-{$endif}
 
      { Main menu submenu indexes }
      menuFile             = 0;

ide/fpide.pas

@@ -606,7 +606,6 @@ procedure TIDEApp.Idle;
 begin
   inherited Idle;
   Message(Application,evIdle,0,nil);
-  GiveUpTimeSlice;
 end;
 
 procedure TIDEApp.GetEvent(var Event: TEvent);

ide/wutils.pas

@@ -191,8 +191,6 @@ function StrPas(C: PChar): string;
 function MemToStr(var B; Count: byte): string;
 procedure StrToMem(S: string; var B);
 
-procedure GiveUpTimeSlice;
-
 const LastStrToIntResult : integer = 0;
       LastHexToIntResult : integer = 0;
       LastStrToCardResult : integer = 0;
@@ -1320,52 +1318,6 @@ begin
   CopyFile:=OK;
 end;
 
-procedure GiveUpTimeSlice;
-{$ifdef GO32V2}{$define DOS}{$endif}
-{$ifdef TP}{$define DOS}{$endif}
-{$ifdef DOS}
-var r: registers;
-begin
-  Intr ($28, R); (* This is supported everywhere. *)
-  r.ax:=$1680;
-  intr($2f,r);
-end;
-{$endif}
-{$ifdef Unix}
-  var
-    req,rem : timespec;
-begin
-  req.tv_sec:=0;
-  req.tv_nsec:=10000000;{ 10 ms }
-  {$ifdef ver1_0}nanosleep(req,rem){$else}fpnanosleep(@req,@rem){$endif};
-end;
-{$endif}
-{$IFDEF OS2}
-begin
- DosSleep (5);
-end;
-{$ENDIF}
-{$ifdef Windows}
-begin
-  { if the return value of this call is non zero then
-    it means that a ReadFileEx or WriteFileEx have completed
-    unused for now ! }
-  { wait for 10 ms }
-  if SleepEx(10,true)=WAIT_IO_COMPLETION then
-    begin
-      { here we should handle the completion of the routines
-        if we use them }
-    end;
-end;
-{$endif}
-{$undef DOS}
-{$ifdef netwlibc} {$define netware} {$endif}
-{$ifdef netware}
-begin
-  Delay (10);
-end;
-{$endif}
-
 procedure RegisterWUtils;
 begin
 {$ifndef NOOBJREG}