1. Assembler / Говнокод #6977

    +180

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    ; -------- мув в AX опкода команды UD2 --------
CODE:004051B0         mov     al, 0Bh
CODE:004051B2         mov     ah, 0Fh
CODE:004051B4         xchg    al, ah
CODE:004051B6         push    eax     ; save opcode
CODE:004051B7         call    sub_40A1E5

; -------- вис для отладки --------
; если зависли, то найден дубликат (жестко, но надежно :D )
CODE:0041C676         call    hash_FindWord
CODE:0041C67B @@dbllock:
CODE:0041C67B         jnc     @@dbllock ; <- если хэш найден, то висим

; -------- ну и искомый баг --------
; неправильный цикл поиска последнего элемента списка
CODE:00401698 proc sub_401698
CODE:00401698         mov     ecx, [dword_42944C]
CODE:0040169E         jecxz   loc_4016AA
CODE:004016A0 loc_4016A0:
CODE:004016A0         mov     ecx, [ecx] ; ecx = next block
CODE:004016A2         and     ecx, ecx
CODE:004016A4         jnz     loc_4016A0
CODE:004016A6         mov     eax, [ecx+8] ; <-- bag: ECX = 0
CODE:004016A9         retn
CODE:004016AA loc_4016AA:
CODE:004016AA         mov     eax, [dword_42A58E]
CODE:004016AF         retn
CODE:004016AF endp

    Искал баги в борландовском компиляторе. Нашел немало забавных моментов, три выкладываю.

    Запостил: DemonId7, 17 Июня 2011

    Комментарии (35) RSS

    • ava guest 17.06.2011 11:35 # −6

      показать все, что скрытоDelphiGovno
      Ответить

    • ava DemonId7 17.06.2011 14:31 # 0

      Это не Дельфи и не Си. Исследуемый компилятор написан на чистейшем ассемблере, примерно 60000 строк исходного кода. Так что не нужно разводить холивар, все равно наши победят :D
      ps: а программисты в борланде были действительно профи, код вылизан по самое нехочу, снял бы шляпу, если бы борланд был жив.
      Ответить

      • ava bugmenot 17.06.2011 17:18 # +2

        > компилятор написан на чистейшем ассемблере
        как будто в этом есть хоть что-то хорошее
        Ответить

        • ava DemonId7 17.06.2011 21:12 # 0

          Хорошего хватает - багов мало, красивый код, оригинальная реализация сканера :D Плохое - дважды перенеся портирование (с 8-ми битных на 16-ти битные машины, а затем и на 32-х битные) компилятор успешно загнулся, хотя спрос на него остался.
          Ответить

          • ava bugmenot 17.06.2011 21:20 # 0

            тасм?
            переносить асм это значит переписывать большую часть
            Ответить

            • ava DemonId7 17.06.2011 22:24 # 0

              Такие вещи вообще то автоматизируют - для этого есть различные утилиты, начиная от Turbo Pascal и заканчивая Quick C :D
              Ответить

              • ava gegMOPO4 17.06.2011 22:52 # +5

                Для автоматизации ассемблера существуют переносимые высокоуровневые языки и компиляторы с них.
                Ответить

                • ava DemonId7 18.06.2011 00:40 # −1

                  Далеко не всегда. К тому же не стоит недооценивать ассемблер, у него тоже есть средства "автоматизации". Примерчик для TASM:
                  Include "system.h"

Program MacroLanguageDemo;        /* Fantasy 2/2/1990 */

Constant
   MaxLine = 25;
   MaxCol  = 80;

Var
   boolean Shadow;
   bytes TopX, TopY, Line = MaxLine, Column = MaxCol;
   words i, j, a, b;
   char key;

procedure MacroDemo;
begin
   WriteLn<'Hello Macro Language'>;
endproc;

Begin
   asm Shadow = True  \  TopX = 10  \  TopY = 5  \  key = 'F';
   WriteLn<'Macro Language Version 2.0'>;
   for i = 1 to 3 do
      for j = 20 downto 19 do
         call MacroDemo;
      next j;
   next i;
   asm a = 5  \  b = 3  \  [a] += MaxLine  \  [b] -= MaxCol;
End_

                  А это генератор ПСЧ, на моем макроязыке:
                  VARIABLE Seed
VARIABLE y
VARIABLE z
VARIABLE c
VARIABLE t
CONSTANT ITER 200000000
CONSTANT RANGE 10000

$COLN Randomize ; инициализация переменных генератора
      _ GetTicks Seed ! 362436069 y ! 77465321 z
      _ ! 916905990 t ! 13579 c ! EXIT

