Ругается на asm

[syb]

Проект работал, и тут я решил часть кода перетащить в поток. Лазарь стал ругаться на IdGlobalProtocols а именно на ассемблеровскую вставку.Работаю под w7-64

Код: Выделить всё

function ROL(AVal: LongWord; AShift: Byte): LongWord;
{$IFDEF DONTHAVENATIVEX86}
function ROL(AVal: LongWord; AShift: Byte): LongWord;
begin
   Result := (AVal shl AShift) or (AVal shr (32 - AShift));
end;

function ROR(AVal: LongWord; AShift: Byte): LongWord;
begin
   Result := (AVal shr AShift) or (AVal shl (32 - AShift)) ;
end;

{$ELSE}

// Arg1=EAX, Arg2=DL
function ROL(AVal: LongWord; AShift: Byte): LongWord;
asm
  mov  cl, dl -ЗДЕСЬ ГОВОРИТ НЕ ЗНАЕТ ЧТО ТАКОЕ CL
  rol  eax, cl
end;

function ROR(AVal: LongWord; AShift: Byte): LongWord;
asm
  mov  cl, dl 
  ror  eax, cl
end;
{$ENDIF}     

Что это может быть?

[bormant]

Это может быть стиль ассемблера AT&T, полечить при помощи {$ASMMODE Intel}, директив, подразумевающих ее, или ключика командной строки -Rintel.
http://www.freepascal.org/docs-html/pro ... -90001.2.3

[syb]

Спасибо , помогло . А где бы почитать полный список директив?

[bormant]

Руководство программиста, глава 1: http://www.freepascal.org/docs-html/prog/prog.html
То есть, там же, но чуть повыше

[shyub]

Вот здесь на русском языке: http://av-mag.ru/doc/fpc-programmer-manual.htm