Delphi/Delphi-OpenCV
1
0
Fork 0
mirror of https://github.com/Laex/Delphi-OpenCV.git synced 2024-11-15 07:45:53 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fixed CPU32 defines

Browse Source
This commit is contained in:
Mikhail Grigorev 2014-09-29 15:12:13 +06:00
parent 13fa921ce9
commit ee57159e9c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
source/ocv.core_c.pas
View File

@ -1558,7 +1558,7 @@ procedure cvGetRawData; external core_lib;
procedure _cvGetSize(const arr: pCvArr; Var size: TCvSize); external core_lib name 'cvGetSize';
{$IFDEF CPUX86}
{$IFDEF CPU32}
function cvGetSize(const arr: pCvArr): TCvSize; assembler;
asm
// mov eax,arr // â eax óæå õðàíèòñÿ àäðåñ arr
@ -1571,9 +1571,9 @@ asm
mov Result.width,eax
mov Result.height,ecx
end;
{$ENDIF CPUX86}
{$ENDIF CPU32}
{$IFDEF CPUX64}
{$IFDEF CPU64}
function cvGetSize(const arr: pCvArr): TCvSize; assembler;
asm
call _cvGetSize
@ -1581,7 +1581,7 @@ asm
shr rax,32
mov Result.height,eax
end;
{$ENDIF CPUX64}
{$ENDIF CPU64}
procedure cvCopy; external core_lib;
procedure cvSet(arr: pCvArr; value: TCvScalar; const mask: pCvArr = Nil); external core_lib;