diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-12-02 11:13:51 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-12-02 11:13:51 +0000 |
| commit | 64e5b6ffd1a8b2284181a7f39bcb96ac60b50e77 (patch) | |
| tree | 089ef52d537c17ba3fa34b0be582584ac1703f2c | |
| parent | 563b77c15928149bd9295b8f7e1019b0a7c3a015 (diff) | |
| download | fpc-64e5b6ffd1a8b2284181a7f39bcb96ac60b50e77.tar.gz | |
* fixed x86_64 and non-darwin i386 GOT/GOTPCREL parsing after r9366
(I put that code in a separate method because it appeared in two
places, but in one of the two places it was buggy and apparently
never triggered, and I copied that part...)
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@9379 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | compiler/x86/rax86att.pas | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/x86/rax86att.pas b/compiler/x86/rax86att.pas index 5a09dee2f8..f9ad88d957 100644 --- a/compiler/x86/rax86att.pas +++ b/compiler/x86/rax86att.pas @@ -283,7 +283,10 @@ Implementation {$ifdef i386} if actasmpattern='GOT' then {$endif i386} - oper.opr.ref.refaddr:=addr_pic + begin + oper.opr.ref.refaddr:=addr_pic; + consume(AS_ID); + end else Message(asmr_e_invalid_reference_syntax); end |