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

* fixed win32 compilation

Browse Source 
git-svn-id: trunk@8320 -
This commit is contained in:
Jonas Maebe 2007-08-28 13:33:22 +00:00
parent 685810c18c
commit ae364ab187
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/extra/graph/inc/graph.inc
View File

@ -2114,7 +2114,7 @@ begin
{ This installs an exit procedure which cleans up the mode list...} { This installs an exit procedure which cleans up the mode list...}
ExitSave := ExitProc; ExitSave := ExitProc;
ExitProc := @GraphExitProc; ExitProc := @GraphExitProc;
{$ifdef win32} {$if defined(win32) and not defined(sdlgraph)}
charmessagehandler:=nil; charmessagehandler:=nil;
{$endif win32} {$endif win32 and not sdlgraph}
end; end;

2
packages/extra/graph/sdlgraph/sdlgraph.pp
View File

@ -146,6 +146,8 @@ uses {$ifdef unix}cthreads,{$endif}
const const
InternalDriverName = 'SDL'; InternalDriverName = 'SDL';
{$define sdlgraph}
{$i graph.inc} {$i graph.inc}
var var