paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 19:48:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Renamefest

Browse Source
This commit is contained in:
marco 2002-06-01 19:42:02 +00:00
parent 9c95811fc0
commit 4af59f4504
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
installer/install.pas
View File

@ -106,7 +106,7 @@ program install;
haside : boolean = false;
hashtmlhelp : boolean = false;
{$ifdef linux}
{$ifdef Unix}
DirSep='/';
{$else}
DirSep='\';
@ -331,7 +331,7 @@ program install;
err:=false;
{$I-}
getdir(0,start);
{$ifndef linux}
{$ifndef Unix}
if (s[2]=':') and (s[3]=DirSep) then
begin
chdir(Copy(s,1,3));
@ -1256,7 +1256,7 @@ end;
c : word;
i,j : longint;
found : boolean;
{$ifndef linux}
{$ifndef Unix}
DSize,Space,ASpace : longint;
S: DirStr;
{$endif}
@ -1920,7 +1920,10 @@ begin
end.
{
$Log$
Revision 1.9 2002-04-11 13:20:27 pierre
Revision 1.10 2002-06-01 19:43:07 marco
* Renamefest
Revision 1.9 2002/04/11 13:20:27 pierre
+ several go32v2 related fixes
Revision 1.8 2002/04/10 21:18:42 pierre

7
rtl/inc/graph/graph.inc
View File

@ -2276,7 +2276,7 @@ end;
procedure InitGraph(var GraphDriver:smallint;var GraphMode:smallint;
const PathToDriver:String);
const
{$IFDEF Linux}
{$IFDEF Unix}
dirchar = '/';
{$ELSE}
dirchar = '\';
@ -2451,7 +2451,10 @@ begin
end;
{
$Log$
Revision 1.6 2001-04-14 16:06:03 jonas
Revision 1.7 2002-06-01 19:42:02 marco
* Renamefest
Revision 1.6 2001/04/14 16:06:03 jonas
* fixed problem with new modes system (reported by Vladimir Ravodin) (merged)
Revision 1.5 2000/12/07 17:19:47 jonas