moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-07 02:30:19 -05:00
Code Issues Releases Wiki Activity

Not sure, but had to do it =D

Browse Source
This commit is contained in:
Niels 2010-09-12 15:38:18 +02:00
parent 6dbf566879
commit b68ba581bc
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
Units/RUTIS/Rutis_Engine.pas
View File

@ -220,27 +220,28 @@ Begin
End;
Function TRutisEngine.GetExtAddrRange(P : Pointer; Exact : Boolean = False) : Integer;
var
i: Integer;
Begin
With ScriptData Do
If Exact Then
Begin
For Result := 0 To high(ScriptData.AddrRanges) Do
If P = ScriptData.AddrRanges[Result].Start Then
exit;
For i := 0 To high(ScriptData.AddrRanges) Do
If P = ScriptData.AddrRanges[i].Start Then
exit(i);
End
Else
For Result := 0 To high(ScriptData.AddrRanges) Do
For i := 0 To high(ScriptData.AddrRanges) Do
Begin
If (Cardinal(P) >= Cardinal(ScriptData.AddrRanges[Result].Start)) and
(Cardinal(P) < Cardinal(ScriptData.AddrRanges[Result].Start) + ScriptData.AddrRanges[Result].Size) Then
If (PtrUInt(P) >= PtrUInt(ScriptData.AddrRanges[i].Start)) and
(PtrUInt(P) < PtrUInt(ScriptData.AddrRanges[i].Start) + ScriptData.AddrRanges[i].Size) Then
Begin
exit;
exit(i);
End;
End;
If ScriptData.Stack.PointerInBlockData(P) Then
Begin
Result := -2;
exit;
Exit(-2);
End;
Result := -1;
End;
@ -317,7 +318,7 @@ End;
Procedure TRutisEngine.OpCheckPtr;
Begin
fLastAdress := Pointer(ScriptData.Stack.ReadCardinal(ScriptData.Stack.Top - 4));
fLastAdress := Pointer(ScriptData.Stack.ReadCardinal(ScriptData.Stack.Top - 8));
If GetExtAddrRange(fLastAdress) = -1 Then
Begin
ScriptMessage('Address Error');