From 25c58a81ca9202af54d28888d2b068ebeb2a376f Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Sun, 15 Jun 2008 11:42:49 +0200 Subject: Portability fixes --- UConfig.pas | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'UConfig.pas') diff --git a/UConfig.pas b/UConfig.pas index 4dd13aa..034fd11 100644 --- a/UConfig.pas +++ b/UConfig.pas @@ -25,10 +25,10 @@ uses Classes, ULocale; resourcestring ConstAppTitle = 'Tux Commander'; - ConstAboutVersion = '0.6.43-dev'; - ConstAboutBuildDate = '2008-06-14'; + ConstAboutVersion = '0.6.44-dev'; + ConstAboutBuildDate = '2008-06-15'; -{$IFDEF __FPC__} +{$IFDEF FPC} {$INCLUDE fpcver.inc} {$ENDIF} @@ -1121,9 +1121,10 @@ end; initialization SetDefaults; ParseCMDLine; - {$IFDEF __FPC__} + {$IFDEF FPC} DebugMsg(['Tux Commander v', ConstAboutVersion, ' [', ConstAboutBuildDate, '] FreePascal build ', - '(version ', ConstFPCVersionString, ' ', ConstFPCDateString, ', define ', {$IFDEF CPU64}'x86_64'{$ELSE}'i386'{$ENDIF}, + '(version ', ConstFPCVersionString, ' ', ConstFPCDateString, ', define ', + {$IFDEF CPU64} {$IFDEF ENDIAN_LITTLE}'x86_64'{$ELSE}'ppc64'{$ENDIF} {$ELSE} {$IFNDEF CPUPOWERPC}'i386'{$ELSE}'ppc' {$ENDIF} {$ENDIF}, ', compiled on ', ConstFPCCompilerOSString, '/', ConstFPCCompilerHostProcessorString, ' for ', ConstFPCTargetOSString, '/', ConstFPCTargetProcessorString, ')']); {$ELSE} -- cgit v1.2.3