paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 16:40:48 +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 interface
{$IFDEF LINUX}
{$DEFINE UNIX} // Kylix fix. Linux is linux only. Unix is *BSD also.
{$ENDIF}
{$DEFINE DebugRegExpr} // define for dump/trace enabling {$DEFINE DebugRegExpr} // define for dump/trace enabling
{$IFNDEF FPC} {$IFNDEF FPC}
@ -988,7 +992,7 @@ implementation
uses uses
LCLIntf; LCLIntf;
{$ELSE} {$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 uses
Windows; // CharUpper/Lower Windows; // CharUpper/Lower
{$ENDIF} {$ENDIF}
@ -1291,7 +1295,7 @@ begin
if Result = Ch if Result = Ch
then Result := REChar (CharLower (Ch)); then Result := REChar (CharLower (Ch));
{$ELSE} {$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))); Result := REChar (CharUpper (pointer (Ch)));
if Result = Ch if Result = Ch
then Result := REChar (CharLower (pointer (Ch))); then Result := REChar (CharLower (pointer (Ch)));