Behelfslösung Preprozessor SOH

[juergenkulow]

Code: Alles auswählen

;PB 5.71 Windows x64 
;CutSOHLine Datei
;Behelfslösung, Preprozessor erzeugt SOH und Schrott bei ASM-Makro mit Ausrufezeichen. 
;Ist nötig weil, !vmovups xmm1,xmm0 ohne Ausrufezeichen nach EnableASM Syntaxfehler erzeugt. 
Dateiname.s=ProgramParameter(0)
Datei=OpenFile(#PB_Any,Dateiname)
If 0=Datei : MessageRequester("Fehler","Kann Datei nicht öffnen: "+Dateiname) : End :EndIf 
Laenge=Lof(Datei)
*daten.Byte=AllocateMemory(Laenge+1)
ReadData(Datei,*daten,Laenge)
CloseFile(Datei)
*Ziel.Byte=AllocateMemory(Laenge+1)
*ptrZiel.Byte=*Ziel
While 0<>*daten\b
  If *daten\b<>#SOH 
    *ptrZiel\b=*daten\b
    *daten +1
    *ptrZiel +1
    ZielLaenge +1
  Else
    While *daten\b<>#CR And *daten\b<>#LF And *daten\b<>#Null
      *daten+1
    Wend   
  EndIf   
Wend
Datei=CreateFile(#PB_Any,Dateiname)
WriteData(Datei,*Ziel,ZielLaenge)
CloseFile(Datei) 

Edit:Behelfslösung

[Nino]

Ich war zunächst etwas ratlos, weil ich nicht wusste was dein Code mit "walkaround" (= Rundtanz) oder "walk around" (= herumlaufen) zu tun haben könnte ...
... bis ich darauf kam, dass du wahrscheinlich "workaround" (= Abhilfe, Behelfslösung) meinst.

[chi]

Habe ich bereits hier https://www.purebasic.fr/english/viewto ... =4&t=73419 als Bug eingetragen.
Aber freunde dich lieber mit deinem Workaround an, ich glaube nicht, dass Fred diesen (oder andere) pbcompiler.exe Fehler in nächster Zeit beheben wird...