paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 14:47:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix for msdos target: Use CodePointer where required

Browse Source 
git-svn-id: trunk@39173 -
This commit is contained in:
pierre 2018-06-05 11:31:42 +00:00
parent c3ac166614
commit 7268c86602
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/webtbs/tw33818.pp
View File

@ -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.