paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 21:09:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* declare fpu in rtl for m68k linux

Browse Source
This commit is contained in:
peter 2001-07-30 21:39:26 +00:00
parent e7c86006db
commit 121f1a09a0
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/options.pas
View File

@ -1438,6 +1438,9 @@ begin
if option.DoWriteLogo then
option.WriteLogo;
if (target_info.target=target_m68k_linux) then
def_symbol('USE_FPU_IN_RTL');
{ Check file to compile }
if param_file='' then
begin
@ -1563,7 +1566,10 @@ finalization
end.
{
$Log$
Revision 1.49 2001-07-09 21:15:40 peter
Revision 1.50 2001-07-30 21:39:26 peter
* declare fpu in rtl for m68k linux
Revision 1.49 2001/07/09 21:15:40 peter
* Length made internal
* Add array support for Length

9
compiler/ptconst.pas
View File

@ -683,6 +683,7 @@ implementation
consume(_LKLAMMER);
aktpos:=0;
srsym := tsym(trecorddef(t.def).symtable.symindex.first);
recsym := nil;
while token<>_RKLAMMER do
begin
s:=pattern;
@ -764,7 +765,8 @@ implementation
if assigned(srsym) and
{ don't complain if there only come other variant parts }
{ after the last initialized field }
(tvarsym(srsym).address > tvarsym(recsym).address) then
((recsym=nil) or
(tvarsym(srsym).address > tvarsym(recsym).address)) then
Message1(parser_h_skipped_fields_after,s);
for i:=1 to t.def.size-aktpos do
@ -889,7 +891,10 @@ implementation
end.
{
$Log$
Revision 1.28 2001-07-30 20:59:27 peter
Revision 1.29 2001-07-30 21:39:26 peter
* declare fpu in rtl for m68k linux
Revision 1.28 2001/07/30 20:59:27 peter
* m68k updates from v10 merged
Revision 1.27 2001/07/08 21:00:15 peter