Скачать: CL | DM;

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 чтоб не заморачиваться

---

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

> Чародей   (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.

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

---

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

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


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

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

---

← →
balepa ©   (2007-10-17 10:40) [14]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.49 MB
Время: 0.015 c