瀏覽代碼

* Fix compilation

daniel 21 年之前
父節點
當前提交
af1f477467
共有 2 個文件被更改,包括 10 次插入4 次删除
  1. 5 2
      ide/fpdebug.pas
  2. 5 2
      ide/fpusrscr.pas

+ 5 - 2
ide/fpdebug.pas

@@ -774,7 +774,7 @@ begin
       Assign(Debuggeefile,DebuggeeTTY);
       Assign(Debuggeefile,DebuggeeTTY);
       system.Reset(Debuggeefile);
       system.Reset(Debuggeefile);
       ResetOK:=IOResult=0;
       ResetOK:=IOResult=0;
-      If ResetOK and {$ifdef ver1_0}IsATTY(textrec(Debuggeefile).handle){$else}(IsATTY(textrec(Debuggeefile).handle)<>-1){$endif} then
+      If ResetOK and IsATTY(textrec(Debuggeefile).handle) then
         begin
         begin
           Command('tty '+DebuggeeTTY);
           Command('tty '+DebuggeeTTY);
           TTYUsed:=true;
           TTYUsed:=true;
@@ -3603,7 +3603,10 @@ end.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.49  2004-02-20 21:46:06  peter
+  Revision 1.50  2004-07-09 20:23:31  daniel
+    * Fix compilation
+
+  Revision 1.49  2004/02/20 21:46:06  peter
     * fix compile with 1.0.x
     * fix compile with 1.0.x
 
 
   Revision 1.48  2003/11/19 17:11:39  marco
   Revision 1.48  2003/11/19 17:11:39  marco

+ 5 - 2
ide/fpusrscr.pas

@@ -774,7 +774,7 @@ begin
   TTYFd:=-1;
   TTYFd:=-1;
   IsXterm:=getenv('TERM')='xterm';
   IsXterm:=getenv('TERM')='xterm';
   ThisTTY:=TTYName(stdinputhandle);
   ThisTTY:=TTYName(stdinputhandle);
-  if Not IsXterm and {$ifdef ver1_0}IsATTY(stdinputhandle){$else}(IsATTY(stdinputhandle)<>-1){$endif} then
+  if Not IsXterm and IsATTY(stdinputhandle) then
     begin
     begin
       Console:=TTyNetwork;  {Default: Network or other vtxxx tty}
       Console:=TTyNetwork;  {Default: Network or other vtxxx tty}
       if (Copy(ThisTTY, 1, 8) = '/dev/tty') and (ThisTTY[9]<>'p') Then
       if (Copy(ThisTTY, 1, 8) = '/dev/tty') and (ThisTTY[9]<>'p') Then
@@ -1449,7 +1449,10 @@ end;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.32  2004-02-20 21:46:06  peter
+  Revision 1.33  2004-07-09 20:23:31  daniel
+    * Fix compilation
+
+  Revision 1.32  2004/02/20 21:46:06  peter
     * fix compile with 1.0.x
     * fix compile with 1.0.x
 
 
   Revision 1.31  2003/11/19 17:11:40  marco
   Revision 1.31  2003/11/19 17:11:40  marco