* fixed test for 64 bit targets

tests/webtbs/tw1677.pp

@@ -8,10 +8,10 @@ procedure RefCount(const s : ansistring;expect:longint);
 type
         PLongint = ^Longint;
 var
-        P : PLongint;
+        P : psizeint;
         rc : longint;
 begin
-        P := PLongint(s);
+        P := psizeint(s);
         rc:=0;
         if (p = nil)
         then writeln('Nil string.')
@@ -20,7 +20,7 @@ begin
   {$if defined(ver1_0) or defined(ver1_9_4)}
          rc:=(p-1)^;
   {$else}
-         rc:=plongint(pchar(p)-8)^;
+         rc:=psizeint(pchar(p)-sizeof(sizeint)*2)^;
   {$endif}
 {$else}
          rc:=plongint(pchar(p)-8)^;
@@ -62,4 +62,3 @@ begin
   writeln('ok');
 end.
 
-