1. Pascal / Говнокод #794

    −107.4

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    w := ord(CHar(Pbyte(Pointer(Integer(IN_BUFFER)+ inpos))^));
s := ord(Char(Pbyte(Pointer(Integer(IN_BUFFER)+ inpos + 1))^));
PByte(Pointer(Integer(out_buf)+ outpos))^ := w and 255;        {?????? ?? ?????? ??????}
PByte(Pointer(Integer(out_buf)+ outpos + 1))^ := w shr 8;
 PByte(Pointer(Integer(out_buf)+ outpos))^ := PByte(Pointer(Integer(out_buf)+ outpos))^ or ((W and 15) shl 4);

    доступ к указателям как к массивам

    Запостил: guest, 31 Марта 2009

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

    • ava guest 11.02.2010 13:01 # −2

      чо, норм код, ёба...
      капча негодуе... 3532
      Ответить

    • ava TheHamstertamer 22.04.2011 19:04 # −1

      объясните непросвещенному, нах это надо?
      Ответить

      • ava bugmenot 22.04.2011 21:12 # +1

        запрет на арифметику с указателями + строгая типизация
        Ответить

        • ava guest 23.04.2011 01:00 # −2

          Только попробуйте после этого сказать, что Си говно...
          Ответить

          • ava bugmenot 23.04.2011 01:19 # +1

            пффф, это решаемо не убиранием типизации

            и не объявлением указателей абсолютным злом, при виде которого надо бежать в интернеты и постить дебильные вопросы, начинающиеся с help me i'm noob :-D

            type TByteArray = array[0..MaxInt div SizeOf(Byte)];
type PByteArray = ^TByteArray;
...
x := PByteArray(IN_BUFFER)^[42] * u - y; { вот и всё }
            Ответить

            • ava guest 23.04.2011 01:33 # 0

              >div SizeOf(Byte)
              лолЧто?
              Ответить

              • ava bugmenot 23.04.2011 01:41 # 0

                не хардкодить же волшебные размеры :-D
                Ответить

                • ava guest 23.04.2011 01:45 # −1

                  Надо div 10
                  Ответить

                  • ava bugmenot 23.04.2011 02:09 # 0

                    опять магия же
                    а так если
                    type Byte = QWord;   { ВОЙНА! }

                    всё равно будет собираться и работать :-Р
                    Ответить

                    • ava guest 23.04.2011 09:55 # −1

                      В дельфи так можно? Однажды, я пойму, что этот язык не должен был появится на свет...
                      Ответить

                      • ava guest 23.04.2011 10:09 # −2

                        это ж пасКАЛь, а нормальные языки не могут содержать в названии слово кал
                        Ответить

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