www.gitorious.org Git - gnutls:gnutls.git/blob

1 #!/usr/bin/env perl

2 #

3 # ====================================================================

4 # Written by Nikos Mavrogiannopoulos

5 # Placed under the LGPL

6 # ====================================================================

7 #

9 $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;

10 push(@INC,"${dir}","${dir}../../crypto/perlasm");

11 require "x86asm.pl";

13 &asm_init($ARGV[0],$0);

15 &function_begin_B("gnutls_cpuid");

16 &push ("ebp");

17 &mov ("ebp", "esp");

18 &sub ("esp", 12);

19 &mov (&DWP(0,"esp"), "ebx");

20 &mov ("eax",&DWP(8,"ebp"));

21 &mov (&DWP(4,"esp"), "esi");

22 &mov (&DWP(8,"esp"), "edi");

23 &push ("ebx");

24 &cpuid ();

25 &mov ("edi", "ebx");

26 &pop ("ebx");

27 &mov ("esi","edx");

28 &mov ("edx",&DWP(12,"ebp"));

29 &mov (&DWP(0,"edx"), "eax");

30 &mov ("eax",&DWP(16,"ebp"));

31 &mov (&DWP(0,"eax"), "edi");

32 &mov ("eax",&DWP(20,"ebp"));

33 &mov (&DWP(0,"eax"), "ecx");

34 &mov ("eax",&DWP(24,"ebp"));

35 &mov (&DWP(0,"eax"), "esi");

36 &mov ("ebx",&DWP(0,"esp"));

37 &mov ("esi",&DWP(4,"esp"));

38 &mov ("edi",&DWP(8,"esp"));

39 &mov ("esp","ebp");

40 &pop ("ebp");

41 &ret ();

42 &function_end_B("gnutls_cpuid");

44 &function_begin_B("gnutls_have_cpuid");

45 &pushf ();

46 &pop ("eax");

47 &or ("eax",0x200000);

48 &push ("eax");

49 &popf ();

50 &pushf ();

51 &pop ("eax");

52 &and ("eax",0x200000);

53 &ret ();

54 &function_end_B("gnutls_have_cpuid");

56 &asciz("CPUID for x86");

57 &asm_finish();