瀏覽代碼

* don't compile objects in fpu emulation mode

git-svn-id: trunk@7964 -
florian 18 年之前
父節點
當前提交
4917931c63
共有 1 個文件被更改,包括 1 次插入2 次删除
  1. 1 2
      rtl/inc/objects.pp

+ 1 - 2
rtl/inc/objects.pp

@@ -47,7 +47,6 @@ UNIT Objects;
 
 
 {==== Compiler directives ===========================================}
 {==== Compiler directives ===========================================}
 {$H-} { No ansistrings }
 {$H-} { No ansistrings }
-{$E+} { Emulation is on }
 {$X+} { Extended syntax is ok }
 {$X+} { Extended syntax is ok }
 {$R-} { Disable range checking }
 {$R-} { Disable range checking }
 {$ifndef Unix}
 {$ifndef Unix}
@@ -1907,7 +1906,7 @@ END;
 {$DEFINE STACKFRAME_OFF}
 {$DEFINE STACKFRAME_OFF}
 {$W+}
 {$W+}
 {$ENDIF}
 {$ENDIF}
-       
+
 FUNCTION TCollection.LastThat (Test: Pointer): Pointer;
 FUNCTION TCollection.LastThat (Test: Pointer): Pointer;
 VAR I: LongInt;
 VAR I: LongInt;