Technik-Sammelthread für Probleme und Antworten

[Cherry]

Korrektur: Ich meinte, die TreeDepth muss natürlich kleiner als die aktuelle sein. Nicht gleich (und auch nicht einfach nur um eins kleiner oder so). Ich hatte vergessen dass man ja wahrscheinlich noch andere Treestrukturen braucht.

EDIT: Damn, ich muss wir was anderes überlegen. Weil:

0...<> Loop
1......<> Fork If ...
2.........<> Break Loop
2.........<>
1......: End Case
1......<> Loop
2.........<>
1......: End Loop
1......<> Message "Hello"
0...: End Loop

Dieses Beispiel würde dann nämlich trotzdem "Hello" ewig ausgeben, anstatt nichts.

Man müsste alle Zeilen durchgehen, einen Counter für jedes Loop um 1 erhöhen und für jedes End Loop um 1 verringern. Und wenn der Counter (angenommen er startet mit 0) kleiner 0 ist, DANN haben wir das richtige End Loop gefunden.

[bugmenot]

...dann gibt es aber trotzdem noch Probleme, wenn man per Label aus einer tiefergelegten Ebene in eine andere springt(?)

Es würde helfen, wenn irgendwo die TreeDepth der ParentLoop hinterlegt werden könnte.

[Cherry]

Hast du meinen Edit gelesen?

[bugmenot]

Okay, neuer Versuch:

Code:

4B0C50 <>StopLoop[+]
4B0C50  push ebx
4B0C51 mov ebx,edx	//memorize Ptr on EventScriptData(?)
4B0C53 mov edi,[edx+18]	//memorize Line# of the used BreakLoop
__________CheckForLoopEnd__________
4B0C56 ->mov edx,[ebx+18]/get the current line in the script
4B0C59 | mov eax,[ebx+14]/get Ptr on listed EventCommands
4B0C5C | c.sub_479710	//get ScriptLine
4B0C61 | mov ecx,eax	//get Ptr on ScriptLineData
4B0C63 | mov eax,[ecx+4]//get ScriptLine's Command_ID
4B0C66 | test eax,eax	//Was the end of the script reached already?
4B0C68 < jz loc_4B0C84	//jump if it was
4B0C6A | cmp eax,56C2	//Is the ScriptLine = : EndLoop?
4B0C6F <<jnz loc_4B0C86	//jump if not
4B0C71 | mov edx,[ecx+08]/get TreeDepth of the : EndLoop
4B0C74 | mov ecx,ebx	//get Ptr on EventScriptData(?)
4B0C76 | mov eax,edi	//get Line# of the used BreakLoop
4B0C78 | c.sub_4963F1	//call CheckLoopEnd[+]

|   4963F1 <>CheckLoopEnd[+]
|   4963F1 push ebx
|   4963F2 push edi
|   4963F3 push esi
|   4963F4 push ebp
|   4963F5 mov ebp,[ecx+14]	//get Ptr on listed EventCommands
|   4963F8 mov ebx,eax		//get Line# of the used BreakLoop
|   4963FA mov edi,edx		//memorize TreeDepth of the : EndLoop
|   4963FC  xor esi,esi		//initialize Counter
|__________GetLoopStart__________
|   4963FE ->dec ebx		//previous line
|   4963FF | cmp ebx,0		//was the start of the script reached?
|   496402 < jl loc_49642A	//jump on invalid ScriptLine
|   496404 | mov edx,ebx	//get current line
|   496406 | mov eax,ebp	//get Ptr on listed EventCommands
|   496408 | c.sub_479710	//get ScriptLine
|   49640D | cmp		//Is this line = <>Loop?
|   496414 < jnz loc_496419	//jump if not
|   496416 | dec esi		//Counter -1
|   496417 <<jmp loc_496423
|   496419 > cmp		//Is this line = : EndLoop?
|   496420 <<jnz loc_496423	//jump if not
|   496422 | inc esi		//Counter +1
|   496423 >>cmp esi,0		//Is this a lone <>Loop?
|   496426 --jge		//jump if not
|________________________________
|   496428 jmp loc_496431
|   49642A  xor eax,eax		//output = WrongEndLoop
|   49642C  pop ebp
|   49642D  pop esi
|   49642E  pop edi
|   49642F  pop ebx
|   496430  ret
|   496431  cmp edi,[eax+8]	//Are the <>Loop and the : EndLoop at the same Depth?
|   496434  jnz loc_49642A	//jump if not
|   496436  xor eax,eax
|   496438  inc eax		//output = RightEndLoop
|   496439  jmp loc_49642C	//ret

