paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 11:07:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* "fast lane" code and comment fixed

Browse Source
This commit is contained in:
florian 2022-06-02 22:47:35 +02:00
parent 41dbedfe22
commit ea659cbc20
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/riscv/rarvgas.pas
View File

@ -764,9 +764,9 @@ unit rarvgas;
begin begin
result:=inherited is_register(s); result:=inherited is_register(s);
{ reg found? { reg found?
possible aliases are always 2 char possible aliases are always 2 to 4 chars
} }
if result or (not (length(s) in [2,3])) then if result or (not (length(s) in [2..4])) then
exit; exit;
for i:=low(extraregs) to high(extraregs) do for i:=low(extraregs) to high(extraregs) do
begin begin