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

* create fpc_write* length/frac parameters as s32inttype to match the

Browse Source 
declaration in the system unit for 64 OS'es

git-svn-id: trunk@5462 -
This commit is contained in:
Jonas Maebe 2006-11-23 16:40:20 +00:00
parent f4cb8c1bef
commit 1c8dc092b2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ninl.pas
View File

@ -747,7 +747,7 @@ implementation
begin
if not assigned(lenpara) then
lenpara := ccallparanode.create(
cordconstnode.create(0,sinttype,false),nil)
cordconstnode.create(0,s32inttype,false),nil)
else
{ make sure we don't pass the successive }
{ parameters too. We also already have a }
@ -759,18 +759,18 @@ implementation
begin
if not assigned(lenpara) then
lenpara := ccallparanode.create(
cordconstnode.create(-32767,sinttype,false),nil);
cordconstnode.create(-32767,s32inttype,false),nil);
{ also create a default fracpara if necessary }
if not assigned(fracpara) then
fracpara := ccallparanode.create(
cordconstnode.create(-1,sinttype,false),nil);
cordconstnode.create(-1,s32inttype,false),nil);
{ add it to the lenpara }
lenpara.right := fracpara;
{ and add the realtype para (this also removes the link }
{ to any parameters coming after it) }
fracpara.right := ccallparanode.create(
cordconstnode.create(ord(tfloatdef(para.left.resultdef).floattype),
sinttype,true),nil);
s32inttype,true),nil);
end;
end;