IPB
ЛогинПароль:

> 

Начальные контакты ТОЛЬКО через личку!!

 
 Ответить  Открыть новую тему 
> Портирование для TurboPascal, две функции не компилируются в Turbo Pascale
AVPro
сообщение 18.05.2009 19:42
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +


Есть две функции из юнита для TMT. Надо переделать, чтоб компильнулось в Turbo Pascal.
А то инструкции 32-разрядного ассемблера не пролезают.
1.
function SafeShr(value:longint; cnt:word):longint;assembler;
asm
mov eax,value
mov bx,ax
shr eax,16
mov dx,ax
mov ax,bx
mov cx,cnt
shrd ax,dx,cl
shr dx,cl
mov bx,ax
mov ax,dx
shl eax,16
mov ax,bx
end;
2.
function SafeShl(value:longint; cnt:word):longint;assembler;
asm
mov eax,value
mov bx,ax
shr eax,16
mov dx,ax
mov ax,bx
mov cx,cnt
shld dx,ax,cl
shl ax,cl
mov bx,ax
mov ax,dx
shl eax,16
mov ax,bx
end;
Вроде всё.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
О_Джей_Симпсон
сообщение 18.05.2009 22:28
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 57
Пол: Мужской
Реальное имя: Денис

Репутация: -  0  +


что они делать должны.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 28.03.2024 17:25
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"