paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 09:39:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix for form bug #699

Browse Source
This commit is contained in:
pierre 1999-11-29 00:30:06 +00:00
parent c1f893a1d1
commit e9bef7b71d
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/cg386inl.pas
View File

@ -373,6 +373,8 @@ implementation
hp:=node;
node:=node^.right;
hp^.right:=nil;
dummycoll.data:=hp^.resulttype;
dummycoll.paratyp:=vs_value;
secondcallparan(hp,@dummycoll,false,false,false,0);
hp^.right:=node;
if codegenerror then
@ -390,6 +392,8 @@ implementation
hp:=node;
node:=node^.right;
hp^.right:=nil;
dummycoll.data:=hp^.resulttype;
dummycoll.paratyp:=vs_value;
secondcallparan(hp,@dummycoll,false,false,false,0);
hp^.right:=node;
if pararesult^.deftype<>floatdef then
@ -574,6 +578,7 @@ implementation
node^.is_colon_para then
begin
dummycoll.data:=hp^.resulttype;
dummycoll.paratyp:=vs_value;
secondcallparan(hp,@dummycoll,false
,false,false,0
);
@ -593,6 +598,7 @@ implementation
if hp^.is_colon_para then
begin
dummycoll.data:=hp^.resulttype;
dummycoll.paratyp:=vs_value;
secondcallparan(hp,@dummycoll,false
,false,false,0
);
@ -617,6 +623,8 @@ implementation
end;
{ last arg longint or real }
dummycoll.data:=hp^.resulttype;
dummycoll.paratyp:=vs_value;
secondcallparan(hp,@dummycoll,false
,false,false,0
);
@ -1432,7 +1440,10 @@ implementation
end.
{
$Log$
Revision 1.79 1999-11-20 01:22:18 pierre
Revision 1.80 1999-11-29 00:30:06 pierre
* fix for form bug 699
Revision 1.79 1999/11/20 01:22:18 pierre
+ cond FPC_USE_CPREFIX (needs also some RTL changes)
this allows to use unit global vars as DLL exports
(the underline prefix seems needed by dlltool)