From 809c69bafdc6fbda2cfe90db8ef2d553c6116fa1 Mon Sep 17 00:00:00 2001
From: Wizzup? <Wizzup?@3f818213-9676-44b0-a9b4-5e4c4e03d09d>
Date: Mon, 14 Sep 2009 20:16:29 +0000
Subject: [PATCH] PS rev 174. Your patch, Raymond. :)

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@64 3f818213-9676-44b0-a9b4-5e4c4e03d09d
---
 Units/PascalScript/uPSRuntime.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Units/PascalScript/uPSRuntime.pas b/Units/PascalScript/uPSRuntime.pas
index 3a67f39..1f68a51 100644
--- a/Units/PascalScript/uPSRuntime.pas
+++ b/Units/PascalScript/uPSRuntime.pas
@@ -1856,7 +1856,7 @@ begin
         t := TPSTypeRec_Array(aType).ArrayType;
         elsize := t.RealSize;
         darr := Pointer(IPointer(darr) + PointerSize);
-        l := Longint(darr^) {$IFDEF FPC} + 1 {$ENDIF};
+        l := Longint(darr^) {$IFDEF FPC}+1{$ENDIF};
         darr := Pointer(IPointer(darr) + PointerSize);
         case t.BaseType of
           btString, {$IFNDEF PS_NOWIDESTRING}
@@ -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