paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 21:50:18 +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 uses
SysUtils; SysUtils;
procedure RaiseException(AReturnAddress : Pointer); procedure RaiseException(AReturnAddress : CodePointer);
begin begin
raise Exception.Create('message') at AReturnAddress; raise Exception.Create('message') at AReturnAddress;
end; end;
procedure RaiseException(AReturnAddress : Pointer;AFrame : Pointer); procedure RaiseException(AReturnAddress : CodePointer;AFrame : Pointer);
begin begin
raise Exception.Create('message') at AReturnAddress,AFrame; raise Exception.Create('message') at AReturnAddress,AFrame;
end; end;
begin begin
RaiseException(Pointer(10)); RaiseException(CodePointer(10));
RaiseException(Pointer(10),Pointer(1234)); RaiseException(CodePointer(10),Pointer(1234));
end. end.