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

* For Linux, "/" is added to the bgipath instead of "\" if this character

Browse Source 
isn't already there.
This commit is contained in:
sg 2000-02-06 01:47:15 +00:00
parent 838eebdcd4
commit 4e5b164c36
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/inc/graph/graph.pp
View File

@ -2902,12 +2902,18 @@ end;
procedure InitGraph(var GraphDriver:smallint;var GraphMode:smallint;
const PathToDriver:String);
const
{$IFDEF Linux}
dirchar = '/';
{$ELSE}
dirchar = '\';
{$ENDIF}
begin
InitVars;
{ path to the fonts (where they will be searched)...}
bgipath:=PathToDriver;
if bgipath[length(bgipath)]<>'\' then
bgipath:=bgipath+'\';
if (Length(bgipath) > 0) and (bgipath[length(bgipath)]<>dirchar) then
bgipath:=bgipath+dirchar;
if not assigned(SaveVideoState) then
RunError(216);
@ -3046,7 +3052,11 @@ SetGraphBufSize
{
$Log$
Revision 1.55 2000-01-07 16:41:37 daniel
Revision 1.56 2000-02-06 01:47:15 sg
* For Linux, "/" is added to the bgipath instead of "\" if this character
isn't already there.
Revision 1.55 2000/01/07 16:41:37 daniel
* copyright 2000
Revision 1.54 2000/01/07 16:32:25 daniel