浏览代码

Simplify.

Martijn Laan 5 年之前
父节点
当前提交
f03a8a984b
共有 1 个文件被更改,包括 2 次插入7 次删除
  1. 2 7
      Projects/SafeDLLPath.pas

+ 2 - 7
Projects/SafeDLLPath.pas

@@ -83,16 +83,11 @@ var
 begin
 begin
   SaveErrorMode := SetErrorMode(SEM_NOOPENFILEERRORBOX);
   SaveErrorMode := SetErrorMode(SEM_NOOPENFILEERRORBOX);
   try
   try
-    asm
-      FNSTCW SaveFPUControlWord
-    end;
+    SaveFPUControlWord := Get8087Cw;
     try
     try
       Result := LoadLibrary(PChar(Filename));
       Result := LoadLibrary(PChar(Filename));
     finally
     finally
-      asm
-        FNCLEX
-        FLDCW SaveFPUControlWord
-      end;
+      Set8087Cw(SaveFPUControlWord);
     end;
     end;
   finally
   finally
     SetErrorMode(SaveErrorMode);
     SetErrorMode(SaveErrorMode);