Forum > General
Show 64-bit or 32-bit in the caption of Lazarus
Bart:
--- Quote from: Thaddy on January 09, 2019, 07:56:06 pm ---WHICH LEAVES OUT 16 AND 8 BIT SUPPORT. Really brillant.....
--- End quote ---
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} --- {$ifdef CPU8} lisLazarusEditorV = 'Lazarus for DOS and CP/M IDE v%s'; {$endif} {$ifdef CPU16} lisLazarusEditorV = 'Lazarus (16bit) IDE v%s'; //fpc supports win 3.0, so why should'nt we? {$endif} {$ifdef CPU32} lisLazarusEditorV = 'Lazarus (32bit) IDE v%s'; {$endif} {$ifdef CPU64} lisLazarusEditorV = 'Lazarus (64bit) IDE v%s'; {$endif} {$ifdef CPU128} lisLazarusEditorV = 'Lazarus (128bit) IDE v%s'; //be pro-active! {$endif}
Fixed.
Bart
tr_escape:
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} --- {$ifdef CPU128} lisLazarusEditorV = 'Lazarus (128bit) IDE v%s'; //be pro-active! {$endif}
Fixed.
Bart
[/quote]
:)
Is there 128bit CPU for normal users?
lucamar:
--- Quote from: tr_escape on January 10, 2019, 03:40:37 pm --- :)
Is there 128bit CPU for normal users?
--- End quote ---
Not yet but next year ... who knows? :P
Thaddy:
SizeOf(NativeUint) would work a lot better and even with the current compiler. (and works at compile time)
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---beginwriteln (SizeOf(NativeUint)*8)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...
Navigation
[0] Message Index
[*] Previous page