paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 23:29:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* default optimization cpu changed to CLassPentium3

Browse Source
This commit is contained in:
peter 2004-10-10 15:42:22 +00:00
parent cf085fb9d0
commit 044ec56b56
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/globals.pas
View File

@ -283,7 +283,7 @@ interface
procedure DefaultReplacements(var s:string); procedure DefaultReplacements(var s:string);
{Gives the absolute path to the current directory} {Gives the absolute path to the current directory}
function GetCurrentDir:string; function GetCurrentDir:string;
{Gives the relative path to the current directory, {Gives the relative path to the current directory,
with a trailing dir separator. E. g. on unix ./ } with a trailing dir separator. E. g. on unix ./ }
function CurDirRelPath(systeminfo: tsysteminfo): string; function CurDirRelPath(systeminfo: tsysteminfo): string;
function path_absolute(const s : string) : boolean; function path_absolute(const s : string) : boolean;
@ -479,7 +479,7 @@ implementation
result:=CachedCurrentDir; result:=CachedCurrentDir;
end; end;
{Gives the relative path to the current directory, {Gives the relative path to the current directory,
with a trailing dir separator. E. g. on unix ./ } with a trailing dir separator. E. g. on unix ./ }
function CurDirRelPath(systeminfo: tsysteminfo): string; function CurDirRelPath(systeminfo: tsysteminfo): string;
@ -489,7 +489,7 @@ implementation
else else
CurDirRelPath:= ':' CurDirRelPath:= ':'
end; end;
function path_absolute(const s : string) : boolean; function path_absolute(const s : string) : boolean;
{ {
@ -1409,7 +1409,7 @@ implementation
{ later, this should be replaced by the math unit } { later, this should be replaced by the math unit }
const const
Default8087CW : word = $1332; Default8087CW : word = $1332;
procedure Set8087CW(cw:word);assembler; procedure Set8087CW(cw:word);assembler;
asm asm
movw cw,%ax movw cw,%ax
@ -1441,7 +1441,7 @@ implementation
{ later, this should be replaced by the math unit } { later, this should be replaced by the math unit }
const const
Default8087CW : word = $1332; Default8087CW : word = $1332;
procedure Set8087CW(cw:word);assembler; procedure Set8087CW(cw:word);assembler;
asm asm
movw cw,%ax movw cw,%ax
@ -1980,7 +1980,7 @@ implementation
{ might be overridden later } { might be overridden later }
initasmmode:=asmmode_standard; initasmmode:=asmmode_standard;
{$ifdef i386} {$ifdef i386}
initoptprocessor:=Class386; initoptprocessor:=ClassPentium3;
initspecificoptprocessor:=Class386; initspecificoptprocessor:=Class386;
initfputype:=fpu_x87; initfputype:=fpu_x87;
@ -2047,7 +2047,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.142 2004-10-09 11:27:59 olle Revision 1.143 2004-10-10 15:42:22 peter
* default optimization cpu changed to CLassPentium3
Revision 1.142 2004/10/09 11:27:59 olle
+ Added CurDirRelPath + Added CurDirRelPath
* Exchanged hardcoded "./" to CurDirRelPath * Exchanged hardcoded "./" to CurDirRelPath