|
@@ -1397,9 +1397,9 @@ implementation
|
|
|
function assembler_block : tnode;
|
|
|
var
|
|
|
p : tnode;
|
|
|
- {$if not(defined(sparc)) and not(defined(arm)) and not(defined(avr)) and not(defined(mips))}
|
|
|
+ {$if not(defined(sparcgen)) and not(defined(arm)) and not(defined(avr)) and not(defined(mips))}
|
|
|
locals : longint;
|
|
|
- {$endif}
|
|
|
+ {$endif not(defined(sparcgen)) and not(defined(arm)) and not(defined(avr)) and not(defined(mips))}
|
|
|
srsym : tsym;
|
|
|
begin
|
|
|
if parse_generic then
|
|
@@ -1425,7 +1425,7 @@ implementation
|
|
|
include(current_procinfo.flags,pi_is_assembler);
|
|
|
p:=_asm_statement;
|
|
|
|
|
|
-{$if not(defined(sparc)) and not(defined(arm)) and not(defined(avr)) and not(defined(mips))}
|
|
|
+{$if not(defined(sparcgen)) and not(defined(arm)) and not(defined(avr)) and not(defined(mips))}
|
|
|
if (po_assembler in current_procinfo.procdef.procoptions) then
|
|
|
begin
|
|
|
{ set the framepointer to esp for assembler functions when the
|
|
@@ -1451,7 +1451,7 @@ implementation
|
|
|
current_procinfo.framepointer:=NR_STACK_POINTER_REG;
|
|
|
end;
|
|
|
end;
|
|
|
-{$endif not(defined(sparc)) and not(defined(arm)) and not(defined(avr)) not(defined(mipsel))}
|
|
|
+{$endif not(defined(sparcgen)) and not(defined(arm)) and not(defined(avr)) not(defined(mipsel))}
|
|
|
|
|
|
{ Flag the result as assigned when it is returned in a
|
|
|
register.
|