paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 00:01:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed some 1.0 defines

Browse Source 
git-svn-id: trunk@11979 -
This commit is contained in:
marco 2008-10-26 22:15:47 +00:00
parent a3d793a43f
commit 42282f0351
3 changed files with 1 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/globdir.inc
View File

@ -137,10 +137,8 @@
{$define HASOUTLINE} {$define HASOUTLINE}
{ Use inlining for small functions } { Use inlining for small functions }
{$ifndef VER1_0}
{$inline on} {$inline on}
{.$define USEINLINE} {.$define USEINLINE}
{$endif}
{$define TEST_PARTIAL_SYNTAX} {$define TEST_PARTIAL_SYNTAX}
{ $ undef UNDO} { $ undef UNDO}

12
packages/fv/src/drivers.pas
View File

@ -83,11 +83,7 @@ USES
{$ENDIF} {$ENDIF}
{$IFDEF OS_UNIX} {$IFDEF OS_UNIX}
{$ifdef VER1_0}
linux,
{$else}
unixtype,baseunix,unix, unixtype,baseunix,unix,
{$endif}
{$ENDIF} {$ENDIF}
{$IFDEF OS_NETWARE_LIBC} {$IFDEF OS_NETWARE_LIBC}
@ -737,14 +733,8 @@ Function GetDosTicks:longint; { returns ticks at 18.2 Hz, just like DOS }
tv : TimeVal; tv : TimeVal;
{ tz : TimeZone;} { tz : TimeZone;}
begin begin
{$ifdef ver1_0}
GetTimeOfDay(tv{,tz});
GetDosTicks:=((tv.Sec mod 86400) div 60)*1092+((tv.Sec mod 60)*1000000+tv.USec) div 54945;
{$else}
FPGetTimeOfDay(@tv,nil{,tz}); FPGetTimeOfDay(@tv,nil{,tz});
GetDosTicks:=((tv.tv_Sec mod 86400) div 60)*1092+((tv.tv_Sec mod 60)*1000000+tv.tv_USec) div 54945; GetDosTicks:=((tv.tv_Sec mod 86400) div 60)*1092+((tv.tv_Sec mod 60)*1000000+tv.tv_USec) div 54945;
{$endif}
end; end;
{$ENDIF OS_UNIX} {$ENDIF OS_UNIX}
{$IFDEF OS_WINDOWS} {$IFDEF OS_WINDOWS}
@ -794,7 +784,7 @@ end;
begin begin
req.tv_sec:=0; req.tv_sec:=0;
req.tv_nsec:=10000000;{ 10 ms } req.tv_nsec:=10000000;{ 10 ms }
{$ifdef ver1_0}nanosleep(req,rem){$else}fpnanosleep(@req,@rem){$endif}; fpnanosleep(@req,@rem);
end; end;
{$ENDIF} {$ENDIF}
{$IFDEF OS_OS2} {$IFDEF OS_OS2}

12
packages/fv/src/unixsmsg.inc
View File

@ -24,11 +24,7 @@
it should use ioctl to get information about resizing of windows } it should use ioctl to get information about resizing of windows }
uses uses
{$ifdef VER1_0}
linux;
{$else}
BaseUnix,termio; BaseUnix,termio;
{$endif}
Const Const
SystemEventActive : Boolean = false; SystemEventActive : Boolean = false;
@ -48,11 +44,7 @@ begin
PendingSystemEvents:=0; PendingSystemEvents:=0;
FillChar(LastSystemEvent,sizeof(TSystemEvent),0); FillChar(LastSystemEvent,sizeof(TSystemEvent),0);
FillChar(WinSize,sizeof(WinSize),0); FillChar(WinSize,sizeof(WinSize),0);
{$ifdef VER1_0}
ioctl(stdinputhandle,TIOCGWINSZ,@winsize);
{$else}
fpioctl(stdinputhandle,TIOCGWINSZ,@winsize); fpioctl(stdinputhandle,TIOCGWINSZ,@winsize);
{$endif}
LastXSize:=WinSize.ws_row; LastXSize:=WinSize.ws_row;
LastYSize:=WinSize.ws_col; LastYSize:=WinSize.ws_col;
If LastXSize=0 then If LastXSize=0 then
@ -103,11 +95,7 @@ begin
else else
begin begin
FillChar(WinSize,sizeof(WinSize),0); FillChar(WinSize,sizeof(WinSize),0);
{$ifdef VER1_0}
ioctl(stdinputhandle,TIOCGWINSZ,@winsize);
{$else}
fpioctl(stdinputhandle,TIOCGWINSZ,@winsize); fpioctl(stdinputhandle,TIOCGWINSZ,@winsize);
{$endif}
if (winsize.ws_col<>0) and (winsize.ws_row<>0) and if (winsize.ws_col<>0) and (winsize.ws_row<>0) and
((winsize.ws_row<>lastxsize) or (winsize.ws_col<>lastysize)) then ((winsize.ws_row<>lastxsize) or (winsize.ws_col<>lastysize)) then
begin begin