Bug in Ord Function

[SMP3]

تعديل بسيط على الدالة لدعم 64 بت !!

PHP كود :

function FastORD (c:Char):{$IFDEF UNICODE} WORD {$ELSE} Byte {$ENDIF};
asm
  {Note : The RTL ORD Function Does not support Unicode }
  {Use FastORD to support Unicode }
  {$IFDEF CPUX64}
  MOV AX,CX
  {$ENDIF}
end;
function FastORDA (c:AnsiChar): Byte ;
asm
  {$IFDEF CPUX64}
   MOV AL,CL
  {$ENDIF}
end;