|
@@ -1641,7 +1641,7 @@ implementation
|
|
|
{$endif CPUSPARC}
|
|
{$endif CPUSPARC}
|
|
|
|
|
|
|
|
{$ifndef HASSETFPUEXCEPTIONMASK}
|
|
{$ifndef HASSETFPUEXCEPTIONMASK}
|
|
|
- function SetFPUExceptionMask(const Mask: TFPUExceptionMask): TFPUExceptionMask;
|
|
|
|
|
|
|
+ procedure SetFPUExceptionMask(const Mask: TFPUExceptionMask);
|
|
|
begin
|
|
begin
|
|
|
end;
|
|
end;
|
|
|
{$endif HASSETFPUEXCEPTIONMASK}
|
|
{$endif HASSETFPUEXCEPTIONMASK}
|
|
@@ -2135,7 +2135,10 @@ implementation
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.152 2004-10-31 21:45:02 peter
|
|
|
|
|
|
|
+ Revision 1.153 2004-11-05 13:14:30 florian
|
|
|
|
|
+ * fixed arm compilation
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.152 2004/10/31 21:45:02 peter
|
|
|
* generic tlocation
|
|
* generic tlocation
|
|
|
* move tlocation to cgutils
|
|
* move tlocation to cgutils
|
|
|
|
|
|
florian