Access Violation or Invalide Pointer operation

← →
balepa © (2007-10-17 07:23) [0]

type TTx = packed record ADDR: Word; CMD: Byte; param: Byte; CRC: Word; end; TRx = packed record ADDR: Word; CMD: Byte; nnnn: Single; //nnnn: array[0..3] of BYTE; CODE: Byte; CRC: Word; end; TMW = packed record mwT: TDateTime; mw1,mw2: Single; mwSumm: Double; mwds,mwhs: Double; end; var Form1: TForm1; ..... RWBytes: Cardinal; Tx: TTx; Rx: TRx; CRC: Word; count,hCount: Cardinal; MW: TMW; uEventID: UINT; oldS,oldH,oldD: Word; f: _SYSTEMTIME; mwSummD,mwSummH: Single; ... procedure ProcTime(uID, msg: UINT; dwUse, dw1, dw2: DWORD); stdcall; begin timeKillEvent(uEventID); CRCError:= 0; Tx.ADDR:= 1190; Tx.CMD:= $40; Tx.param:= 0; Tx.CRC:= CalculateCRC16(@Tx,4); //44370 ClearCommError(hComm,errors,@stat); SetCommMask(hComm,EV_TXEMPTY); WriteFile(hComm,Tx,6,RWBytes,nil); WaitCommEvent(hComm,mask,nil); sleep(6); ReadFile(hComm,Rx,10,RWBytes,nil); CRC:= CalculateCRC16(@Rx,8); asm mov DWORD ptr eax,Rx.nnnn bswap eax mov DWORD ptr mw.mw1, eax end; PurgeComm(hComm,PURGE_RXCLEAR or PURGE_TXCLEAR); mw.mwSumm:= MW.mw1 + mw.mw2; GetSystemTime(f); if oldH<>f.wHour then begin hcount:= 1; oldH:= f.wHour; mwSummH:= mw.mwSumm; mw.mwhs:= mwSummH; end else begin hCount:= hCount+1; mwSummH:= mw.mwSumm + mwSummH; mw.mwhs:= mwSummH / hcount; end; if oldD<>f.wDay then begin count:= 1; oldD:= f.wDay; mw.mwds:= mw.mwSumm; end else begin inc(count); mwSummD:= mw.mwSumm + mwSummD; mw.mwds:= mwSummD / count; end; if oldS<>f.wSecond then begin WriteFileNow; WriteFileArc; end; Form1.Label1.Caption:= IntToStr(f.wDay)+"." + IntToStr(f.wMonth)+"." + IntToStr(f.wYear)+" "+ IntToStr(f.wHour)+":"+IntToStr(f.wMinute)+":"+IntToStr(f.wSecond)+":"+IntToStr(f.wMilliseconds); Form1.Label2.Caption:= "MW = " + FloatToStr(mw.mw1); Form1.Label3.Caption:= "Count = " + IntToStr(count); Form1.Label4.Caption:= "hCount = " + IntToStr(hcount); uEventID := timeSetEvent(orta[1],0,@ProcTime,0,1); end;

Вот в этой процедуре выскакивает Access Violation или Invalide Pointer operation, последний раз mov [eax+$08],esi в InsertFree, но необязате льно в InsertFree иногда и в др. Но кажись они все относятся к менеджеру памяти

← →
MBo © (2007-10-17 07:54) [1]

не слишком ли смело использовать негарантированно инициализированный eax ?

asm
mov DWORD ptr eax

← →
balepa © (2007-10-17 07:58) [2]

> MBo © (17.10.07 07:54) [1]
> не слишком ли смело использовать негарантированно инициализированный
> eax ?
>
> asm
> mov DWORD ptr eax

Может, но дело сейчас не в этом. И без

asm mov DWORD ptr eax,Rx.nnnn bswap eax mov DWORD ptr mw.mw1, eax end

AV вылетает, я неуверен но кажется при обращении к полям Record"ов.

← →
Сергей М. © (2007-10-17 08:53) [3]

