paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-18 03:19:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ new cpus/fpus added

Browse Source 
git-svn-id: trunk@2101 -
This commit is contained in:
florian 2006-01-01 12:41:39 +00:00
parent cd69c36f17
commit 008da5b11c
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/i386/cpuinfo.pas
View File

@ -45,7 +45,8 @@ Type
ClassPentium, ClassPentium,
ClassPentium2, ClassPentium2,
ClassPentium3, ClassPentium3,
ClassPentium4 ClassPentium4,
ClassPentiumM
); );
tfputype = tfputype =
@ -53,7 +54,8 @@ Type
fpu_soft, fpu_soft,
fpu_x87, fpu_x87,
fpu_sse, fpu_sse,
fpu_sse2 fpu_sse2,
fpu_sse3
); );
@ -76,18 +78,20 @@ Const
'PENTIUM', 'PENTIUM',
'PENTIUM2', 'PENTIUM2',
'PENTIUM3', 'PENTIUM3',
'PENTIUM4' 'PENTIUM4',
'PENTIUMM'
); );
fputypestr : array[tfputype] of string[6] = ('', fputypestr : array[tfputype] of string[6] = ('',
'SOFT', 'SOFT',
'X87', 'X87',
'SSE', 'SSE',
'SSE2' 'SSE2',
'SSE3'
); );
sse_singlescalar : set of tfputype = [fpu_sse,fpu_sse2]; sse_singlescalar : set of tfputype = [fpu_sse,fpu_sse2,fpu_sse3];
sse_doublescalar : set of tfputype = [fpu_sse2]; sse_doublescalar : set of tfputype = [fpu_sse2,fpu_sse3];
Implementation Implementation

1
compiler/i386/cpuswtch.pas
View File

@ -82,6 +82,7 @@ begin
'2': initoptprocessor := ClassPentium; '2': initoptprocessor := ClassPentium;
'3': initoptprocessor := ClassPentium2; '3': initoptprocessor := ClassPentium2;
'4': initoptprocessor := ClassPentium4; '4': initoptprocessor := ClassPentium4;
'5': initoptprocessor := ClassPentiumM;
Else IllegalPara(Opt) Else IllegalPara(Opt)
End; End;
Inc(j); Inc(j);