paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:49:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* support asm block without assembler directive for -Sd

Browse Source
This commit is contained in:
peter 2000-04-29 12:50:14 +00:00
parent 10c46e7f4d
commit ad5c964217
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/pstatmnt.pas
View File

@ -1194,6 +1194,14 @@ unit pstatmnt;
storepos : tfileposinfo;
begin
{ do we have an assembler block without the po_assembler?
we should allow this for Delphi compatibility (PFV) }
if (token=_ASM) and (m_delphi in aktmodeswitches) then
begin
include(aktprocsym^.definition^.procoptions,po_assembler);
block:=assembler_block;
exit;
end;
if procinfo^.returntype.def<>pdef(voiddef) then
begin
{ if the current is a function aktprocsym is non nil }
@ -1373,7 +1381,10 @@ unit pstatmnt;
end.
{
$Log$
Revision 1.128 2000-04-24 11:11:50 peter
Revision 1.129 2000-04-29 12:50:14 peter
* support asm block without assembler directive for -Sd
Revision 1.128 2000/04/24 11:11:50 peter
* backtraces for exceptions are now only generated from the place of the
exception
* frame is also pushed for exceptions