x86, x86-64: оптимизации RTL

source/AMD64.ob07

@@ -1333,10 +1333,8 @@ BEGIN
             GetRegA
 
         |IL.opRSET1:
-            UnOp(reg1);
             PushAll(1);
-            push(reg1);
-            CallRTL(IL._set);
+            CallRTL(IL._set1);
             GetRegA
 
         |IL.opINCL, IL.opEXCL:

source/IL.ob07

@@ -122,6 +122,7 @@ CONST
     _init      *=  23;
     _dllentry  *=  24;
     _sofinit   *=  25;
+    _set1      *=  26;
 
 
 TYPE
@@ -188,7 +189,7 @@ TYPE
         dmin*:      INTEGER;
         lcount*:    INTEGER;
         bss*:       INTEGER;
-        rtl*:       ARRAY 26 OF INTEGER;
+        rtl*:       ARRAY 27 OF INTEGER;
         errlabels*: ARRAY 12 OF INTEGER;
 
         charoffs:   ARRAY 256 OF INTEGER;

source/STATEMENTS.ob07

@@ -3291,6 +3291,7 @@ BEGIN
         getproc(rtl,  "_mod",       IL._mod);
         getproc(rtl,  "_set",       IL._set);
         getproc(rtl,  "_set2",      IL._set2);
+        getproc(rtl,  "_set1",      IL._set1);
         getproc(rtl,  "_isrec",     IL._isrec);
         getproc(rtl,  "_lengthw",   IL._lengthw);
         getproc(rtl,  "_strcmpw",   IL._strcmpw);

source/X86.ob07

@@ -1464,10 +1464,8 @@ BEGIN
             GetRegA
 
         |IL.opRSET1:
-            UnOp(reg1);
             PushAll(1);
-            push(reg1);
-            CallRTL(pic, IL._set);
+            CallRTL(pic, IL._set1);
             GetRegA
 
         |IL.opINCL, IL.opEXCL: