Minor perlasm updates.
[openssl.git] / crypto / perlasm / x86gas.pl
index 9969d382cf51982835c7c49673f7cef448ebbe6b..e3fbb940f051e8aa18fd6610bdb6fd2b12f9f5e8 100644 (file)
@@ -77,11 +77,11 @@ sub ::jmp_ptr       { &::generic("jmp","*$_[0]");   }
 };
 *::shld = sub
 { my($dst,$src,$bits)=@_;
-    &::emit("shldl",$bit eq "cl"?"%cl":"\$$bits","%$src","%$dst");
+    &::emit("shldl",$bits eq "cl"?"%cl":"\$$bits","%$src","%$dst");
 };
 *::shrd = sub
 { my($dst,$src,$bits)=@_;
-    &::emit("shrdl",$bit eq "cl"?"%cl":"\$$bits","%$src","%$dst");
+    &::emit("shrdl",$bits eq "cl"?"%cl":"\$$bits","%$src","%$dst");
 };
 
 sub ::DWP