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

* fixed SETTEXTBUF

Browse Source 
git-svn-id: trunk@2566 -
This commit is contained in:
Jonas Maebe 2006-02-14 10:35:24 +00:00
parent 0ac6978b00
commit dc5c79194f
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ninl.pas
View File

@ -1232,7 +1232,6 @@ implementation
vr : bestreal; vr : bestreal;
hightree, hightree,
hp : tnode; hp : tnode;
srsym : tsym;
checkrange : boolean; checkrange : boolean;
label label
myexit; myexit;
@ -1698,10 +1697,9 @@ implementation
begin begin
resulttype:=voidtype; resulttype:=voidtype;
{ now we know the type of buffer } { now we know the type of buffer }
srsym:=search_system_type('SETTEXTBUF');
hp:=ccallparanode.create(cordconstnode.create( hp:=ccallparanode.create(cordconstnode.create(
tcallparanode(left).left.resulttype.def.size,s32inttype,true),left); tcallparanode(left).left.resulttype.def.size,s32inttype,true),left);
result:=ccallnode.create(hp,tprocsym(srsym),systemunit,nil,[]); result:=ccallnode.createintern('SETTEXTBUF',hp);
left:=nil; left:=nil;
end; end;