$COLN UMOD ; ( u1 u2 -- u1%u2 )
      _ SWAP U>D ROT UM/MOD DROP EXIT

$COLN UD+  ; ( ud u -- ud )   ud = ud + u
      _ ROT UM+ ROT + EXIT

$COLN Rand ; ( range -- random_number )
      _ t @ Seed @ UM*; t = 916905990 * x
      _ c @ UD+       ; t = 916905990 * x + c
      _ y @ Seed !    ; Seed = y
      _ z @ y !       ; y = z
      _ c !           ; c = t >> 32
      _ dup z !       ; z = t & 0xffffffff
      _ swap umod     ; return (z % range)
      _ exit

$COLN Gen ; ( iter -- )
      _ ITER 0 FOR RANGE Rand . CRLF NEXT EXIT

                  Ничего не напоминает? ;)
                  Ответить

              • ava bugmenot 17.06.2011 23:17 # 0

                чо-та я сомневаюсь, что портирование кодогенератора на другой размер машинного так легко автоматизировать
                Ответить

                • ava DemonId7 18.06.2011 00:50 # −1

                  Зависит от качества кода. Если писал "индус", то можно и не начинать. Опытный же кодер всегда закладывает в код резервы, на всякий случай. Если касаться тасма, то не очень сложно, код хорошо продуман. Портировали же тасм 4.1 под OS/2.
                  Ответить

                  • ava guest 18.11.2011 19:15 # 0

                    А насколько нужно быть опытыным кодером, чтоб заложить в ассемблерный код резервы по портированию на другую архитектуру?
                    Ответить

          • ava 3.14159265 17.06.2011 21:55 # +1

            >багов мало
            компилер для своего времени был действительно неплох
            зато в интерфейсе и либах багов с головой.
            Ответить

            • ava DemonId7 17.06.2011 22:30 # 0

              Он и сейчас во многом не превзойден, просто народ не любит маны читать :D Про интерфейс не понял, а либ с ним никаких не поставлялось, Вы его спутали с кем-то другим.
              Ответить

              • ava 3.14159265 17.06.2011 23:56 # 0

                я о интерфейсе продуктов ботланда, которые используют этот компилер и их говнолибах (vcl)
                Ответить

      • ava guest 17.06.2011 19:44 # +3

        > снял бы шляпу, если бы борланд был жив.
        Шляпу снимают чаще перед мертвыми на похоронах.
        Ответить

        • ava DemonId7 17.06.2011 21:19 # 0

          Ну дык де юре похорон не было, было "лишь" перевоплощение :D
          Ответить

          • ava gegMOPO4 17.06.2011 22:53 # +3

            Борланд не мёртв, он просто так пахнет?
            Ответить

            • ava bugmenot 17.06.2011 23:15 # +1

              пахнет жареным воздухом ALM которые они до сих пор продают
              а программеры уже давно разбежались
              Ответить

      • ava Topacer 20.06.2011 11:22 # 0

        Может, этот компилятор у них и хорош, но за изобретение "деструкторы, которые надо вызвать руками" в Object Pascal надо не шляпу снимать, а скальп. Так что не всё у них хорошее.
        Ответить

        • ava guest 20.06.2011 13:20 # −3

          Да ладно, хороший компилятор... неоптимизированные экзешники на раз выдаёт.
          Ответить

      • ava carsten 21.06.2011 16:42 # +1

        >а программисты в борланде были действительно профи, код вылизан по самое нехочу
        насколько я слышал, борланд по сравнению с другими компиляторами всегда был одним из самых отстойных в отношении кодогенерации
        Ответить

        • ava DemonId7 23.06.2011 20:13 # +1

          Не всегда. В 90-х любой уважающий себя программист предпочитал продукты борланда, как более удобные и качественные, к тому же на шаг опережающие конкурентов в развитии. Так первое время вижен либе от борланда просто не было альтернатив. Как и пакету Tutbo Professional, как и многим другим продуктам.
          А потом что-то пошло наперекосяк, кодогенераторы перестали развиваться, так и оставшись на уровне 90-х.
          Ответить

    • ava carsten 21.06.2011 16:45 # 0

      а я в компиляторе от mingw нашёл за пару дней два бага. вдаваться в подробности в лом, просто делаю workarounds и живу дальше.
      Ответить

    • ava guest8 08.04.2019 20:57 # −999

      показать все, что скрытоvanished
      Ответить

    • ava guest8 09.04.2019 10:59 # −999

      показать все, что скрытоvanished
      Ответить

    Добавить комментарий