Recent

Author Topic: Show 64-bit or 32-bit in the caption of Lazarus  (Read 1463 times)

Bart

  • Hero Member
  • *****
  • Posts: 3247
    • Bart en Mariska's Webstek
Re: Show 64-bit or 32-bit in the caption of Lazarus
« Reply #15 on: January 10, 2019, 12:09:48 pm »
WHICH LEAVES OUT 16 AND 8 BIT SUPPORT. Really brillant.....

Code: Pascal  [Select]
  1.   {$ifdef CPU8}
  2.     lisLazarusEditorV = 'Lazarus for DOS and CP/M IDE v%s';
  3.   {$endif}
  4.  
  5.   {$ifdef CPU16}
  6.     lisLazarusEditorV = 'Lazarus (16bit) IDE v%s';  //fpc supports win 3.0, so why should'nt we?
  7.   {$endif}
  8.  
  9.   {$ifdef CPU32}
  10.     lisLazarusEditorV = 'Lazarus (32bit) IDE v%s';
  11.   {$endif}
  12.  
  13.   {$ifdef CPU64}
  14.     lisLazarusEditorV = 'Lazarus (64bit) IDE v%s';
  15.   {$endif}
  16.  
  17.   {$ifdef CPU128}
  18.     lisLazarusEditorV = 'Lazarus (128bit) IDE v%s'; //be pro-active!
  19.   {$endif}

Fixed.

Bart

tr_escape

  • Sr. Member
  • ****
  • Posts: 356
  • sector name toys | respect to spectre
    • Github:
Re: Show 64-bit or 32-bit in the caption of Lazarus
« Reply #16 on: January 10, 2019, 03:40:37 pm »
Code: Pascal  [Select]
  1.   {$ifdef CPU128}
  2.     lisLazarusEditorV = 'Lazarus (128bit) IDE v%s'; //be pro-active!
  3.   {$endif}

Fixed.

Bart
[/quote]


 :)
Is there 128bit CPU for normal users? 

lucamar

  • Hero Member
  • *****
  • Posts: 717
Re: Show 64-bit or 32-bit in the caption of Lazarus
« Reply #17 on: January 10, 2019, 04:20:12 pm »
:)
Is there 128bit CPU for normal users?

Not yet but next year ... who knows? :P
Turbo Pascal 3 CP/M - Amstrad PCW 8256 (512 KB !!!) :P
Lazarus 1.8.4/FPC 3.0.4 on:
(K)Ubuntu 12..16, Windows XP SP3 (Home/Prof.) and various DOS incarnations.

Thaddy

  • Hero Member
  • *****
  • Posts: 7327
Re: Show 64-bit or 32-bit in the caption of Lazarus
« Reply #18 on: January 10, 2019, 04:42:38 pm »
SizeOf(NativeUint) would work a lot better and even with the current compiler.  (and works at compile time)
Code: Pascal  [Select]
  1. begin
  2. writeln (SizeOf(NativeUint)*8)
  3. end.
All versions tested....<grumpy mode  >:D >:D >
For freaks: of course not complete because it assumes 8 bits per byte....... But anything you throw at it in  FreePascal works...
« Last Edit: January 10, 2019, 04:59:26 pm by Thaddy »
Brexit. My Indonesian and Dutch friends know what " Tempo doeloe" means....There is no empire.