paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 08:09:29 +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;
hightree,
hp : tnode;
srsym : tsym;
checkrange : boolean;
label
myexit;
@ -1698,10 +1697,9 @@ implementation
begin
resulttype:=voidtype;
{ now we know the type of buffer }
srsym:=search_system_type('SETTEXTBUF');
hp:=ccallparanode.create(cordconstnode.create(
tcallparanode(left).left.resulttype.def.size,s32inttype,true),left);
result:=ccallnode.create(hp,tprocsym(srsym),systemunit,nil,[]);
result:=ccallnode.createintern('SETTEXTBUF',hp);
left:=nil;
end;