* fixed dispatchstr()

rtl/inc/objpas.inc

@@ -235,7 +235,7 @@
            DefaultHandler(message);
         end;
 
-      procedure TObject.DispatchStr(var message);
+      procedure TObject.DispatchStr(const message:shortstring);
 
         type
            pdword = ^dword;
@@ -248,7 +248,7 @@
            vmt : tclass;
 
         begin
-           name:=pshortstring(@message)^;
+           name:=message;
            vmt:=ClassType;
            while assigned(vmt) do
              begin
@@ -325,7 +325,10 @@
 
 {
   $Log$
-  Revision 1.4  1999-05-19 13:20:09  peter
+  Revision 1.4.2.1  1999-07-10 10:09:59  peter
+    * fixed dispatchstr()
+
+  Revision 1.4  1999/05/19 13:20:09  peter
     * fixed dispatchstr
 
   Revision 1.3  1999/05/17 21:52:37  florian

rtl/inc/objpash.inc

@@ -98,7 +98,7 @@
           class function stringmessagetable : pstringmessagetable;
           { message handling routines }
           procedure dispatch(var message);
-          procedure dispatchstr(var message);
+          procedure DispatchStr(const message:shortstring);
 
           class function methodaddress(const name : shortstring) : pointer;
           class function methodname(address : pointer) : shortstring;
@@ -193,7 +193,10 @@
        end;
 {
   $Log$
-  Revision 1.3  1999-05-17 21:52:38  florian
+  Revision 1.3.2.1  1999-07-10 10:10:00  peter
+    * fixed dispatchstr()
+
+  Revision 1.3  1999/05/17 21:52:38  florian
     * most of the Object Pascal stuff moved to the system unit
 
 }