OpenXM/src/kxx/sm1stackmachine.c - diff

Return to sm1stackmachine.c CVS log

Up to [local] / OpenXM / src / kxx

-version 1.1, 1999/10/08 02:12:13
+version 1.2, 2000/02/02 03:30:49
 Line 176  void Sm1_dupErrors(void) {
 Line 176  void Sm1_dupErrors(void) {
 Line 176  void Sm1_dupErrors(void) {
    KSpush(KSdupErrors());
  }
+ void Sm1_pushCMOtag(int serial) {
+   struct object obj;
+   int t;
+   obj = KSpeek(0);
+   t = KgetCmoTagOfObject(obj);
+   if (t != -1) {
+         KSpush(KpoInteger(t));
+   }else{
+         Sm1_pushError2(serial,-1,"The top object on the server stack cannot be translated to cmo.");
+   }
+ }