> дело сейчас не в этом

Но начать следует именно с этого.

← →
Сергей М. © (2007-10-17 08:57) [4]

> asm
> mov DWORD ptr eax,Rx.nnnn
> bswap eax
> mov DWORD ptr mw.mw1, eax
> end;

Непонятно, что это вообще за выкрутасы ?

SizeOf(Single) = SiseOf(Word), с какой же перепугу DWORD ?

← →
balepa © (2007-10-17 09:01) [5]

> Сергей М. © (17.10.07 08:53) [3]
>
> > дело сейчас не в этом
> Но начать следует именно с этого.

Тут до этого столько всего было... даже если закоментировать этот кусок AV вылетает

> SizeOf(Single) = SiseOf(Word), с какой же перепугу DWORD

Single = 4 байта
DWORD = Types.LongWord = 4 байта
Word 2 байта
или нет ?

← →
Сергей М. © (2007-10-17 09:07) [6]

> balepa © (17.10.07 09:01) [5]
>
>

> Single = 4 байта

Да, верно. Миль пардон.

Тогда зачем DWORD PTR ?

И какой резон в в этом bswap ? Поясни ..

> даже если закоментировать этот кусок AV вылетает

На какой конкретно строке ?

← →
balepa © (2007-10-17 09:21) [7]

> Сергей М. © (17.10.07 09:07) [6]
> И какой резон в в этом bswap ? Поясни ..

Порядок байт поменять в Rx.nnnn, что бы правильно показывало

> На какой конкретно строке ?

Если б я знал.
Просто вылетает AV потом CPU типа

InsertFree:
.
.
.
.
.

mov [eax+$08],esi
.
.
.
.
в последний раз было в GetSysMem

← →
Сергей М. © (2007-10-17 09:27) [8]

> Если б я знал

Как это так ?!

Ты вообще пошагово трассировал свой код ?

← →
balepa © (2007-10-17 09:38) [9]

> Сергей М. © (17.10.07 09:27) [8]
>
> > Если б я знал
>
> Как это так ?!
>
> Ты вообще пошагово трассировал свой код ?

uEventID := timeSetEvent(orta[1],0,@ProcTime,0,1);

ProcTime вызывается каждые ~500 мс ошибка возникает когда как, то через несколько секунд, иногда через минуту
Как тут трассировать ?

← →
Сергей М. © (2007-10-17 09:42) [10]

> Как тут трассировать ?

Ставишь брейкпойнт

procedure ProcTime(uID, msg: UINT; dwUse, dw1, dw2: DWORD); stdcall; begin <- сюда

И вперед, с песней !)

← →
Чародей (2007-10-17 09:52) [11]

в делфи использовать асм просто так нельзя

> asm
> mov DWORD ptr eax,Rx.nnnn
> bswap eax
> mov DWORD ptr mw.mw1, eax
> end;

asm
push eax
mov DWORD ptr eax,Rx.nnnn
bswap eax
mov DWORD ptr mw.mw1, eax
pop eax
end;
иначе ошибка может проявляться в любой момент, этот же код посмотри в отладчике, что esi и edi не поменялись
PS: я обычно использовал pusha и popa чтоб не заморачиваться

> Чародей (17.10.07 09:52) [11]
>
> в делфи использовать асм просто так

Register use

In general, the rules of register use in an asm statement are the same as those of an external procedure or function. An asm statement must preserve the EDI, ESI, ESP, EBP, and EBX registers, but can freely modify the EAX, ECX, and EDX registers.

Правилом этим пользоваться можно, но осторожно, особенно при оптимизирующей компиляции.

> balepa © (17.10.07 09:38) [9]

Все фигня, кроме пчел.

"Пчелы" - это твои обращения к визуальным VCL-контролам в дополнительном потоке, что делать недопустимо.

А я ж читал что он в своем потоке работает и благополучно забыл.

Спасибо за напоминание.

Access Violation or Invalide Pointer operation Найти похожие ветки