paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-08 11:01:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

* allow spaces before : of a label

Browse Source
This commit is contained in:
peter 2004-11-21 21:36:13 +00:00
parent a827c692e2
commit 2ad2e252a3
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/i386/ra386int.pas
View File

@ -285,6 +285,9 @@ Unit Ra386int;
end;
actasmpattern[0]:=chr(len);
uppervar(actasmpattern);
{ allow spaces }
while (c in [' ',#9]) do
c:=current_scanner.asmgetchar;
{ label ? }
if c = ':' then
begin
@ -2019,7 +2022,10 @@ begin
end.
{
$Log$
Revision 1.80 2004-11-09 22:32:59 peter
Revision 1.81 2004-11-21 21:36:13 peter
* allow spaces before : of a label
Revision 1.80 2004/11/09 22:32:59 peter
* small m68k updates to bring it up2date
* give better error for external local variable