paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 16:19:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation

Browse Source 
git-svn-id: trunk@6459 -
This commit is contained in:
florian 2007-02-12 18:57:57 +00:00
parent 4575c9f424
commit 8ebaacad64
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/nds/system.pp
View File

@ -31,7 +31,7 @@ interface
const
LineEnding = #10;
LFNSupport = true;
CtrlZMarksEOF: boolean = false;
CtrlZMarksEOF: boolean = false;
DirectorySeparator = '/';
DriveSeparator = ':';
PathSeparator = ';';
@ -42,7 +42,7 @@ const
sLineBreak : string[1] = LineEnding;
DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF;
const
UnusedHandle = $ffff;
StdInputHandle = 0;
@ -71,7 +71,6 @@ implementation
{$define FPC_SYSTEM_HAS_extractFloat64Frac0}
{$define FPC_SYSTEM_HAS_extractFloat64Frac1}
{$define FPC_SYSTEM_HAS_extractFloat64Exp}
{$define FPC_SYSTEM_HAS_extractFloat64Frac}
{$define FPC_SYSTEM_HAS_extractFloat64Sign}
{$define FPC_SYSTEM_HAS_ExtractFloat32Frac}
{$define FPC_SYSTEM_HAS_extractFloat32Exp}
@ -142,7 +141,7 @@ begin
freeoslistcount:=1;
freeoslist:=pointer($2040000);
fillchar(freeoslist^,sizeof(freeoslist^),0);
freeoslist^.size:=$40000;
freeoslist^.size:=$40000;
fillchar(internal_status,sizeof(internal_status),0);
}
end;