* fix for OS/2 - StackTop is a pointer now

git-svn-id: trunk@3177 -

rtl/inc/heaptrc.pp

@@ -815,7 +815,7 @@ begin
 {$IFDEF OS2}
   { inside stack ? }
   if (PtrUInt (P) > PtrUInt (Get_Frame)) and
-     (PtrUInt (P) < StackTop) then
+     (PtrUInt (P) < PtrUInt (StackTop)) then
     goto _exit;
   { inside data or bss ? }
   if (PtrUInt (P) >= PtrUInt (@etext)) and (PtrUInt (P) < PtrUInt (@eend)) then