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

* fixed dispatchstr

Browse Source
This commit is contained in:
peter 1999-05-19 13:20:09 +00:00
parent 425a9f41dd
commit f3f2a33a2a
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/objpas.inc
View File

@ -248,7 +248,7 @@
vmt : tclass; vmt : tclass;
begin begin
name:=pshortstring(message)^; name:=pshortstring(@message)^;
vmt:=ClassType; vmt:=ClassType;
while assigned(vmt) do while assigned(vmt) do
begin begin
@ -325,7 +325,10 @@
{ {
$Log$ $Log$
Revision 1.3 1999-05-17 21:52:37 florian Revision 1.4 1999-05-19 13:20:09 peter
* fixed dispatchstr
Revision 1.3 1999/05/17 21:52:37 florian
* most of the Object Pascal stuff moved to the system unit * most of the Object Pascal stuff moved to the system unit
} }