paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 16:50:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix go32v2 assembler parsing failure introduced in rev 16104

Browse Source 
git-svn-id: trunk@16132 -
This commit is contained in:
pierre 2010-10-11 20:53:19 +00:00
parent 631811d779
commit 586dd1ee49
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/x86/rax86int.pas
View File

@ -384,12 +384,12 @@ Unit Rax86int;
c:=current_scanner.asmgetchar;
end;
end;
if is_register(actasmpattern) then
exit;
if is_asmdirective(actasmpattern) then
exit;
if is_asmoperator(actasmpattern) then
exit;
if is_register(actasmpattern) then
exit;
{ allow spaces }
while (c in [' ',#9]) do
c:=current_scanner.asmgetchar;
@ -1629,7 +1629,7 @@ Unit Rax86int;
if (actasmtoken=AS_OFFSET) and
(cs_create_pic in current_settings.moduleswitches) then
begin
Consume(AS_OFFSET);
Consume(AS_OFFSET);
oper.opr.ref.refaddr:=addr_pic;
BuildOperand(oper,false);
end
@ -1840,9 +1840,7 @@ Unit Rax86int;
BuildOperand(oper,true);
Consume(AS_RPAREN);
oper.setsize(l,true);
end
else if (actasmtoken = AS_REGISTER) then
Message(asmr_e_syn_operand);
end;
end;
AS_SEPARATOR,