paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-22 01:44:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed object constructor handling for 64 bit CPUs

Browse Source 
git-svn-id: trunk@4465 -
This commit is contained in:
florian 2006-08-20 09:37:24 +00:00
parent 8102053adc
commit bc5e1be7b1
3 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pdecobj.pas
View File

@ -78,7 +78,11 @@ implementation
if is_class(pd._class) then
pd.rettype.setdef(pd._class)
else
{$ifdef CPU64bit}
pd.rettype:=bool64type;
{$else CPU64bit}
pd.rettype:=bool32type;
{$endif CPU64bit}
constructor_head:=pd;
end;

4
compiler/pdecsub.pas
View File

@ -1015,7 +1015,11 @@ implementation
if is_class(pd._class) then
pd.rettype.setdef(pd._class)
else
{$ifdef CPU64bit}
pd.rettype:=bool64type;
{$else CPU64bit}
pd.rettype:=bool32type;
{$endif CPU64bit}
end;
end;

4
compiler/psystem.pas
View File

@ -291,7 +291,7 @@ implementation
addtype('$boolean',booltype);
addtype('$boolean16',bool16type);
addtype('$boolean32',bool32type);
addtype('$boolean64',bool32type);
addtype('$boolean64',bool64type);
addtype('$void_pointer',voidpointertype);
addtype('$char_pointer',charpointertype);
addtype('$widechar_pointer',widecharpointertype);
@ -376,7 +376,7 @@ implementation
loadtype('boolean',booltype);
loadtype('boolean16',bool16type);
loadtype('boolean32',bool32type);
loadtype('boolean64',bool32type);
loadtype('boolean64',bool64type);
loadtype('void_pointer',voidpointertype);
loadtype('char_pointer',charpointertype);
loadtype('widechar_pointer',widecharpointertype);