Kaynağa Gözat

palmunits: allow to build with FPUNONE

git-svn-id: trunk@37229 -
Károly Balogh 8 yıl önce
ebeveyn
işleme
8c8a026fa6
1 değiştirilmiş dosya ile 2 ekleme ve 2 silme
  1. 2 2
      packages/palmunits/src/floatmgr.pp

+ 2 - 2
packages/palmunits/src/floatmgr.pp

@@ -112,8 +112,8 @@ type
  * New Floating point manager types (public)
  ***********************************************************************)
 
-  FlpFloat = Single; //Int32;
-  FlpDouble = Double; //_sfpe_64_bits;
+  FlpFloat = {$IFDEF FPUNONE}Int32{$ELSE}Single{$ENDIF}; //Int32;
+  FlpDouble ={$IFDEF FPUNONE}Int64{$ELSE}Double{$ENDIF}; //_sfpe_64_bits;
   FlpLongDouble = _sfpe_64_bits;
 
 (*