4B0C7D | test eax,eax	//Is this the right : EndLoop?
4B0C7D <<jz loc_4B0C86	//jump if not
4B0C81 | inc [ebx+18]	//output Line# to jump to after the BreakLoop
4B0C84 | pop ebx
4B0C85 ..ret
4B0C86 >>inc [ebx+18]	//next line
4B0C89 |
4B0C8A --jmp

[Quetschi]

Also der Beispielcode den ich oben aufgeführt habe, funktioniert jetzt mit dieser Version.
Beide Schleifen laufen so durch wie sie sollen und am Ende kriege ich auch das "test fertig" ausgegeben.

[Cherry]

@bugmenot: Warum so kompliziert? Was war an meiner Lösung denn falsch? (Der aus dem Edit)

Ich meinte das so:

......<> Break Loop --- Counter=0, mal End Loop suchen gehen
......<>
...: End Case
...<> Loop --- Counter=1
......<>
...: End Loop --- Counter=0
: End Loop --- Counter=-1, richtiges End Loop gefunden!

[bugmenot]

Warum so kompliziert?

...

Habe mich wohl zu sehr auf eb!'s Code eingelassen und die aufgepickten :EndLoops auf richtige Zugehörigkeit überprüft... anstatt gleich das erste richtige :EndLoop suchen zu lassen...

download BreakLoopFix

Code:

sub_4B0C50      proc near
CODE:004B0C50                 push    ebx
CODE:004B0C51                 push    esi
CODE:004B0C52                 mov     ebx, edx
CODE:004B0C54                 xor     esi, esi
CODE:004B0C56
CODE:004B0C56 loc_4B0C56:
CODE:004B0C56                 mov     edx, [ebx+18h]
CODE:004B0C59                 mov     eax, [ebx+14h]
CODE:004B0C5C                 call    sub_479710
CODE:004B0C61                 mov     eax, [eax+4]
CODE:004B0C64                 test    eax, eax
CODE:004B0C66                 jz      short loc_4B0C87
CODE:004B0C68                 cmp     eax, 2FB2h
CODE:004B0C6D                 jnz     short loc_4B0C70
CODE:004B0C6F                 inc     esi  Counter +1 on StartLoop
CODE:004B0C70
CODE:004B0C70 loc_4B0C70:
CODE:004B0C70                 cmp     eax, 56C2h
CODE:004B0C75                 jnz     short loc_4B0C78
CODE:004B0C77                 dec     esi  Counter -1 on EndLoop
CODE:004B0C78
CODE:004B0C78 loc_4B0C78:
CODE:004B0C78                 inc     dword ptr [ebx+18h]
CODE:004B0C7B                 cmp     esi, 0  check Counter for lone :EndLoop
CODE:004B0C7E                 jge     short loc_4B0C56  jump if the loop wasn't exited yet
CODE:004B0C80                 nop
CODE:004B0C81                 nop
CODE:004B0C82                 nop
CODE:004B0C83                 nop
CODE:004B0C84                 nop
CODE:004B0C85                 nop
CODE:004B0C86                 nop
CODE:004B0C87
CODE:004B0C87 loc_4B0C87:
CODE:004B0C87                 pop     esi
CODE:004B0C88                 pop     ebx
CODE:004B0C89                 retn
CODE:004B0C89 sub_4B0C50      endp