|
|
@@ -1433,11 +1433,13 @@ unit pdecl;
|
|
|
datasegment^.concat(new(pai_string,init(aktclass^.objname^)));
|
|
|
|
|
|
{ generate message and dynamic tables }
|
|
|
- { why generate those if empty ??? }
|
|
|
if (aktclass^.options and oo_hasmsgstr)<>0 then
|
|
|
strmessagetable:=genstrmsgtab(aktclass);
|
|
|
if (aktclass^.options and oo_hasmsgint)<>0 then
|
|
|
- intmessagetable:=genintmsgtab(aktclass);
|
|
|
+ intmessagetable:=genintmsgtab(aktclass)
|
|
|
+ else
|
|
|
+ datasegment^.concat(new(pai_const,init_32bit(0)));
|
|
|
+
|
|
|
|
|
|
{ table for string messages }
|
|
|
if (aktclass^.options and oo_hasmsgstr)<>0 then
|
|
|
@@ -2122,7 +2124,10 @@ unit pdecl;
|
|
|
end.
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.131 1999-07-06 21:48:23 florian
|
|
|
+ Revision 1.132 1999-07-11 21:24:31 michael
|
|
|
+ + Fixed integer message table
|
|
|
+
|
|
|
+ Revision 1.131 1999/07/06 21:48:23 florian
|
|
|
* a lot bug fixes:
|
|
|
- po_external isn't any longer necessary for procedure compatibility
|
|
|
- m_tp_procvar is in -Sd now available
|
michael