[G32-commits] SF.net SVN: graphics32:[1529] trunk/Source

[<CW...@us...>]

Revision: 1529
          http://graphics32.svn.sourceforge.net/graphics32/?rev=1529&view=rev
Author:   CWBudde
Date:     2012-03-29 20:39:08 +0000 (Thu, 29 Mar 2012)
Log Message:
-----------
* fixed issues with non-windows FPC targets

Modified Paths:
--------------
    trunk/Source/GR32_Backends_Generic.pas
    trunk/Source/GR32_Math.pas

Modified: trunk/Source/GR32_Backends_Generic.pas
===================================================================
--- trunk/Source/GR32_Backends_Generic.pas	2012-03-29 20:30:56 UTC (rev 1528)
+++ trunk/Source/GR32_Backends_Generic.pas	2012-03-29 20:39:08 UTC (rev 1529)
@@ -91,6 +91,8 @@
 uses
   GR32_LowLevel;
 
+{$IFDEF Windows}
+
 var
   TempPath: TFileName;
 
@@ -107,6 +109,7 @@
   end;
 end;
 
+{$ENDIF}
 
 { TMemoryBackend }
 
@@ -278,7 +281,9 @@
 
 {$ENDIF}
 
+{$IFDEF Windows}
 initialization
   TempPath := IncludeTrailingPathDelimiter(GetTempPath);
+{$ENDIF}
 
 end.

Modified: trunk/Source/GR32_Math.pas
===================================================================
--- trunk/Source/GR32_Math.pas	2012-03-29 20:30:56 UTC (rev 1528)
+++ trunk/Source/GR32_Math.pas	2012-03-29 20:39:08 UTC (rev 1529)
@@ -167,9 +167,6 @@
 {$ENDIF}
 end;
 
-{$DEFINE PUREPASCAL}
-{$UNDEF PUREPASCAL}
-
 function FixedDiv(A, B: TFixed): TFixed;
 {$IFDEF PUREPASCAL}
 begin
@@ -405,9 +402,6 @@
 {$ENDIF}
 end;
 
-{$DEFINE PUREPASCAL}
-{$UNDEF PUREPASCAL}
-
 { Trigonometry }
 
 procedure SinCos(const Theta: TFloat; out Sin, Cos: TFloat);
@@ -553,7 +547,7 @@
 // additionally two babylonian steps added
 const
   CQuarter : TFloat = 0.25;
-{$IFNDEF XPUREPASCAL}
+{$IFDEF PUREPASCAL}
 var
   J: Integer absolute Result;
 begin

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.