Changeset 522 for GraphicTest/Packages/Graphics32/GR32_Bindings.pas

Timestamp:

Apr 17, 2019, 10:42:18 AM (5 years ago)

Author:

chronos

Message:

• Modified: Updated Graphics32 library.

Location:

GraphicTest/Packages/Graphics32

Files:

• . (modified) (1 prop)
• GR32_Bindings.pas (modified) (2 diffs)

GraphicTest/Packages/Graphics32/GR32_Bindings.pas

@@ -80 +80 @@
     procedure Clear;
 
-    procedure Add(FunctionID: Integer; Proc: Pointer; CPUFeatures: TCPUFeatures = []; Flags: Integer = 0);
+    procedure Add(FunctionID: Integer; Proc: Pointer; CPUFeatures: TCPUFeatures = [];
+      Flags: Integer = 0);
 
     // function rebinding support
@@ -116 +117 @@
     Registers := TList.Create;
   Result := TFunctionRegistry.Create;
+  {$IFDEF NEXTGEN}
+  Result.__ObjAddRef;
+  {$ENDIF}
   Result.Name := Name;
   Registers.Add(Result);