mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-05 13:29:25 +01:00
* Fix from peter (inline between ifdefs) committed
This commit is contained in:
parent
db4400c201
commit
c9e2e3dd8d
@ -119,7 +119,7 @@ Var
|
|||||||
Tmp : array[0..8] Of char;
|
Tmp : array[0..8] Of char;
|
||||||
Written : Word;
|
Written : Word;
|
||||||
|
|
||||||
Function fixrelocs(i:longint): preloc; inline;
|
Function fixrelocs(i:longint): preloc; {$ifdef HASINLINE}inline;{$endif}
|
||||||
|
|
||||||
Begin
|
Begin
|
||||||
fixrelocs := preloc(longint(relocs)+i*SIZEOF(reloc));
|
fixrelocs := preloc(longint(relocs)+i*SIZEOF(reloc));
|
||||||
@ -315,6 +315,9 @@ Begin
|
|||||||
Close(output_f);
|
Close(output_f);
|
||||||
End.
|
End.
|
||||||
{
|
{
|
||||||
$Log:
|
$Log$
|
||||||
|
Revision 1.2 2001-08-02 10:41:50 marco
|
||||||
|
* Fix from peter (inline between ifdefs) committed
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user