paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 10:42:05 +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; hp:=node;
node:=node^.right; node:=node^.right;
hp^.right:=nil; hp^.right:=nil;
dummycoll.data:=hp^.resulttype;
dummycoll.paratyp:=vs_value;
secondcallparan(hp,@dummycoll,false,false,false,0); secondcallparan(hp,@dummycoll,false,false,false,0);
hp^.right:=node; hp^.right:=node;
if codegenerror then if codegenerror then
@ -390,6 +392,8 @@ implementation
hp:=node; hp:=node;
node:=node^.right; node:=node^.right;
hp^.right:=nil; hp^.right:=nil;
dummycoll.data:=hp^.resulttype;
dummycoll.paratyp:=vs_value;
secondcallparan(hp,@dummycoll,false,false,false,0); secondcallparan(hp,@dummycoll,false,false,false,0);
hp^.right:=node; hp^.right:=node;
if pararesult^.deftype<>floatdef then if pararesult^.deftype<>floatdef then
@ -574,6 +578,7 @@ implementation
node^.is_colon_para then node^.is_colon_para then
begin begin
dummycoll.data:=hp^.resulttype; dummycoll.data:=hp^.resulttype;
dummycoll.paratyp:=vs_value;
secondcallparan(hp,@dummycoll,false secondcallparan(hp,@dummycoll,false
,false,false,0 ,false,false,0
); );
@ -593,6 +598,7 @@ implementation
if hp^.is_colon_para then if hp^.is_colon_para then
begin begin
dummycoll.data:=hp^.resulttype; dummycoll.data:=hp^.resulttype;
dummycoll.paratyp:=vs_value;
secondcallparan(hp,@dummycoll,false secondcallparan(hp,@dummycoll,false
,false,false,0 ,false,false,0
); );
@ -617,6 +623,8 @@ implementation
end; end;
{ last arg longint or real } { last arg longint or real }
dummycoll.data:=hp^.resulttype;
dummycoll.paratyp:=vs_value;
secondcallparan(hp,@dummycoll,false secondcallparan(hp,@dummycoll,false
,false,false,0 ,false,false,0
); );
@ -1432,7 +1440,10 @@ implementation
end. end.
{ {
$Log$ $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) + cond FPC_USE_CPREFIX (needs also some RTL changes)
this allows to use unit global vars as DLL exports this allows to use unit global vars as DLL exports
(the underline prefix seems needed by dlltool) (the underline prefix seems needed by dlltool)