paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 10:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* linux vs unix fixes

Browse Source 
git-svn-id: trunk@4729 -
This commit is contained in:
marco 2003-10-23 16:46:52 +00:00
parent f65e4bb1ca
commit 93914efcb7
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/synregexpr.pas
View File

@ -438,6 +438,10 @@ Legend:
interface
{$IFDEF LINUX}
{$DEFINE UNIX} // Kylix fix. Linux is linux only. Unix is *BSD also.
{$ENDIF}
{$DEFINE DebugRegExpr} // define for dump/trace enabling
{$IFNDEF FPC}
@ -988,7 +992,7 @@ implementation
uses
LCLIntf;
{$ELSE}
{$IFNDEF LINUX} //js 07-04-2002 only use windows in non-CLX-envirolment -- SYN_CLX doesn't work, why?
{$IFNDEF unix} //js 07-04-2002 only use windows in non-CLX-envirolment -- SYN_CLX doesn't work, why?
uses
Windows; // CharUpper/Lower
{$ENDIF}
@ -1291,7 +1295,7 @@ begin
if Result = Ch
then Result := REChar (CharLower (Ch));
{$ELSE}
{$IFNDEF LINUX} //js 07-04-2002 no use of windows api in clx-version!
{$IFNDEF Unix} //js 07-04-2002 no use of windows api in clx-version!
Result := REChar (CharUpper (pointer (Ch)));
if Result = Ch
then Result := REChar (CharLower (pointer (Ch)));