From cbc6f6ce1a543757792fe933e18fe2a896db215e Mon Sep 17 00:00:00 2001
From: geby <geby@7c85be65-684b-0410-a082-b2ed4fbef004>
Date: Fri, 5 Oct 2012 09:15:32 +0000
Subject: [PATCH] synachar.pas - fix WIN32 vs. MSWINDOWS compiler defines

git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@162 7c85be65-684b-0410-a082-b2ed4fbef004
---
 synachar.pas | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/synachar.pas b/synachar.pas
index af889f0..436f952 100644
--- a/synachar.pas
+++ b/synachar.pas
@@ -1,9 +1,9 @@
 {==============================================================================|
-| Project : Ararat Synapse                                       | 005.002.002 |
+| Project : Ararat Synapse                                       | 005.002.003 |
 |==============================================================================|
 | Content: Charset conversion support                                          |
 |==============================================================================|
-| Copyright (c)1999-2004, Lukas Gebauer                                        |
+| Copyright (c)1999-2012, Lukas Gebauer                                        |
 | All rights reserved.                                                         |
 |                                                                              |
 | Redistribution and use in source and binary forms, with or without           |
@@ -33,7 +33,7 @@
 | DAMAGE.                                                                      |
 |==============================================================================|
 | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
-| Portions created by Lukas Gebauer are Copyright (c)2000-2004.                |
+| Portions created by Lukas Gebauer are Copyright (c)2000-2012.                |
 | All Rights Reserved.                                                         |
 |==============================================================================|
 | Contributor(s):                                                              |
@@ -60,6 +60,13 @@ Internal routines knows all major charsets for Europe or America. For East-Asian
 {$Q-}
 {$H+}
 
+//old Delphi does not have MSWINDOWS define.
+{$IFDEF WIN32}
+  {$IFNDEF MSWINDOWS}
+    {$DEFINE MSWINDOWS}
+  {$ENDIF}
+{$ENDIF}
+
 {$IFDEF UNICODE}
   {$WARN IMPLICIT_STRING_CAST OFF}
   {$WARN IMPLICIT_STRING_CAST_LOSS OFF}
@@ -70,7 +77,7 @@ unit synachar;
 interface
 
 uses
-{$IFNDEF WIN32}
+{$IFNDEF MSWINDOWS}
   {$IFNDEF FPC}
   Libc,
   {$ELSE}
@@ -1490,7 +1497,7 @@ begin
 end;
 
 {==============================================================================}
-{$IFNDEF WIN32}
+{$IFNDEF MSWINDOWS}
 
 function GetCurCP: TMimeChar;
 begin