Browse Source

Fix TGPUDriver.Create for DYNLINK

maciej-izak 7 years ago
parent
commit
e9bbe0f84a
1 changed files with 0 additions and 4 deletions
  1. 0 4
      Units/PascalCoin/UGPUMining.pas

+ 0 - 4
Units/PascalCoin/UGPUMining.pas

@@ -105,11 +105,7 @@ end;
 constructor TGPUDriver.Create;
 constructor TGPUDriver.Create;
 begin
 begin
   FPlatforms := Nil;
   FPlatforms := Nil;
-  {$IFDEF DYNLINK}
   FHasOpenCL:=InitOpenCL;
   FHasOpenCL:=InitOpenCL;
-  {$ELSE}
-  FHasOpenCL:=true;
-  {$ENDIF}
   _GPUDriver := Self;
   _GPUDriver := Self;
 end;
 end;