paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-16 15:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ignore @ in Unit.@Proc

Browse Source
This commit is contained in:
peter 2003-10-21 18:17:40 +00:00
parent aaf9043988
commit 86782a9b08
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/i386/ra386int.pas
View File

@ -370,8 +370,12 @@ begin
(srsym.typ=unitsym) and
(srsym.owner.unitid=0) then
begin
{ Add . to create System.Identifier }
actasmpattern:=actasmpattern+c;
c:=current_scanner.asmgetchar;
{ Delphi allows System.@Halt, just ignore the @ }
if c='@' then
c:=current_scanner.asmgetchar;
while c in ['A'..'Z','a'..'z','0'..'9','_','$'] do
begin
actasmpattern:=actasmpattern + upcase(c);
@ -1932,7 +1936,10 @@ finalization
end.
{
$Log$
Revision 1.56 2003-10-10 17:48:14 peter
Revision 1.57 2003-10-21 18:17:40 peter
* ignore @ in Unit.@Proc
Revision 1.56 2003/10/10 17:48:14 peter
* old trgobj moved to x86/rgcpu and renamed to trgx86fpu
* tregisteralloctor renamed to trgobj
* removed rgobj from a lot of units