Отправлено SM 22 июля 2003 г. 21:48

Занесло меня писать ADPCM-кодек на этом уродстве.
Как в этом чудо-языке сделать:
a). Арифметический сдвиг вправо. Т.е. что бы -1 shr 1 оставался -1, а не превращался в 32767.
б). Объявить функцию "inline". Что-бы вместо call на нее каждый раз вставлялась копия функции.

• Ну раз вы говорите, что в C >>1 работает с типом signed int, то и в Delphi будет работать. Объявите вашу переменную не int, которая 4 байта, а как short которая знаковая 16-битная переменная. — _Elektronik_   (23.07.2003 10:24, пустое)
  • А еще лучше, как smallint чтобы не было недопонимания — _Elektronik_   (23.07.2003 10:29, пустое)
  • Где аплодисменты? — _Elektronik_   (23.07.2003 10:26, пустое)
    • У меня объявлено LongInt. Это переменная со знаком. Какого черта оно не арбайтен? — SM    (23.07.2003 10:39, пустое)
      • А должно? — _Elektronik_   (23.07.2003 11:15, 308 байт)
        • В любом (пробовал MSVC, CCS для 6000, CCS для 5000) С объявляю signed long int - все работает. Главное, что-бы signed было. (точнее unsigned не было :)). А про SmallInt (+) — SM   (23.07.2003 12:00, 497 байт)
          • Delphi так же не поддерживает беззнаковое 64 бит число. Только со знаком INT64 :-( — misyachniy   (23.07.2003 17:32, пустое)
• Ответ: можно поступить так - написать компоненту в BCB и скомпилить в asm файл, который потом и подключать, правда хидер (уж и не знаю как он в паскале называется и есть ли вообще...) прийдется написать... по идее должно работать... — SOIC   (23.07.2003 10:14, пустое)
• Ответ: А почему не написать компонент на C++ Builder и вставить в Delphi? — Виктор Креминь   (23.07.2003 09:20, пустое)
• Ответ: -1 shr 1=-1 — Serg Sidorov   (23.07.2003 00:27, 206 байт)
  • НЕ работает. LongInt она же не LongWord... Она же знаковая. А выдает из -1 после сдвига нечто очень большое положительное. Может какую директиву надо? — SM    (23.07.2003 10:41, пустое)
  • И нужной длины — _Elektronik_   (23.07.2003 10:25, пустое)
• А что в языке С есть что-то подобное кроме >> или << ? — Elek   (22.07.2003 23:18, 260 байт)
  • Хороший пример компактности и выразительности С. — Iwan   (23.07.2003 10:53, 107 байт)
  • а не проще x = (x>>1)|(x&0x8000); — SOIC   (23.07.2003 10:10, пустое)
    • Не годится. Там сдвиги в основном не на 1. А на больше. И часто кол-во сдвигов не константа. — SM    (23.07.2003 10:44, пустое)
  • Да проблема-то уже решена... А в С (+) — SM    (22.07.2003 23:26, 613 байт)
• Ответ: Насчет уродства это Вы зря, несолидно.... — Vjacheslav   (22.07.2003 22:30, пустое)
  • Как еще называть язык, в котором нет просто жизненно необходимых операторов и возможностей? — SM    (22.07.2003 22:44, пустое)
    • А на Коболе не пробовали ? — Крок   (23.07.2003 08:46, пустое)
    • Это мой индустриальный фэн, я без него жить не могу! (цитата из SpaceBalls) — Пытливый   (23.07.2003 00:23, пустое)
    • Ответ: В отличие от Си Паскаль никогда не предполагался для использования в качестве инструмента для системного программирования. — Bill   (22.07.2003 22:58, 155 байт)
      • Хм, а что такое "системное программирование" ? — must_alive   (23.07.2003 02:10, пустое)
        • Ответ: К системному программированию относится разработка программ системного назначения. — Bill   (23.07.2003 10:04, 517 байт)
          • Нет ничего такого, что можно было написать на C, но невозможно - на Pascal. — must_alive   (23.07.2003 10:25, пустое)
            • Ответ: Совершенно верно. Только все дело в том, что если в Си некоторые действия делаются естественным образом, то на Паскале — Bill   (23.07.2003 10:55, 114 байт)
              • Сделать правильно объявив переменную. — _Elektronik_   (23.07.2003 11:21, 62 байт)
                • Ответ: Давно не работал, охотно допускаю. Что впрочем, лишний раз доказывает правильность концепции Си. — Bill   (23.07.2003 12:12, пустое)
          • Ну-ну. А компилятор Borland Pascal написан на ассемблере и самом паскале. Не веришь - могу прислать исходные коды самого компилятора, у меня есть. — must_alive   (23.07.2003 10:24, пустое)
            • Ответ: Охотно верю! Компилятор можно написать на ЛЮБОМ языке. — Bill   (23.07.2003 10:35, 350 байт)
              • Ответ: — _Elektronik_   (23.07.2003 11:23, 194 байт)
                • Ответ: Совершенно верно. Но я имел ввиду прежде всего ядро ОС. — Bill   (23.07.2003 12:13, пустое)
        • Вот всю жизнь хотел узнать. — must_alive   (23.07.2003 02:11, пустое)
      • А что циклический сдвиг в стандартном C есть? — Elek   (22.07.2003 23:21, пустое)
        • А циклический мне и не нужен. — SM    (22.07.2003 23:27, пустое)
      • Да я просто разозлился... Задачка-то элементарная... G.726. А гемора.... — SM    (22.07.2003 23:01, пустое)
• Ответ: Так возьмите C++ Builder и не мучайтесь! — Bill   (22.07.2003 22:07, пустое)
  • Да взял-бы (только MSVC...), но на выходе должен получиться unit для дельфи для встраивания в другую прогу. DLL не покатит. LIB/OBJ тоже. — SM    (22.07.2003 22:14, пустое)
    • А вот билдер он ваши юниты и ваши делфийские юниты вместе может скушать чуток кое-где поправить.НО если Делфи это стиль жизни то увы. — PlainUser   (23.07.2003 10:13, пустое)
      • Это не стиль жизни, а поручение шефа :)))) — SM    (23.07.2003 10:45, пустое)
        • Понимаю ,сочувствую. — PlainUser   (23.07.2003 13:24, пустое)
    • Я не уверен, но вроде бы ... — подозревающий   (23.07.2003 07:05, 359 байт)
    • Ответ: Вставка на Ассемблере — Vjacheslav   (22.07.2003 22:26, 23 байт)
      • И это единственный вариант? — SM    (22.07.2003 22:43, пустое)
        • наверное единственный но SHR нужно заменить на SAR. — misyachniy   (23.07.2003 11:26, пустое)
          • Ответ: Да Вы правы — Vjacheslav   (23.07.2003 13:37, 162 байт)