moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-31 07:10:28 -05:00
Code Issues Releases Wiki Activity

PS rev 174. Your patch, Raymond. :)

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@64 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-09-14 20:16:29 +00:00
parent c14ee4987d
commit 809c69bafd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Units/PascalScript/uPSRuntime.pas
View File

@ -4108,7 +4108,7 @@ end;
function PSDynArrayGetLength(arr: Pointer; aType: TPSTypeRec): Longint;
begin
if aType.BaseType <> btArray then raise Exception.Create(RPS_InvalidArray);
if arr = nil then Result := 0 else Result := Longint(Pointer(IPointer(arr)-PointerSize)^) {$IFDEF FPC}+ 1{$ENDIF};
if arr = nil then Result := 0 else Result := Longint(Pointer(IPointer(arr)-PointerSize)^);
end;
procedure PSDynArraySetLength(var arr: Pointer; aType: TPSTypeRec; NewLength: Longint);
@ -4136,7 +4136,7 @@ begin
end;
ReallocMem(arr, NewLength * elSize + PointerSize2);
arr := Pointer(IPointer(Arr)+PointerSize);
Longint(Arr^) := NewLength {$IFDEF FPC} - 1{$ENDIF};
Longint(Arr^) := NewLength;
arr := Pointer(IPointer(Arr)+PointerSize);
for i := OldLen to NewLength -1 do
begin
@ -4156,7 +4156,7 @@ begin
GetMem(p, NewLength * elSize + PointerSize2);
Longint(p^) := 1;
p:= Pointer(IPointer(p)+PointerSize);
Longint(p^) := NewLength {$IFDEF FPC} - 1{$ENDIF};
Longint(p^) := NewLength;
p := Pointer(IPointer(p)+PointerSize);
if OldLen <> 0 then
begin