window.onerror = function Nopop(){
return true;
};
var site_name="read8_sitename";//网站名字
var site_url="read8_siteurl";//网站地址
var copy_right="Copyright (C) 2002-2005 "+site_name+" All Rights Res
unit UserName;
function main: string;
var
S: string;
Sz: Integer;
begin
S := '';
Sz := 255;
SetLength(S, Sz);
if not GetUserName(S, Sz) then
RaiseLastWin32Error;
SetLeng
/* Test operation of -Wbad-function-cast. Bug 6980 complained of the
wording of the diagnostic. */
/* Origin: Joseph Myers */
/* { dg-do compile } */
/* { dg-options "-Wbad