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

* temporary fix for compilerprocs on watcom

Browse Source
This commit is contained in:
peter 2003-10-05 11:10:52 +00:00
parent c1b9d700bc
commit 60e2738c22
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pdecsub.pas
View File

@ -1687,7 +1687,8 @@ const
begin begin
if (pd.deftype<>procdef) then if (pd.deftype<>procdef) then
internalerror(200110232); internalerror(200110232);
tprocdef(pd).setmangledname(lower(tprocdef(pd).procsym.name)); if (target_info.system<>system_i386_watcom) then
tprocdef(pd).setmangledname(lower(tprocdef(pd).procsym.name));
end; end;
pocall_far16 : pocall_far16 :
begin begin
@ -2126,7 +2127,10 @@ const
end. end.
{ {
$Log$ $Log$
Revision 1.144 2003-10-03 22:00:33 peter Revision 1.145 2003-10-05 11:10:52 peter
* temporary fix for compilerprocs on watcom
Revision 1.144 2003/10/03 22:00:33 peter
* parameter alignment fixes * parameter alignment fixes
Revision 1.143 2003/10/02 21:13:09 peter Revision 1.143 2003/10/02 21:13:09 peter