pascal/kolmck
pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

git-svn-id: https://svn.code.sf.net/p/kolmck/code@24 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07

Browse Source
This commit is contained in:
dkolmck 2009-09-07 16:25:11 +00:00
parent ab9cb7bae9
commit 9d5753750d
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
KOLadd.pas
View File

@ -42,6 +42,7 @@ unit KOLadd;
interface
{$I KOLDEF.INC}
{$INCLUDE delphidef.inc}
uses Windows, Messages, KOL;
@ -1133,7 +1134,7 @@ asm
MOV EAX, [EAX].fList
{TEST EAX, EAX
JZ @@exit}
MOV EAX, [EAX].TList.fItems
MOV EAX, [EAX].TBitsList.fItems
BT [EAX], EDX
SETC AL
@@exit:
@ -1306,7 +1307,7 @@ procedure TBits.SetBit(Idx: Integer; const Value: Boolean);
asm
PUSH ECX
MOV ECX, [EAX].fList
MOV ECX, [ECX].TList.fCapacity
MOV ECX, [ECX].TBitsList.fCapacity
SHL ECX, 5
CMP EDX, ECX
JLE @@1
@ -1327,7 +1328,7 @@ asm
@@2:
POP ECX
MOV EAX, [EAX].fList
MOV EAX, [EAX].TList.fItems
MOV EAX, [EAX].TBitsList.fItems
SHR ECX, 1
JC @@2set
BTR [EAX], EDX
@ -2272,7 +2273,7 @@ asm
JMP @@exit
@@fault:
XCHG EAX, EBX
CALL TObj.Free
CALL TObj.Destroy
@@exit:
XCHG EAX, EBX
POP EBX
@ -2340,7 +2341,7 @@ asm
MOV ECX, [EBX].FMonitor
JECXZ @@no_monitor
XCHG EAX, ECX
CALL TObj.Free
CALL TObj.Destroy
@@no_monitor:
MOV ECX, [EBX].FHandle
JECXZ @@exit