paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 18:59:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ made fpc work as an MPW tool, by itself calling asm and link.

Browse Source 
* bugfix in fp exception flag settings routine
This commit is contained in:
olle 2004-08-20 10:29:31 +00:00
parent ef89703097
commit 2a4605eabc
1 changed files with 25 additions and 5 deletions

30
compiler/globals.pas
View File

@ -336,6 +336,9 @@ interface
implementation
uses
{$ifdef macos}
macutils,
{$endif}
comphook;
procedure abstract;
@ -476,14 +479,19 @@ implementation
if (length(s)>0) and (s[1]='/') then
path_absolute:=true;
{$else unix}
{$ifdef amiga}
{$ifdef amiga}
if ((length(s)>0) and ((s[1]='\') or (s[1]='/'))) or (Pos(':',s) = length(s)) then
path_absolute:=true;
{$else}
{$else}
{$ifdef macos}
if IsMacFullPath(s) then
path_absolute:=true;
{$else}
if ((length(s)>0) and ((s[1]='\') or (s[1]='/'))) or
((length(s)>2) and (s[2]=':') and ((s[3]='\') or (s[3]='/'))) then
path_absolute:=true;
{$endif amiga}
{$endif macos}
{$endif amiga}
{$endif unix}
end;
@ -1169,8 +1177,12 @@ implementation
begin
{$ifdef Unix}
sepch:=':';
{$else}
{$ifdef macos}
sepch:=',';
{$else}
sepch:=';';
{$endif macos}
{$endif Unix}
FindFilePchar:=false;
pc:=path;
@ -1223,7 +1235,11 @@ implementation
found:=FindFile(FixFileName(AddExtension(bin,source_info.exeext)),'.;'+exepath,foundfile);
if not found then
begin
{$ifdef macos}
p:=GetEnvPchar('Commands');
{$else}
p:=GetEnvPchar('PATH');
{$endif}
found:=FindFilePChar(FixFileName(AddExtension(bin,source_info.exeext)),p,foundfile);
FreeEnvPChar(p);
end;
@ -1432,7 +1448,7 @@ implementation
newmask.b := newmask.b or (1 shl (31-26));
{ Precision (inexact result): bit 28 }
if (exUnderflow in mask) then
if (exPrecision in mask) then
newmask.b := newmask.b and not(1 shl (31-28))
else
newmask.b := newmask.b or (1 shl (31-28));
@ -1920,7 +1936,11 @@ implementation
end.
{
$Log$
Revision 1.134 2004-08-02 07:15:54 michael
Revision 1.135 2004-08-20 10:29:31 olle
+ made fpc work as an MPW tool, by itself calling asm and link.
* bugfix in fp exception flag settings routine
Revision 1.134 2004/08/02 07:15:54 michael
+ Patch from Christian Iversen to implement LIBPREFIX/SUFFIX/EXTENSION directives
Revision 1.133 2004/07/17 15:51:57 jonas