x86nasm.pl (55714) | x86nasm.pl (100936) |
---|---|
1#!/usr/local/bin/perl 2 3package x86nasm; 4 5$label="L000"; 6 7%lb=( 'eax', 'al', 8 'ebx', 'bl', --- 195 unchanged lines hidden (view full) --- 204 { 205 return if $using486; 206 $using486++; 207 grep(s/\.386/\.486/,@out); 208 } 209 210sub main'file 211 { | 1#!/usr/local/bin/perl 2 3package x86nasm; 4 5$label="L000"; 6 7%lb=( 'eax', 'al', 8 'ebx', 'bl', --- 195 unchanged lines hidden (view full) --- 204 { 205 return if $using486; 206 $using486++; 207 grep(s/\.386/\.486/,@out); 208 } 209 210sub main'file 211 { |
212 push(@out, "segment .text\n"); | 212 push(@out, "segment .text use32\n"); |
213 } 214 215sub main'function_begin 216 { 217 my($func,$extra)=@_; 218 219 push(@labels,$func); 220 my($tmp)=<<"EOF"; --- 122 unchanged lines hidden --- | 213 } 214 215sub main'function_begin 216 { 217 my($func,$extra)=@_; 218 219 push(@labels,$func); 220 my($tmp)=<<"EOF"; --- 122 unchanged lines hidden --- |