paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 04:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation for non-x86

Browse Source
This commit is contained in:
Jonas Maebe 2003-09-14 12:55:06 +00:00
parent a283810536
commit d6fead1277
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/globals.pas
View File

@ -1259,7 +1259,7 @@ implementation
Result:=TFPUExceptionMask(CtlWord and $3F); Result:=TFPUExceptionMask(CtlWord and $3F);
end; end;
{$else CPUI386} {$else CPUI386}
function SetExceptionMask(const Mask: TFPUExceptionMask): TFPUExceptionMask; function SetFPUExceptionMask(const Mask: TFPUExceptionMask): TFPUExceptionMask;
begin begin
end; end;
{$endif CPUI386} {$endif CPUI386}
@ -1674,7 +1674,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.97 2003-09-07 22:09:34 peter Revision 1.98 2003-09-14 12:55:06 jonas
* fixed compilation for non-x86
Revision 1.97 2003/09/07 22:09:34 peter
* preparations for different default calling conventions * preparations for different default calling conventions
* various RA fixes * various RA fixes