paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* merged

Browse Source
This commit is contained in:
peter 1999-07-12 15:03:04 +00:00
parent d6f11f2061
commit cd6dac1a03
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/ra386int.pas
View File

@ -1180,10 +1180,14 @@ Begin
Begin
InitRef;
SetupResult;
Consume(AS_ID);
end
else
if (actasmpattern = '@CODE') or (actasmpattern = '@DATA') then
Message(asmr_w_CODE_and_DATA_not_supported)
begin
Message(asmr_w_CODE_and_DATA_not_supported);
Consume(AS_ID);
end
else
{ Local Label }
begin
@ -1657,9 +1661,15 @@ begin
end.
{
$Log$
Revision 1.39 1999-06-28 16:02:32 peter
Revision 1.40 1999-07-12 15:03:04 peter
* merged
Revision 1.39 1999/06/28 16:02:32 peter
* merged
Revision 1.37.2.4 1999/07/12 15:01:19 peter
* fixed @result parsing
Revision 1.37.2.3 1999/06/28 15:52:36 peter
* better recovery in main loop