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

* removed code duplication in tpointerdef.GetTypeName

Browse Source 
git-svn-id: trunk@26609 -
This commit is contained in:
Jonas Maebe 2014-01-28 20:14:28 +00:00
parent 89d97a3c2e
commit 6d5bef3e1d
1 changed files with 26 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
compiler/symdef.pas
View File

@ -3072,25 +3072,33 @@ implementation
function tpointerdef.GetTypeName : string;
begin
GetTypeName:='^'+pointeddef.typename;
{$ifdef x86}
if x86pointertyp = default_x86_data_pointer_type then
GetTypeName:='^'+pointeddef.typename
else
case x86pointertyp of
x86pt_near: GetTypeName:='^'+pointeddef.typename+';near';
x86pt_near_cs: GetTypeName:='^'+pointeddef.typename+';near ''CS''';
x86pt_near_ds: GetTypeName:='^'+pointeddef.typename+';near ''DS''';
x86pt_near_ss: GetTypeName:='^'+pointeddef.typename+';near ''SS''';
x86pt_near_es: GetTypeName:='^'+pointeddef.typename+';near ''ES''';
x86pt_near_fs: GetTypeName:='^'+pointeddef.typename+';near ''FS''';
x86pt_near_gs: GetTypeName:='^'+pointeddef.typename+';near ''GS''';
x86pt_far: GetTypeName:='^'+pointeddef.typename+';far';
x86pt_huge: GetTypeName:='^'+pointeddef.typename+';huge';
else
internalerror(2013050301);
end;
{$else x86}
GetTypeName:='^'+pointeddef.typename;
if x86pointertyp<>default_x86_data_pointer_type then
begin
case x86pointertyp of
x86pt_near:
GetTypeName:=Result+';near';
x86pt_near_cs:
GetTypeName:=Result+';near ''CS''';
x86pt_near_ds:
GetTypeName:=Result+';near ''DS''';
x86pt_near_ss:
GetTypeName:=Result+';near ''SS''';
x86pt_near_es:
GetTypeName:=Result+';near ''ES''';
x86pt_near_fs:
GetTypeName:=Result+';near ''FS''';
x86pt_near_gs:
GetTypeName:=Result+';near ''GS''';
x86pt_far:
GetTypeName:=Result+';far';
x86pt_huge:
GetTypeName:=Result+';huge';
else
internalerror(2013050301);
end;
end;
{$endif x86}
end;