Fix for msdos target: Use CodePointer where required

git-svn-id: trunk@39173 -

tests/webtbs/tw33818.pp

@@ -7,17 +7,17 @@ program Project1;
 uses
  SysUtils;
 
-procedure RaiseException(AReturnAddress : Pointer);
+procedure RaiseException(AReturnAddress : CodePointer);
 begin
  raise Exception.Create('message') at AReturnAddress;
 end;
 
-procedure RaiseException(AReturnAddress : Pointer;AFrame : Pointer);
+procedure RaiseException(AReturnAddress : CodePointer;AFrame : Pointer);
 begin
  raise Exception.Create('message') at AReturnAddress,AFrame;
 end;
 
 begin
- RaiseException(Pointer(10));
- RaiseException(Pointer(10),Pointer(1234));
+ RaiseException(CodePointer(10));
+ RaiseException(CodePointer(10),Pointer(1234));
 end.