PeeKS - Fehler ohne optionales Flag

[_JON_]

Mir gerade aufgefallen, das PeeKS ohne gesetztes Flag cashed anstatt einen leeren String wieder zugeben

Code: Alles auswählen

*buffer = AllocateMemory(8)

PeekS(*buffer, -1, #PB_Unicode)
PeekS(*buffer, -1, #PB_Ascii)

PeekS(*buffer, -1) ;crash

Compiler: PB 5.00 x86/x64 Ascii/Unicode

[bobobo]

macht nichts.
am 21.12. ist eh Schluß

[ts-soft]

Hab den Bug mal im engl. Forum gemeldet:
http://www.purebasic.fr/english/viewtop ... 61#p396861

[_JON_]

macht nichts.
am 21.12. ist eh Schluß

Ach können wir das nicht etwas verschieben? Obwohl wir könnten ja auch Weihnachten vorziehen

@ts-soft
Danke

[mk-soft]

Der 21.12.2012 ist nur der Übungstag für den nächsten Untergang

Workaround:

Code: Alles auswählen

;- Workaround Peeks PB v5.00
#PB_ModePeeks = #PB_Compiler_Unicode + 8
Procedure.s MyPeeks(*buffer, len, type)
  ProcedureReturn PeekS(*buffer, len, type)
EndProcedure

Macro PeekS(buffer, len = -1, type = #PB_ModePeeks)
  MyPeekS(buffer, len, type)
EndMacro
; --------------------------

*buffer = AllocateMemory(8)
Debug PeekS(*buffer, -1)